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

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

2025-03-20 07:57:29

推荐回答（1个）

回答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)
)