用visual lisp对CAD二次开发中怎样修改尺寸标注样式中的参数，急求！ 100
展开全部
程序如下，可以修改标注样式名，怎么修改标注样式里面的文字高度？
(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语言如何编程
追答
这个也在摸索中。私信给你。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
