标注文字大小设置

726613 · 发表于 2013-6-21 22:23:49

程序：
(defun c:bzh ()
  (setvar "cmdecho" 0)
  (setq ts1 (getDIST "\n-->请输入标注文字高<1.0>:"))
(if (= ts2 nil) (setq ts2 1.0))
(command "dimtxt"  ts2 )
(princ)
)

请问为什么输入标注文字高值2，标出来的还是文字高值1的一样呢?请高手指点迷津

aytxq · 发表于 2013-6-21 22:34:25

(if (= ts2 nil) (setq ts2 1.0)) >>>>(if (= ts2 nil) (setq ts2 ts1))

alwtyp · 发表于 2013-6-21 22:51:11

(defun c:bzh ()
(setvar "cmdecho" 0)
(setq ts1 (getreal "\n-->请输入标注文字高<1.0>:"))
(if (= ts2 nil) (setq ts2 ts1))
(command "dimtxt" ts2 )
(princ)
)

恒毅 · 发表于 2013-6-21 23:22:16

(defun c:bzh ()
  (setvar "cmdecho" 0)
  (setq ts1 (getreal "\n-->请输入标注文字高<1.0>:"))
(if (= ts1 nil) (setq ts1 1))
(command "dimtxt"  ts1 )
(princ)
)

726613 · 发表于 2013-6-22 19:45:23

谢谢以后各位指点

winerfjy · 发表于 2014-11-8 20:41:11

学习了复制源碼奋用

账号		自动登录	找回密码
密码			注册

[已解答] 标注文字大小设置

本帖子中包含更多资源

浏览过的版块