qjg_77 发表于 2019-12-13 21:08:59

自己编制小程序，但运行时，有点儿卡，谁能帮我优化下？谢谢！！

(defun c:HT () ;;写黑体字
        (setq pt1 (getpoint "\n指定文本起点:") )   ;;;提示输入点1
        (setq wz (getstring "\n请输入标注文字:"))      ;;;提示输入“WZ”文字内容，
(setq osm (getvar "osmode"));;将当前的捕捉样式存储到OSm中
        (setvar 'osmode 0)                           ;;;关闭捕捉模式
(setq zg (* 3 (getvar "dimscale")))            ;;;设字高为标注的全局比例的3倍
        (command "-style" "HT" "黑体" 0 0.7 0 "" "" "")
        (command "text" pt1 zg "0" wz)
        (setvar "osmode" osm);;恢复捕捉样式
)

yxp 发表于 2019-12-13 22:47:05

(entmake (list '(0 . "TEXT") (cons 1 wz) (cons 10 pt1) (cons 40 zq)))
不要用command函数

烟盒迷唇 发表于 2019-12-14 09:10:33

对极了，这种就该用entmake

start4444 发表于 2019-12-14 12:07:03

(command "-style" "HT" "黑体" 0 0.7 0 "" "" "")把最后的空格去掉

zixuan203344 发表于 2019-12-14 19:50:44

yxp 发表于 2019-12-13 22:47
(entmake (list '(0 . "TEXT") (cons 1 wz) (cons 10 pt1) (cons 40 zq)))
不要用command函数

卧槽，小蜜蜂竟然出现了，都没见你在群里说话了……

xyp1964 发表于 2019-12-16 22:50:15

(defun c:HT ()
(setq pt1 (getpoint "\n指定文本起点: "))
(setq wz (getstring "\n请输入标注文字: "))
(setq zg (* 3 (getvar "dimscale")))
(command "-style" "HT" "黑体" 0 0.7 0 "" "")
(command "text" "non" pt1 zg "0" wz)
(princ)
)

caiqs 发表于 2019-12-18 22:52:24

本帖最后由 caiqs 于 2019-12-18 22:54 编辑

(defun c:HT (/ pt1 wz zg)
;;写黑体字
(setq pt1 (getpoint "\n指定文本起点:")) ;_提示输入点1
(setq wz (getstring "\n请输入标注文字:")) ;_提示输入“WZ”文字内容，
(setq zg (* 3 (getvar "dimscale"))) ;_设字高为标注的全局比例的3倍
(entmakex (list '(0 . "TEXT")
                  (cons 10 pt1)
                  (cons 40 zg)
                  '(1 . "123")
                  (cons 41 0.7)
                  (cons 7 "HT")
                  '(72 . 0)
                  (cons 11 pt1)
                  '(73 . 0)
            )
)
(princ)
)





qjg_77 发表于 2019-12-26 22:11:09

start4444 发表于 2019-12-14 12:07
(command "-style" "HT" "黑体" 0 0.7 0 "" "" "")把最后的空格去掉

去掉空格后，速度快不少。
页: [1]
查看完整版本: 自己编制小程序，但运行时，有点儿卡，谁能帮我优化下？谢谢！！