Question

用visual lisp对CAD二次开发中怎样修改尺寸标注样式中的参数，急求！

Answer 1

程序如下，可以修改标注样式名，怎么修改标注样式里面的文字高度？

(defun C:TES ( / &ss1 dim1 dim2 dim3)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (setq dim1 (vla-get-DimStyles (vla-get-ActiveDocument (vlax-get-acad-object))));提取标注样式
 (setq &ss1 '())
 (vlax-for dim2 dim1
  (setq &ss1 (cons (vla-get-name dim2) &ss1))
 );取得标注样式集合
 (princ &ss1)
 (setq dim3 (vla-Item dim1 "Standard"));标注样式【Standard】
 ;(vlax-dump-object dim3 t)
 (vla-put-Name dim3 "TSSD");修改名称【Standard】为【TSSD】
 (princ)
)

追问

用autolisp语言如何编程

追答

这个也在摸索中。私信给你。

追问

怎样了？

追答

如果建立标注样式的话，autolisp还可以，修改标注样式的话，autolisp有些困难。建立标注样式由于字数限制看附件：建立【TSSD_50_50-250】标注样式。

追问

已解决，谢谢