[原创]比较2个图形的所有系统变量，找到不同的值。
<p> 比较2个图形的所有系统变量，找到不同的值。</p><p> 我们在使用编程时，自己的图形没任何问题，可在别人的图中使用时就用会遇到好多莫名奇妙的问题，不知那里出错了。<br/>我编的程序，从2个图的系统变量入手，找到不同值，有益于分析原因。</p><p> 系统变量的基本参数文件.txt 中共有382个系统变量，当然您还可以再往里加入新的变量（具体操作见文件内的说明）。<br/>分两部：<br/>第一步，JLxitong.LSP 根据所选的同一个“系统变量的基本参数文件.txt”，分别建立两个要比较的系统变量文件；<br/>第二步，bijiao.LS P根据两个系统变量文件进行比较，并把结果存入新文件中。</p><p> 当然每个系统变量代表的含义，还需要您自己查参考书。</p><p>JLxitong.LSP:</p><p>;;;;;;;;;;;在autocad 2004 版以上版本运行<br/>;;;功能：取出CAD图中的所有系统变量<br/>(Defun C:JLxitong (/ dir f name fname textal fnn fn a1www cmd88 fila fnnn aw11) </p><p>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;来源dwj88.lsp<br/>(setq dir (getvar "dwgprefix"))<br/>;(setq cmd (getvar "cmdecho"))<br/> (setvar "cmdecho" 0)<br/> (setq f (getfiled "选择一个系统变量的基本参数文件" "E:\\cadaa\\cx\\" "" 8));系统变量的基本参数文件.txt<br/> (setq f(findfile f))<br/>;;<br/>(while (or (= (setq name (getstring "请输入新生成的系统变量文件名<自动加上后缀.txt>:")) "")<br/> (findfile (strcat name ".txt"))<br/> )<br/> )<br/> (setq fname (strcat dir name ".txt"))<br/> (setq textal(strcat "您准备生成一个文件作为系统变量数据文件: " fname<br/> "\n"<br/> "\n" "文件中每行加入了括号()"<br/> ))<br/> (Alert textal)<br/>;;<br/> (SetQ aw11 0)<br/> (SetQ fn (Open f "r") )<br/> (SetQ fnn (Open fname "w") )<br/>(while (/= (SetQ a1www (Read-Line fn)) !END )<br/> ;(SetQ a1www (Read-Line faa))<br/>(if (and (/= a1www "") (/= a1www " ")) <br/> (progn<br/> (if (or<br/> (and (>= (vl-string-elt a1www 0) (ascii "A") )<br/> (<= (vl-string-elt a1www 0) (ascii "Z") ) )<br/> (and (>= (vl-string-elt a1www 0) (ascii "a") )<br/> (<= (vl-string-elt a1www 0) (ascii "z") ) )<br/> );end or<br/> (progn<br/> (setq a1www(vl-string-right-trim " " a1www))<br/> (setq cmd88 (getvar a1www))<br/> (setq cmd88 (vl-princ-to-string cmd88))<br/> (setq fila (strcat "(" a1www " " cmd88 ")" ) )<br/> (SetQ fnnn (write-line fila fnn )) ;<br/> (SetQ aw11 (+ aw11 1))<br/> );end progn<br/> ) ;end if<br/> );end progn<br/> ) ;end if<br/>);end while<br/> (Close fn)<br/>(Close fnn)<br/> (setq aw11 (itoa aw11))<br/> </p><p>(setq textal(strcat "您参照的系统变量的基本参数文件: "<br/> "\n" f<br/> "\n" <br/> "\n" "您已经生成一个文件作为系统变量数据文件: "<br/> "\n" fname <br/> "\n" "(文件中每行加入了括号，每行一个系统变量)"<br/> "\n" <br/> "\n" "由JLxitong.lsp程序建立的文件"name"中共有: " aw11 " 个系统变量" <br/> <br/> ))<br/> (Alert textal)<br/>(princ "\n END JLxitong.lsp" )<br/> (princ "\n ")<br/> );end</p><p></p><p>bijiao.LSP:</p><p>;;;;;;;;;;;在autocad 2004 版以上版本运行<br/>;;功能：比较2个系统变量文件，这2个系统变量文件，必须由同一个系统变量的基本参数文件生成的。</p><p>(Defun C:biJiao (/ dir f ff name fname textal fnn fn ffn a1www cmd88 fila fnnn<br/> a1w a1w1 a2w a2w2 ss1 s001 sss1 sssaa1 <br/> ss2 s002 sss2 sssaa2<br/> a1waa aw11<br/> <br/> ) </p><p>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;来源dwj88.lsp<br/>(setq dir (getvar "dwgprefix"))<br/>;(setq cmd (getvar "cmdecho"))<br/> (setvar "cmdecho" 0)<br/>(setq f (getfiled "选择第一个文件(由JLxitong.lsp程序生成的文件)" "" "" 8))<br/> (setq f(findfile f))<br/>(setq fn (open f "r"))<br/> <br/>(setq ff (getfiled (strcat "您选择第一个文件是" f<br/> " "<br/> "请选择第二个文件:"<br/> ) f "" 8))</p><p><br/> <br/> (setq ff(findfile ff))<br/>(setq ffn (open ff "r"))<br/>;;<br/>(while (or (= (setq name (getstring "请输入比较系统变量文件后,所得结果的文件名<自动加上后缀.txt>:")) "")<br/> (findfile (strcat name ".txt"))<br/> )<br/> )<br/> (setq fname (strcat dir name ".txt"))<br/> (setq textal(strcat "您已经选好一个文件作为系统变量数据文件: " fname<br/> "\n"<br/> "\n" "文件中每行加入了括号()"<br/> ))<br/> (Alert textal)<br/>;;<br/> (SetQ aw11 0)<br/>(SetQ fnn (Open fname "w") )</p><p> (setq fila "下面是两个文件中不一样的系统变量值" )<br/> (SetQ fnnn (write-line fila fnn )) ;<br/> (setq fila (strcat f "系统变量值:" " " ff "系统变量值:" ) )<br/> (SetQ fnnn (write-line fila fnn )) ;<br/> (setq fila " ")<br/> (SetQ fnnn (write-line fila fnn )) ;<br/> (SetQ fnnn (write-line fila fnn )) ;<br/>;(setq fila (strcat "(" a1www " " cmd88 ")" ) )<br/> ;(SetQ fnnn (write-line fila fnn )) ;<br/>(while <br/>(progn(SetQ a1w1 (Read-Line fn)) (and (/= a1w1 nil) (/= a1w1 "")(/= a1w1 " ") ) )<br/> <br/> ;(SetQ a1w1 (Read-Line fn))<br/> (SetQ a2w2 (Read-Line ffn))<br/> <br/>(setq a1w(vl-string->list a1w1))<br/>(setq a2w(vl-string->list a2w2))<br/> ;;; <br/>(progn<br/> (setq ss1(length a1w))<br/> (setq s001 0 )<br/> (setq sss1 0 )<br/>(repeat ss1<br/> (setq sss01 (nth s001 a1w))<br/> (setq sss1 (+ sss1 sss01))<br/> (setq s001 (+ s001 1) )<br/> )<br/>(setq sssaa1 sss1)<br/>);end progn<br/>(progn<br/> (setq ss2(length a2w))<br/> (setq s002 0 )<br/> (setq sss2 0 )<br/>(repeat ss2<br/> (setq sss02 (nth s002 a2w))<br/> (setq sss2 (+ sss2 sss02))<br/> (setq s002 (+ s002 1) )<br/> )<br/>(setq sssaa2 sss2)<br/>);end progn<br/>;;; <br/> (if (/= sssaa1 sssaa2 )<br/> (progn<br/> (cond ((>= (length a1w) 40)<br/> (progn<br/> (setq fila (strcat a1w1 " " a2w2 ) )<br/> (SetQ fnnn (write-line fila fnn )) ;<br/> );enf progn<br/> )<br/> ((< (length a1w) 40)<br/> (progn <br/> (setq a1waa (substr " " (+ (length a1w) 1) (- 40 (length a1w)) ))<br/> (setq fila (strcat a1w1 a1waa a2w2 ) )<br/> (SetQ fnnn (write-line fila fnn )) ;<br/> );enf progn<br/> ) <br/> );end cond<br/> (SetQ aw11 (+ aw11 1))<br/> <br/> );end progn<br/> <br/> );enf if</p><p>);end while</p><p>(Close fn)(Close ffn)(Close fnn)<br/>(setq aw11 (itoa aw11))<br/>(setq textal(strcat "您选择的第一个文件是: "<br/> "\n" f<br/> "\n" "您选择的第二个文件是:"<br/> "\n" ff<br/> "\n" <br/> "\n" "您已经生成一个文件作为系统变量数据文件经比较后所得到的信息文件: "<br/> "\n" fname <br/> "\n" "(每行一个系统变量)"<br/> "\n" <br/> "\n" "由biJiao.lsp程序建立的文件"name"中共有: " aw11 " 个系统变量不同" <br/> <br/> ))<br/> (Alert textal)<br/>(princ "\n END biJiao.lsp" )<br/> (princ "\n ")<br/> );end</p><p></p><p></p> 下载来好好学习！谢谢！ <p>这个想法倒还真的不错</p> <p>不错，对偶有很好的启发作用。</p><p>谢楼主分享</p> 好东西。。。 有没有办法写出像ET里面的 sysvdlg 命令一样的程序 多谢楼主分享，学习~~~~ 回复一个，做个记号
页:
[1]