社区 › AutoLISP/Visual LISP 编程技术 › 关于修改标注样式的问题

错过8095 发表于 2013-12-20 20:10:03

下来看看，研究研究

错过8095 发表于 2013-12-20 20:10:45

下来看看，研究研究2

错过8095 发表于 2013-12-20 20:11:35

为什么要5个贴呢

错过8095 发表于 2013-12-20 20:12:28

想看贴，接着发

错过8095 发表于 2013-12-20 21:51:32

最后一次，离成功只有一步

zgxwychengg 发表于 2014-10-16 09:12:29

不错，这种问题我也遇到了

zixiaosl 发表于 2014-10-19 21:42:46

太好了 真棒！

longxh28 发表于 2015-1-27 17:02:50

正在学习相关内容

布朗运动 发表于 2015-2-6 16:27:52

ZZXXQQ 发表于 2009-3-14 10:07 static/image/common/back.gif


感谢版主帮助，这是我写的自动修改标注样式管理器中所有标注样式的小程序，供参考
(defun C:#DI()
(setq #olddimstylename (getvar "dimstyle"))                        ;记录当前标注样式
(setq #dimstylename (cdr (assoc 2(tblnext"dimstyle" T))))   ;取得第一个标注样式名称
(command "-dimstyle" "r" #dimstylename)                            ;将其设为当前标注样式
(setvar "dimlwd"9)               ;修改标注样式某个系统变量，本例中为尺寸线线宽，同时产生了样式替代
(setvar "dimlwe"9)   
(command "-dimstyle" "s" #dimstylename "y")      ;将系统变量保存到该标注样式，该语句消除了样式替代
(while(setq #next (tblnext"dimstyle") )             ;进行下一个标注样式修改
   (setq #dimstylename (cdr (assoc 2#next)))   ;取得下一个标注样式名称
   (command "-dimstyle" "r" #dimstylename)
   (setvar "dimlwd"9)
   (setvar "dimlwe"9)
   (command "-dimstyle" "s" #dimstylename "y")
)
(command "-dimstyle" "r" #olddimstylename)   ;恢复初始标注样式
(princ)
)

清山小石 发表于 2015-3-9 22:02:17

11111

查看完整版本: 关于修改标注样式的问题