[求助]求一lsp程序，将尺寸标注里的文字高度改为300，箭头大小改为100。

lengliqun

求一lsp程序，将尺寸标注里的文字高度改为300，箭头大小改为100。

ZZXXQQ

(defun c:tt ()

 (setvar "CMDECHO" 0)

 (setvar "DIMTXT" 300)

 (setvar "DIMASZ" 100)

 (command "-dimstyle" "S" (getvar "DIMSTYLE") "y")

 (setvar "CMDECHO" 1)

 (princ)

)

lengliqun

运行完命令后，自动将有的标注改得符合要求，但有的标注并没有发生变化，文字高度还是400，箭头大小还是266.67。

 

能否的一个选择的操作，将所选择尺寸标注里的文字统一高度改为300，箭头大小改为100，这样图面比较美观。

ZZXXQQ

再更新一下尺寸就行了。

(defun c:tt ()

 (setvar "CMDECHO" 0)

 (setvar "DIMTXT" 300)

 (setvar "DIMASZ" 100)

 (command "-dimstyle" "S" (getvar "DIMSTYLE") "y")

 (command "-dimsytle" "A" all "")

 (setvar "CMDECHO" 1)

 (princ)

)

lengliqun

 

1、可不可以只改选择到的标注？

 

2、对曾经被手动改过字高的标注始终无效？

 

 

ZZXXQQ

头一个程序就是不改手动改过字高的标注。

如果非要人工选择，将all改成PAUSE就行了。

461045462

谢谢版主

从中学到举一反三的原理。

方便实用,很不错。

lengliqun

明了，谢谢版主。

lwz2001

是否能做一个LISP把所选择到的尺寸标注标注线长固定为一个固定的长度呢？

longer1000

谢谢版主。