增加了这几句,还是不能实现
(setvar "cmdecho" 0)
(setq ts1 (getreal "\n-->请输入标注文字高<2.0>:"))
(if (= ts1 nil) (setq ts1 2))
(command "dimtxt"2 "dimasz"0 "dimexo"0 "dimexe"0)
(command "dimasz"0 )
(command "dimexo"0 )
(command "dimexe"0 ) 期待各位老师的指导
自动标注程序:标注颜色、字体高度、间距目前已可以根据用户输入数据进行调整。但程序中有如下错误:标注多个矩形及多个多义线出错,矩形及多义线炸开不能还原。
dimtxt"2 "dimasz"0 "dimexo"0 "dimexe"0
这些是系统变量,可以用(setvar "dimtxt" 2)这样来实现,更改变量后要保存样式才行的。
页:
1
[2]