[原创]：我提供对天正填充图案问题的一种用lisp解决的方法！

highflybird

这是我提供的一种解决天正填充图案问题的方法，仅供参考。
首先由程序改进acad.pat和acadiso.pat，对CAD的部分保留原autoCAD数据，对天正部分的弄对转换关系，我设计了一个转换程序，能够对图案的数据乘一个系数。
然后设置MEASUREMENT为1，并生成一个acadiso.dwt的文件。
以后用户直接选择acadiso.dwt的样板文件即可。
这是源代码:

2. 
   
3. (alert "这是对天正填充图案bug的一个lisp改进程序!
   
4.        \n这个程序只用一次!先保存你正在进行的作业，
   
5.        \n然后关闭天正和CAD，重新启动天正，在命令
   
6.        \n行中输入gj,即可。关闭天正，然后重新启动，
   
7.        \n选择ACADISO.DWT即消除bug!
   
8.        \n本程序在CADR2004天正6.0以上版本测试通过，
   
9.        \n本程序并非官方发布，由此产生的后果自负."
   
10. )
    
11. (defun C:gj(/ DIMZIN OLDCMD path path1 path2 f1 f2 f3 str str1 1ST)
    
12.   ;;设置rtos能消除后续零和命令不回显
    
13.   (setq DIMZIN (getvar "DIMZIN"))
    
14.   (setq OLDCMD (getvar "CMDECHO"))
    
15.   (setvar "DIMZIN" 8)
    
16.   (setvar "CMDECHO" 0)
    
17.   ;;找到acad.pat,acadiso的路径(包括原CAD和天正的)
    
18.   (find-path)
    
19.   (vl-file-copy (strcat path1 "acad.pat") "C:\\acad.pat")
    
20.   (vl-file-copy (strcat path1 "acadiso.pat") "C:\\acadiso.pat")  
    
21.   ;;保留CAD部分不动
    
22.   (setq f1 (open path2 "r"))                         ;打开天正那个图案填充文件
    
23.   (setq f2 (open "c:\\acad.pat" "a"))                ;追加数据
    
24.   (setq f3 (open "c:\\acadiso.pat" "a"))             ;追加数据
    
25.   (while
    
26.     (and
    
27.       (setq str (read-line f1))
    
28.       (/= str ";;天正提供的填充图案")
    
29.     )
    
30.   )
    
31.   (write-line str f2)
    
32.   (write-line str f3)
    
33.   ;;对天正部分开始转换
    
34.   (while (setq str (read-line f1))
    
35.     (setq 1ST (substr str 1 1))
    
36.     (if (not (or (= 1ST ";") (= 1ST "*") (= str "")));如果不是图案名字行，注释行或者空行
    
37.       (setq str1 (change str 25.4))                  ;就乘上一个25.4的系数
    
38.       (setq str1 str)
    
39.     )
    
40.     (write-line str f2)                              ;把数据添加到acad.pat文件中
    
41.     (write-line str1 f3)                             ;把数据添加到acadiso.pat文件中
    
42.   )
    
43.   (setq lst (reverse lst))
    
44.   (close f1)
    
45.   (close f2)
    
46.   (close f3)
    
47.   ;;把以前的天正的pat文件备份
    
48.   (vl-file-rename
    
49.     path2
    
50.     (vl-string-subst "acad.pat.bak" "acad.pat" path2)
    
51.   )
    
52.   (vl-file-rename
    
53.     (vl-string-subst "acadiso.pat" "acad.pat" path2)
    
54.     (vl-string-subst "acadiso.pat.bak" "acad.pat" path2)
    
55.   )
    
56.   ;;把改正过来的pat文件拷贝到天正系统目录
    
57.   (vl-file-copy "C:\\acad.pat" path2)
    
58.   (vl-file-copy
    
59.     "C:\\acadiso.pat"
    
60.     (vl-string-subst "acadiso.pat" "acad.pat" path2)
    
61.   )
    
62.   ;;删除C盘根目录下的临时pat文件
    
63.   (vl-file-delete "C:\\acad.pat")
    
64.   (vl-file-delete "C:\\acadiso.pat")
    
65.   ;;把系统变量设置为公制
    
66.   (setvar "MEASUREINIT" 1)
    
67.   (setvar "MEASUREMENT" 1)
    
68.   (setq path2 (vl-string-subst "ACADISO.DWT" "acad.pat" path2))
    
69.   (if (not (findfile path2))
    
70.     (command "SAVE" path2 "M" "")
    
71.   )
    
72.   (setvar "DIMZIN" DIMZIN)
    
73.   (setvar "CMDECHO" OLDCMD)
    
74.   (princ)
    
75. )
    
76. ;;;======================================
    
77. ;;;把所有的数字都乘以某个因子(25.4)的函数
    
78. ;;;======================================
    
79. (defun change (str number / i v strlst cdrlst new)
    
80.   (setq strlst (vl-string->list str))                ;字符串转化成表
    
81.   (setq i 0)
    
82.   (setq v nil)
    
83.   (foreach n strlst
    
84.     (cond
    
85.       ( (= n 44)                                     ;如果是逗号
    
86.         (setq v (cons 32 v))                         ;换成空格号
    
87.       )
    
88.       ( (and (= n 46)                                ;如果是点号
    
89.              (setq front (nth (1- i) strlst))        ;且
    
90.              (or (= front 32)                        ;前面是空格号
    
91.                  (= front 44)                        ;或者是逗号
    
92.                  (= front 45)))                      ;或者是负号
    
93.         (setq v (cons 48 v)                          ;则在点号前加零
    
94.               v (cons 46 v)
    
95.         )
    
96.       )
    
97.       (t (setq v (cons n v)))                        ;否则保持不变
    
98.     )
    
99.     (setq i (1+ i))                                  ;计数器递增
    
100.   )
     
101.   (setq strlst (vl-list->string (reverse v)))        ;表又转化成字符串
     
102.   (setq strlst (strcat "(" strlst ")"))              ;加括号
     
103.   (setq strlst (read strlst))                        ;成数字表
     
104.   (setq cdrlst                                       
     
105.     (mapcar
     
106.      '(lambda (x)  
     
107.         (setq new (* number x))                      ;乘以因子(25.4)
     
108.         (setq new (rtos new 2 8))                    ;转化成字符串
     
109.         (setq new (strcat "," new))                  ;前面加逗号
     
110.       )
     
111.       (cdr strlst)                                   ;去掉角度
     
112.     )
     
113.   )
     
114.   (setq strlst (cons (rtos (car strlst) 2 8) cdrlst));重新把角度加进去
     
115.   (apply 'strcat strlst)                             ;还原
     
116. )
     
117. ;;;======================================
     
118. ;;;ACAD和天正的acad.pat,acadiso.pat的路径
     
119. ;;;======================================
     
120. (defun find-path()
     
121.   (setq path (getenv "ACAD"))
     
122.   (setq path (strcase path))
     
123.   (while (wcmatch path "* *")
     
124.     (setq path (vl-string-subst "|" " " path))
     
125.   )
     
126.   (while (wcmatch path "*;*")
     
127.     (setq path (vl-string-subst "" "" ";" path))
     
128.   )
     
129.   (while (wcmatch path "*\\*")
     
130.     (setq path (vl-string-subst "/" "\" path))
     
131.   )
     
132.   (setq path (strcat "("" path "")"))
     
133.   (setq path (read path))
     
134.   (foreach n path
     
135.     (if (wcmatch n "*AUTOCAD|200*/SUPPORT*")
     
136.       (Setq path1 n)
     
137.     )
     
138.   )
     
139.   (while (wcmatch path1  "*/*")
     
140.     (setq path1 (vl-string-subst "\" "/" path1))
     
141.   )
     
142.   (while (wcmatch path1  "*|*")
     
143.     (setq path1 (vl-string-subst " " "|" path1))
     
144.   )
     
145.   (setq path1 (strcat path1 "\"))
     
146.   (setq path1 (vl-string-subst "UserDataCache\\SUPPORT" "SUPPORT" path1))
     
147.   (setq path2 (findfile "acad.pat"))
     
148. )
     

<br /> (alert "这是对天正填充图案bug的一个lisp改进程序!<br />        \n这个程序只用一次!先保存你正在进行的作业，<br />        \n然后关闭天正和CAD，重新启动天正，在命令<br />        \n行中输入gj,即可。关闭天正，然后重新启动，<br />        \n选择ACADISO.DWT即消除bug!<br />        \n本程序在CADR2004天正6.0以上版本测试通过，<br />        \n本程序并非官方发布，由此产生的后果自负."<br /> )<br /> (defun C:gj(/ DIMZIN OLDCMD path path1 path2 f1 f2 f3 str str1 1ST) <br />   ;;设置rtos能消除后续零和命令不回显<br />   (setq DIMZIN (getvar "DIMZIN"))<br />   (setq OLDCMD (getvar "CMDECHO"))<br />   (setvar "DIMZIN" 8)<br />   (setvar "CMDECHO" 0)<br />   ;;找到acad.pat,acadiso的路径(包括原CAD和天正的)<br />   (find-path)<br />   (vl-file-copy (strcat path1 "acad.pat") "C:\\acad.pat")<br />   (vl-file-copy (strcat path1 "acadiso.pat") "C:\\acadiso.pat")  <br />   ;;保留CAD部分不动<br />   (setq f1 (open path2 "r"))                         ;打开天正那个图案填充文件<br />   (setq f2 (open "c:\\acad.pat" "a"))                ;追加数据<br />   (setq f3 (open "c:\\acadiso.pat" "a"))             ;追加数据<br />   (while<br />     (and<br />       (setq str (read-line f1))<br />       (/= str ";;天正提供的填充图案")<br />     )<br />   )<br />   (write-line str f2)<br />   (write-line str f3)<br />   ;;对天正部分开始转换<br />   (while (setq str (read-line f1))<br />     (setq 1ST (substr str 1 1))<br />     (if (not (or (= 1ST ";") (= 1ST "*") (= str "")));如果不是图案名字行，注释行或者空行<br />       (setq str1 (change str 25.4))                  ;就乘上一个25.4的系数<br />       (setq str1 str)<br />     )<br />     (write-line str f2)                              ;把数据添加到acad.pat文件中<br />     (write-line str1 f3)                             ;把数据添加到acadiso.pat文件中<br />   )<br />   (setq lst (reverse lst))<br />   (close f1)<br />   (close f2)<br />   (close f3)<br />   ;;把以前的天正的pat文件备份<br />   (vl-file-rename<br />     path2<br />     (vl-string-subst "acad.pat.bak" "acad.pat" path2)<br />   )<br />   (vl-file-rename <br />     (vl-string-subst "acadiso.pat" "acad.pat" path2)<br />     (vl-string-subst "acadiso.pat.bak" "acad.pat" path2)<br />   )<br />   ;;把改正过来的pat文件拷贝到天正系统目录<br />   (vl-file-copy "C:\\acad.pat" path2)<br />   (vl-file-copy<br />     "C:\\acadiso.pat"<br />     (vl-string-subst "acadiso.pat" "acad.pat" path2)<br />   )<br />   ;;删除C盘根目录下的临时pat文件<br />   (vl-file-delete "C:\\acad.pat")<br />   (vl-file-delete "C:\\acadiso.pat")<br />   ;;把系统变量设置为公制<br />   (setvar "MEASUREINIT" 1)<br />   (setvar "MEASUREMENT" 1)<br />   (setq path2 (vl-string-subst "ACADISO.DWT" "acad.pat" path2))<br />   (if (not (findfile path2))<br />     (command "SAVE" path2 "M" "")<br />   )<br />   (setvar "DIMZIN" DIMZIN)<br />   (setvar "CMDECHO" OLDCMD)<br />   (princ)<br /> )<br /> ;;;======================================<br /> ;;;把所有的数字都乘以某个因子(25.4)的函数<br /> ;;;======================================<br /> (defun change (str number / i v strlst cdrlst new)<br />   (setq strlst (vl-string->list str))                ;字符串转化成表<br />   (setq i 0)<br />   (setq v nil)<br />   (foreach n strlst<br />     (cond<br />       ( (= n 44)                                     ;如果是逗号<br />         (setq v (cons 32 v))                         ;换成空格号<br />       )<br />       ( (and (= n 46)                                ;如果是点号<br />              (setq front (nth (1- i) strlst))        ;且<br />              (or (= front 32)                        ;前面是空格号<br />                  (= front 44)                        ;或者是逗号<br />                  (= front 45)))                      ;或者是负号<br />         (setq v (cons 48 v)                          ;则在点号前加零<br />               v (cons 46 v)<br />         )<br />       )<br />       (t (setq v (cons n v)))                        ;否则保持不变<br />     )<br />     (setq i (1+ i))                                  ;计数器递增<br />   )<br />   (setq strlst (vl-list->string (reverse v)))        ;表又转化成字符串<br />   (setq strlst (strcat "(" strlst ")"))              ;加括号<br />   (setq strlst (read strlst))                        ;成数字表<br />   (setq cdrlst                                       <br />     (mapcar<br />      '(lambda (x)  <br />         (setq new (* number x))                      ;乘以因子(25.4)<br />         (setq new (rtos new 2 8))                    ;转化成字符串<br />         (setq new (strcat "," new))                  ;前面加逗号<br />       )<br />       (cdr strlst)                                   ;去掉角度<br />     )<br />   )<br />   (setq strlst (cons (rtos (car strlst) 2 8) cdrlst));重新把角度加进去<br />   (apply 'strcat strlst)                             ;还原<br /> )<br /> ;;;======================================<br /> ;;;ACAD和天正的acad.pat,acadiso.pat的路径<br /> ;;;======================================<br /> (defun find-path()<br />   (setq path (getenv "ACAD"))<br />   (setq path (strcase path))<br />   (while (wcmatch path "* *")<br />     (setq path (vl-string-subst "|" " " path))<br />   )<br />   (while (wcmatch path "*;*")<br />     (setq path (vl-string-subst "" "" ";" path))<br />   )<br />   (while (wcmatch path "*\\*")<br />     (setq path (vl-string-subst "/" "\" path))<br />   )<br />   (setq path (strcat "("" path "")"))<br />   (setq path (read path))<br />   (foreach n path<br />     (if (wcmatch n "*AUTOCAD|200*/SUPPORT*")<br />       (Setq path1 n)<br />     )<br />   )<br />   (while (wcmatch path1  "*/*")<br />     (setq path1 (vl-string-subst "\" "/" path1))<br />   )<br />   (while (wcmatch path1  "*|*")<br />     (setq path1 (vl-string-subst " " "|" path1))<br />   )<br />   (setq path1 (strcat path1 "\"))<br />   (setq path1 (vl-string-subst "UserDataCache\\SUPPORT" "SUPPORT" path1))<br />   (setq path2 (findfile "acad.pat"))<br /> )<br />

有什么不对的地方请大家多多指教。

如果直接拷贝上面代码段不对的话，请到
http://www.abbs.com.cn/bbs/post/ ... amp;tpg=1&age=0
下载附件！

民工.

稍微看了一下源程序，根据我的理解，你从根本上解决天正填充的错误，

首先，说明你后来认识到了，可见那位假民工提的问题是对的，你在帮天正说话时并没有那位假民工清楚这件事，不过，后来是稿清楚了，
其次，你不仅自己搞清楚，而且积极地去帮大家解决问题，而且是在你的强烈呼吁得不到满意回答后，

有帖为证：史大林竟如此说：
[B]"正在修改一个acad.pat ，所有图案直接用100比例时填充图案在中国图纸上都能正确显示。
acadiso和acad.pat一致，反正中国都习惯用公制，acadiso.pat和acad.pat什么区别大部分人不清楚，也不必搞清楚。
把修改好的图案发上来给你试一试，如果没有问题就给大家用了。"[/B]

既然“反正中国都习惯用公制”，为什么那位史大林还在改acad.pat？并且上传的文件就是acad.pat.

"acadiso.pat和acad.pat什么区别大部分人不清楚",谁不清楚？你史大林自己搞清楚了没有？你以为大家都象你史大林一样烂吗？

天正有错误，不是不可以理解。天正的态度才是我们大家计较的，大家讨厌的。

最后，对你的努力和你的诚恳表示敬意！尽管我们再也不用天正了，你的程序对我们没用，但我们看好的是你的态度，你的作为。

水是这样灌溉的

用楼主的链接，下载了史大林上传的acad.pat，对天正强烈谴责强烈鄙视！！！

众所周知，acad.pat和acadiso.pat都是AutoCAD的文件，不是天正造出来的天正文件，天正有能耐就取一个自己的文件名，

史大林上传的acad.pat，里面完全没有了原来AutoCAD定义的图案，

当然，天正可以说，这个文件放在天正的目录下，原来AutoCAD的acad.pat,acadiso.pat还在，没有破坏它呀，

可是，
假如我不幸安装了天正的插件，
假如我不幸忘了把天正的支持路径拉下马，
假如我不幸没下载楼主的程序进行处理，

那我如何找到AutoCAD的填充？

天正修改这个错误有这么困难吗？

1，打开AutoCAD的原始acad.pat,acadiso.pat，在文件的最后 追加 天正定义的图案覆盖掉天正目录下的原文件，
2，把强制设置MEASUREMENT为0的去掉，
就如此简单，天正为什么不做？？

注意，应该   追加 [/COLOR] ，而不是   替换 [/COLOR] ，

天正无权覆盖掉AutoCAD的东西！！！！！！！！！！！ [/COLOR]

看这次填充图案的讨论，看天正的所谓修改，结论： 天正实在垃圾！！！  [/COLOR]

alim

奇怪，楼主的程序在2008下闹脾气了？

命令: _appload 已成功加载 tzpat.lsp。


命令: 输入的字符串有缺陷
命令:
命令: gj
no function definition: FIND-PATH

这里Copy的代码不行，可能是网页上“PHP 代码”造成的，少了N多“\”符号。ABBS上下的没问题。

楼主的精神是可嘉的，值得尊敬的。但是，楼主的努力似乎是无效的——很打击？*-*2

天正的问题还是要有天正来解决。

打过楼主提供的补丁之后，重新打开天正，直接画图的话，这时候用的模板仍然是ACAD.DWT，仍然是在英制的模板上画公制的图，除非新建文件，手选ACADISO.DWT。

如果只是用天正的话，大家都懵懵懂懂糊里糊涂，这个问题也不会被发现。这个问题只是在交流的时候，在天正与纯ACAD间才显得特别突出。

打了补丁之后，在打补丁的天正与未打补丁的天正之间，在纯ACAD与未打补丁的天正之间，矛盾仍然存在。

并且，只要天正自己不解决，随着天正的事业不断兴旺发达，新用户不断增加，这个矛盾必将在天正新用户中香火不断代代相传源远流长下去。

天正反正就是积重难返尾大不掉了。

民工.

天正的问题不是不能解决，关键是天正想不想解决，最关键的是天正是否真正懂得“二次开发”这四个字，

天正对“二次开发”的认识是错误的，种种迹象显示，天正总在作一种“努力”：让用户只知道天正而不知道AutoCAD，

“二次开发”借用别人的平台作进一步的专业化的开发，这并不丢脸，为什么要“开发”，是因为别人没有，别人有的你就别去动脑筋，明明AutoCAD已经有的功能，你如果去画蛇添足，怡笑大方、啼笑皆非的结果似乎是必然的。

尺寸标注样式、线型全局比例、字体、图纸比例等等，你根本就别去“开发”，填充图案你可以追加，别去管AutoCAD原来的对不对，系统变量根本别去乱改，你程序中需要临时改变可以，程序结束时予以恢复，

AutoCAD已经有的功能，统统取消，那个假“注释比例”也消灭掉，你管人家画1：100还是1：50，图纸比例用得着你天正公司来规定吗？

HLB_Konan

好贴 现在这种帖子不多见了 天正是垃圾 他的问题他何尝不知呀 另外 alim 提到的 似乎2008对二次开发的东西 不怎么支持了 我原先的程序 也基本废掉了 以前程序主要跟系统变量有关 现在的注释比例 用起来很方便 ps:天正在自取灭亡 （问一个题外话：民工和民工. 那个是真的^_^）

alim

最初由 HLB_Konan 发布
[B]好贴 现在这种帖子不多见了 天正是垃圾 他的问题他何尝不知呀 另外 alim 提到的 似乎2008对二次开发的东西 不怎么支持了 我原先的程序 也基本废掉了 以前程序主要跟系统变量有关 现在的注释比例 用起来很方便 ps:天?... [/B]

我提到的，是我的帖子没改好。原因是在这里拷贝的代码有问题。

ABBS上下载的在2008下执行不会出错。

highflybird

用一句话来说：
有心杀贼，无力回天！

这个“贼“,不仅有天正的，而且也有autoCAD的。
说实在话，天正这个错误不可能由我这个用户解决，我早说了，对于软件公司，能不能采纳我们的建议，我是无能为力的。
另外，还是那句话：天正选择的是下下策，天正的错，是错上加错，同样并不能说明autoCAD没有错，只不过它的错已经是积重难返了，已经成为事实的标准，如果你要反驳我，但我不会在再这个问题上讨论了。
我这个程序能用则用，高手也不用我的，普通用户也估计有很多不知道其中缘由，反正是竹篮打水。

另外，我再重申：天正不是垃圾，它的很多功能对建筑来说很有用，包括一些图库，门窗，构造，节点大样，节能日照等等，只不过对其他专业的来说，并不适合

而且这个软件在标准，CAD制图规范，以及一些其他错误能做改进就好了。也真心希望不要借口软件人员不是搞建筑的，不要借口已经成为习惯了，对软件的常见错误不改。(说实在话,我尽管用了很久,曾经有一次察觉到这个问题,但忽略过去了,后来因大部分只是关注图面,而忽略了这个工具的问题),

还有我们真心希望这个论坛，中国所有的CAD论坛，和所有的论坛是一个和谐的论坛，是一个实实在在的论坛。

民工

很早以前我就跟某位高手探讨过用程序修复天正错误的问题。
当时设想的步骤如下：
1. 首先，新版本的天正要纠正以前出于对acad认识不深犯的低级错误；
2. 然后，针对老用户、旧图纸，提供修改器，批量修改旧图，只要你的程序做得好，就像装系统补丁或是扫描病毒一样，用户就不会觉得麻烦，这样就能顺利的转换。

做“二次开发”，还是不要喧宾夺主，毕竟你天正不能覆盖所有专业，做工程人不考虑与其他专业配合的话就不是一个合格的工程人员。通过自己搞一套不通用的东西套住一帮“忠实”用户的做法，可能很管用，但是不厚道，就像火锅里放罂粟壳一样。

最后，对楼主这种积极改正不是自己造成的错误的态度表示赞赏。

highflybird

对那些用天正的,还有一点提醒:
就是在CAD配置中工具--选项--文件---样板配置--快速新建默认样板文件名--
c:\tangent\tarch7\sys\acadiso.dwt

关于对我的这个lisp程序是否会采纳,请看:
http://www.abbs.com.cn/bbs/post/ ... amp;sty=1#335516498

诚如alim所说，不管怎么样，我这种种解决办法，不能真正改进天正的这个错误，矛盾依然存在，只是希望它的下一个版本能完全更正过来，希望它有更正这个痼疾的勇气。

HLB_Konan

我说的话 也有点过激 天正在建筑方面确实有它的独到之处 只是不否的事实 其它专业的开发就不如建筑那么好了 我装了插件 它就修改我的比例 我一气之下 弃之不用 让建筑给我另存旧版 另存旧版 倒是能够打开 主要是节点部分的标注比例 一踏糊涂 你说怎么办？

民工.

强行更改主页------叫“流氓软件”
强行修改比例------叫什么来着？

柔柔

AutoCAD也有错，2008到现在还不见SP1出来，心里特不踏实，尽管至今还没发现有什么问题，

AutoCAD设置也不怎么样，缺省的字体样式STANDARD老是用那个txt.shx，柔柔总认为它没有romans.shx好看，那我就不去用它呀，自己新建个样式，而不是把STANDARD的字体改掉，

天正完全可以认为AutoCAD的填充图案不漂亮，那你就别去用它，追加自己的不就可以吗？天正的“忠实用户”就用天正的，象民工一样的“捣蛋用户”继续用AutoCAD的。

农村人爱穿西装冒充城里人，而城里人喜欢穿补丁衣服拍照冒充民工，各人所爱嘛，

天正把自己的填充图案不是追加在AutoCAD之后，而是覆盖掉AutoCAD原始的，不厚道。*-*a *-*a *-*a

HLB_Konan

向柔柔问好 有很多问题想请教你 但不知道如何联系你 比如你在那个群 qq  或email 什么之类的

alim

“谢谢你的关心，我们也采纳了，做出了改进。 ”

很轻巧的，好像是完事了。但是不知道这个“采纳了”并且“做出了改进”是指什么，难道就是前面那个修改了的ACAD.PAT？若是，则更令正版天正的忠实用户们齿冷心寒不已了^_^