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

qjg_77

(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

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

烟盒迷唇

对极了，这种就该用entmake

start4444

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

zixuan203344

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

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

xyp1964

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

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

caiqs

(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

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

去掉空格后，速度快不少。