liminnet
发表于 2008-8-14 09:59:00
ZZXXQQ
发表于 2008-8-14 13:49:00
<p>1、可以事先保存所有CAD的变量，在改过变量后再逐个比较。</p><p>2、好象用SAVEAS才能设置文件保存格式。</p>
liminnet
发表于 2008-8-14 14:01:00
ZZXXQQ
发表于 2008-8-14 14:11:00
(setq fnm (getfiled "选择文件" (getvar "DWGPREFIX") "*" 9))
liminnet
发表于 2008-8-14 14:52:00
飞诗(fsxm)
发表于 2008-8-14 17:16:00
本帖最后由 作者 于 2008-8-14 17:21:21 编辑 <br /><br /> <p>用个系统变量反应器哈~一改系统变量就触发了。。。。。</p><p>呵呵管你用什么对话框，改了什么系统变量一个都跑不了滴！</p>
jaminth
发表于 2008-8-14 20:26:00
系统变量反应器,fsxm能不能提供下载!!?
飞诗(fsxm)
发表于 2008-8-14 20:59:00
(vlr-editor-reactor data callbacks):vlr-sysVarWillChange
AutoCAD 即将修改系统变量的值。
:vlr-sysVarChanged
已修改系统变量的值。
:vlr-sysVarWillChange
1
表示系统变量的字符串。
:vlr-sysVarChanged
2
第一个参数是表示系统变量的字符串。
第二个参数为整数型，表示修改是否成功（1 = 成功，0 = 失败）。
按格式套上就是是了哈~如下：
一个简易的系统变量监视器就做成了。。。。。
(or reactor
(setq reactor
(vlr-editor-reactor
nil
'((:vlr-sysVarWillChange . test0)
(:vlr-sysVarChanged . test)
)
)
)
)
(defun test0 (o d)
(setq oldvar (getvar (car d)))
)
(defun test (o d)
(setq newvar (getvar (car d)))
(if (and (cadr d)
(not (equal oldvar newvar))
)
(alert (strcat "变量"
(car d)
"的值由"
(vl-princ-to-string oldvar)
"改为了"
(vl-princ-to-string newvar)
)
)
)
)
QUAN2518
发表于 2008-8-14 21:07:00
<p>哇</p><p>不错偶</p>
liminnet
发表于 2008-8-15 09:03:00