自动标注程序求改进标注显示的位置

yamjqq

自动标注程序标注显示位置的优化
增加了这几句，还是不能实现
(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 )

yamjqq

期待各位老师的指导
自动标注程序：标注颜色、字体高度、间距目前已可以根据用户输入数据进行调整。但程序中有如下错误：标注多个矩形及多个多义线出错，矩形及多义线炸开不能还原。

hbgsw

dimtxt"  2 "dimasz"  0 "dimexo"  0 "dimexe"  0
这些是系统变量，可以用(setvar "dimtxt" 2)这样来实现，更改变量后要保存样式才行的。