此程序有点问题，请大师们能帮忙修正

lucas3

试用中发现了以下几个问题，望大师们给改改，谢谢
1.线型与线型比例，不能将LINE的线型与线型比例刷到多段线PL上，PL线的同样不能刷到L线上，但是颜色可以
2.字型比例，只能在单行文字之间刷，多行文字之间不行，单行文字刷到多行文字不行，多行文字刷到单行文字不行，但是文字内容可以相互刷。
3.“箭头散”与“色，层绝对” 不知道有何用？没试出效果
3.下方的 “反向选择”好像也没有什么作用。

对话框：

1. brush : dialog {    label = "分类格式刷 欢迎使用!  HUIHL";    : boxed_column {        label = "要刷取的项目";        : row {            : column {                : toggle {                    label = "线型";                    key = "xx";                    mnemonic = "E";                    fixed_width = true;                }                  : toggle {                    label = "线型比例";                    key = "xxbl";                    mnemonic = "M";                    fixed_width = true;                }  
   
2.                 : toggle {
   
3.                     label = "颜色";
   
4.                     key =  "yc";
   
5.         width=16;
   
6.                     fixed_width = true;
   
7.                 }  
   
8.                 : toggle {
   
9.                     label = "文字类型";
   
10.                     key = "wzlx";
    
11.                     mnemonic = "N";
    
12.                     fixed_width = true;
    
13.                 }  
    
14.                 : toggle {
    
15.                     label = "字高";
    
16.                     key = "zg";
    
17.                     mnemonic = "Q";
    
18.                     fixed_width = true;
    
19.                 }  
    
20.                 : toggle {
    
21.                     label = "字形比例";
    
22.                     key = "zxbl";
    
23.                     mnemonic = "I";
    
24.                     fixed_width = true;
    
25.                 }  
    
26.     : toggle {
    
27.                     label = "文字内容";
    
28.                     key = "wznr";
    
29.                     mnemonic = "I";
    
30.                     fixed_width = true;
    
31.                 }  
    
32. 
    
33.             }
    
34.             : column {
    
35.                 : toggle {
    
36.                     label = "标注样式";
    
37.                     key = "cc";
    
38.                     mnemonic = "s";
    
39.       width=15;
    
40.                     fixed_width = true;
    
41.                 }  
    
42.                 : toggle {
    
43.                     label = "层";
    
44.                     key = "c";
    
45.                     mnemonic = "d";
    
46.                     fixed_width = true;
    
47.                 }  
    
48.                 : toggle {
    
49.                     label = "箭头(散)";
    
50.                     key = "jt";
    
51.                     mnemonic = "T";
    
52.                     fixed_width = true;
    
53.                 }  
    
54.                 : toggle {
    
55.                     label = "字体角度";
    
56.                     key = "ztjd";
    
57.                     mnemonic = "a";
    
58.                     fixed_width = true;
    
59.                 }  
    
60.             
    
61. 
    
62. 
    
63. 
    
64.     : toggle {
    
65.                    label = "圆、弧半径";
    
66.                    key = "bj";
    
67.                    mnemonic = "p";
    
68.                    fixed_width = true;
    
69.                 }
    
70.     : toggle {
    
71.                     label = "色、层绝对";
    
72.                     key = "scjd";
    
73.                     mnemonic = "u";
    
74.                     fixed_width = true;
    
75.                 }  
    
76. 
    
77.    
    
78. 
    
79. 
    
80. 
    
81. 
    
82.             }  //column
    
83. 
    
84. 
    
85. 
    
86.         }  //row  
    
87. 
    
88. :text{
    
89. value="Email//:huihl@netease.com";
    
90. is_bold=false;
    
91. height=1;}  
    
92. 
    
93. :row{   : toggle {
    
94.                     label = "反向选中";
    
95.                     key = sf;
    
96.                     mnemonic = "u";
    
97.                     fixed_width = true;
    
98.                 }  
    
99. 
    
100. : toggle {
     
101.                     label = "记住选择";
     
102.                     key = jzxz;
     
103.                     mnemonic = "u";
     
104.                     fixed_width = true;
     
105.                 }   
     
106. }
     
107. 
     
108.   }  //box
     
109. 
     
110. 
     
111. :row{
     
112. 
     
113. :text{
     
114. value="下列是对象选择过滤器(与型,色层绝对)";
     
115. is_bold=false;
     
116. height=1;}  
     
117. : toggle {
     
118.                     label = "全选/框选";
     
119.                     key = qx;
     
120.                     mnemonic = "u";
     
121.                     fixed_width = true;
     
122.                 }   
     
123. 
     
124. 
     
125. }//endrow
     
126. 
     
127.   
     
128. :boxed_row{
     
129. :column{  
     
130. :popup_list{
     
131.     key="tt1";
     
132.     width=10;
     
133.     list="";
     
134.     }
     
135. 
     
136. :popup_list{
     
137.     key="tt2";
     
138.     width=10;
     
139.     list="";
     
140.     }
     
141. }
     
142. 
     
143. 
     
144. :column{  
     
145. :popup_list{
     
146.     key="tt3";
     
147.     width=10;
     
148.     list="";
     
149.     }
     
150. 
     
151. :popup_list{
     
152.     key="tt4";
     
153.     width=10;
     
154.     list="";
     
155.     }
     
156. }
     
157. }//endrow
     
158. ok_cancel;
     
159. }  //dialog

brush : dialog {    label = "分类格式刷 欢迎使用!  HUIHL";    : boxed_column {        label = "要刷取的项目";        : row {            : column {                : toggle {                    label = "线型";                    key = "xx";                    mnemonic = "E";                    fixed_width = true;                }                  : toggle {                    label = "线型比例";                    key = "xxbl";                    mnemonic = "M";                    fixed_width = true;                }  <br />                 : toggle {<br />                     label = "颜色";<br />                     key =  "yc";<br />         width=16;<br />                     fixed_width = true;<br />                 }  <br />                 : toggle {<br />                     label = "文字类型";<br />                     key = "wzlx";<br />                     mnemonic = "N";<br />                     fixed_width = true;<br />                 }  <br />                 : toggle {<br />                     label = "字高";<br />                     key = "zg";<br />                     mnemonic = "Q";<br />                     fixed_width = true;<br />                 }  <br />                 : toggle {<br />                     label = "字形比例";<br />                     key = "zxbl";<br />                     mnemonic = "I";<br />                     fixed_width = true;<br />                 }  <br />     : toggle {<br />                     label = "文字内容";<br />                     key = "wznr";<br />                     mnemonic = "I";<br />                     fixed_width = true;<br />                 }  <br /> <br />             }<br />             : column {<br />                 : toggle {<br />                     label = "标注样式";<br />                     key = "cc";<br />                     mnemonic = "s";<br />       width=15;<br />                     fixed_width = true;<br />                 }  <br />                 : toggle {<br />                     label = "层";<br />                     key = "c";<br />                     mnemonic = "d";<br />                     fixed_width = true;<br />                 }  <br />                 : toggle {<br />                     label = "箭头(散)";<br />                     key = "jt";<br />                     mnemonic = "T";<br />                     fixed_width = true;<br />                 }  <br />                 : toggle {<br />                     label = "字体角度";<br />                     key = "ztjd";<br />                     mnemonic = "a";<br />                     fixed_width = true;<br />                 }  <br />             <br /> <br /> <br /> <br />     : toggle {<br />                    label = "圆、弧半径";<br />                    key = "bj";<br />                    mnemonic = "p";<br />                    fixed_width = true;<br />                 }<br />     : toggle {<br />                     label = "色、层绝对";<br />                     key = "scjd";<br />                     mnemonic = "u";<br />                     fixed_width = true;<br />                 }  <br /> <br />     <br /> <br /> <br /> <br /> <br />             }  //column<br /> <br /> <br /> <br />         }  //row  <br /> <br /> :text{<br /> value="Email//:huihl@netease.com";<br /> is_bold=false;<br /> height=1;}  <br /> <br /> :row{   : toggle {<br />                     label = "反向选中";<br />                     key = sf;<br />                     mnemonic = "u";<br />                     fixed_width = true;<br />                 }  <br /> <br /> : toggle {<br />                     label = "记住选择";<br />                     key = jzxz;<br />                     mnemonic = "u";<br />                     fixed_width = true;<br />                 }   <br /> }<br /> <br />   }  //box<br /> <br /> <br /> :row{<br /> <br /> :text{<br /> value="下列是对象选择过滤器(与型,色层绝对)";<br /> is_bold=false;<br /> height=1;}  <br /> : toggle {<br />                     label = "全选/框选";<br />                     key = qx;<br />                     mnemonic = "u";<br />                     fixed_width = true;<br />                 }   <br /> <br /> <br /> }//endrow<br /> <br />   <br /> :boxed_row{<br /> :column{  <br /> :popup_list{<br />     key="tt1";<br />     width=10;<br />     list="";<br />     }<br /> <br /> :popup_list{<br />     key="tt2";<br />     width=10;<br />     list="";<br />     }<br /> }<br /> <br /> <br /> :column{  <br /> :popup_list{<br />     key="tt3";<br />     width=10;<br />     list="";<br />     }<br /> <br /> :popup_list{<br />     key="tt4";<br />     width=10;<br />     list="";<br />     }<br /> }<br /> }//endrow<br /> ok_cancel;<br /> }  //dialog

LISP:

1. (defun c:ddbrush(/ sss ee leng n ss standard ok) ;本程序是类似于R14应用程序中经常用的格式刷的功能
   
2. (setq sss (entsel "请输入要刷子原形") )
   
3. (setq mother (entget (car sss)))
   
4. (setq moname (cdr (assoc 0 mother)))
   
5. (setq standard (list -3 '("ACAD" (1000 . "DSTYLE") (1002 . "{") (1002 . "}"))))
   
6. 
   
7. (setq id (load_dialog (findfile "ddbrush.dcl")))
   
8. (if (not (new_dialog "brush" id))
   
9.         (exit)
   
10. )
    
11. 
    
12. 
    
13. (if (= jzxz 1) (init))
    
14. (initl)
    
15. ;--------------------
    
16. (setq mc (assoc 8 mother) mx  (assoc 6 mother) my  (assoc 62 mother))
    
17. (setq myy (cadr (assoc (cdr mc) nn1)) mxx (caddr (assoc (cdr mc) nn1)))
    
18. ;--------------------------
    
19. 
    
20. (setq ok 0)
    
21. (action_tile "accept" "(do_set)(done_dialog 1)")
    
22. (start_dialog)
    
23. (unload_dialog id)
    
24. (if (= ok 0) (exit))        ;如果取消就退出
    
25. 
    
26. 
    
27. (prompt "请选择要修改的实体")
    
28. (if (= qx 1) (setq ss (ssget "x")) (setq ss (ssget ) ))
    
29. (print "请您耐心等待，程序正在处理......")
    
30. (setq leng (sslength ss) n 0 str "")
    
31. (repeat leng
    
32.         (setq ee (ssname ss n))
    
33.         (setq aa (entget ee))
    
34.         (setq name (cdr (assoc 0 aa)))
    
35. 
    
36. (setq yesno f)
    
37. (if (and (= tt1 0) (= tt2 0) (= tt3 0) (= tt4 0)) (setq yesno t)
    
38.         (progn
    
39.         (setq tc (assoc 8 aa) tx  (assoc 6 aa) ty  (assoc 62 aa))
    
40.         (setq tyy (cadr (assoc (cdr tc) nn1)) txx (caddr (assoc (cdr tc) nn1)))
    
41.         
    
42. 
    
43.         (setq ttt1 f)
    
44.         (if (= tt1 0) (setq ttt1 t))
    
45.         (if (and (not (= tt1 0)) (= (car (nth (1- tt1) nn1)) (cdr tc)))        (setq ttt1 t) );;处理层
    
46.         
    
47. 
    
48.         
    
49.         (setq ttt2 f)
    
50.         (if (= tt2 0) (setq ttt2 t)                                                        ;处理线型
    
51.                 (if  (NULL tx)  
    
52.                         ( if (= (nth (1- tt2) nn2) txx) (setq ttt2 t))
    
53.                         (if (= (nth (1- tt2) nn2) (cdr tx)) (setq ttt2 t))
    
54.                 )
    
55.         )
    
56. 
    
57. 
    
58.         (setq ttt3 f)                                                                        ;处理颜色
    
59.         (if (= tt3 0) (setq ttt3 t)
    
60.                 (if (NULL ty)
    
61.                         ( if (= tt3  tyy) (setq ttt3 t))
    
62.                         (if (= tt3 (cdr ty))  (setq ttt3  t))
    
63.                 )
    
64.         )
    
65. 
    
66.         
    
67.         
    
68.         (setq ttt4 f)                                                                        ;处理实体
    
69.         (if (= tt4 0) (setq ttt4 t)
    
70.                 (if (= (nth (1- tt4) nn4) name) (setq ttt4 t))
    
71.         )
    
72. 
    
73. 
    
74. 
    
75.         (setq yesno (and ttt1 ttt2 ttt3 ttt4))
    
76.         
    
77.         );endprogn
    
78. );endif
    
79. 
    
80. 
    
81. (if (= yesno t)
    
82.         (progn
    
83. ( if (and (or (= moname "DIMEMSION") (= moname "CIRCLE") (= moname "ARC") (= moname "INSERT") (= moname "LINE") (= moname "PLINE")  (= moname "LEADER"))
    
84.           (or (= name "DIMEMSION") (= name "INSERT") (= name "LINE")  (= name "CIRCLE") (= name "ARC") (= name "PLINE")  (= name "LEADER")))
    
85.         (progn
    
86.         (if (= xx 1) (myreplace 6))                                                        ;线型
    
87.         (if (= xxbl 1) (myreplace 48))                                                        ;线型比例
    
88.         );ENDPROGN
    
89. )        ;ENDIF
    
90.         
    
91. 
    
92. 
    
93. (if (and (or (= name "TEXT") (= name "MTEXT") (= name "ATTDEF")) (or (= moname "TEXT") (= moname "MTEXT") (= moname "ATTDEF")))
    
94.         (progn
    
95.         (if (= wzlx 1) (myreplace 7))                                                          ;自设系统变量，如果sss不为空，一切字体类型都要更换
    
96.         
    
97.         (if (= zxbl 1) (if  (or (= moname "MTEXT") (= name "MTEXT")) ()        (myreplace 41)));字宽比
    
98.         (if (= zg 1) (myreplace 40))                                                        ;字高
    
99.         
    
100.         (if (= ztjd 1) (myreplace 50))                                                        ;逆时针弧度值
     
101.         (if (= ztjd 1) (myreplace 51))                                                        ;斜体斜角弧度值
     
102.         );;endprogn
     
103. );;endif        
     
104. 
     
105. (if (and (or (= name "TEXT") (= name "MTEXT") (= name "DIMENSION")) (or (= moname "TEXT") (= moname "MTEXT") (= moname "DIMENSION")))
     
106.         (if (= wznr 1) (myreplace 1))                                                        ;文字内容
     
107. )
     
108. 
     
109. ;;;以下两项为专属修改
     
110. (if (and (= moname "DIMENSION") (= "DIMENSION" name))
     
111.         (if (= cc 1)
     
112.                 (progn
     
113.                 (modim)
     
114.                 (myreplace 3)                                                                ;改变尺寸的标注风格
     
115.                 )                                                                         ;改变尺寸
     
116.         )
     
117. )        
     
118. 
     
119. (if (and (= moname "SOLID") (= name "SOLID") (= jt 1)) (mysol))                                ;改变箭头的大小
     
120.         
     
121. (if (and (or (= moname "CIRCLE") (= moname "ARC")) (or (= name "CIRCLE") (= name "ARC")) (= bj 1)) (myreplace 40))  ;半径
     
122. 
     
123. ;;;以下两项为基本属性修改
     
124.         (if (= c 1) (myreplace 8))                ;层
     
125.         (if (= yc 1) (myreplace 62))                ;颜色
     
126.         );;;;endprogn
     
127. );;;;;endif
     
128. 
     
129. 
     
130.    
     
131. (setq n (1+ n))
     
132. )        ;endrep
     
133. 
     
134. (setq ss nil)
     
135. (princ "\n请尊重原作者的辛勤劳动,同时，如果您愿意请为非洲贫困儿童献一份爱心！\n您在使用本程序时如有问题，请与<a href=\"mailto:huihl@netease.com\">huihl@netease.com</a>联系！\n")
     
136. (command "line" '(0 0) "")                ;此语句是为了回退(undo)的需要而编写，即一次只能回退一条操作。
     
137. 
     
138. 
     
139. )        ;endfun
     
140. 
     
141. (defun modim( / exmo exmo3 exch)
     
142. 
     
143. (setq exmo (entget (car sss) '("ACAD")))
     
144. (setq exmo3 (assoc -3 exmo))
     
145. (setq exch (entget ee '("ACAD")))
     
146. (setq exch3 (assoc -3 exch))
     
147. (princ "\nsecond\n\n")
     
148. (princ exch)
     
149. (princ "\n\n first\n")
     
150. (princ exmo3)
     
151.   ;;判断标注对象的样式是否是替换样式
     
152.   (cond
     
153.     ((and exmo3 exch3) (setq exch (subst exmo3 (assoc -3 exch) exch)))
     
154.     ((and exmo3 (not exch3))(setq exch (append exch (list  exmo3))))
     
155.     ((and (not exmo3) exch3) (setq  exch (subst standard (assoc -3 exch) exch)))
     
156.     )
     
157. ;;;(if (not (or (NULL (assoc -3 exch)) (NULL exmo3))) (setq exch (subst exmo3 (assoc -3 exch) exch)))
     
158. ;;;(if (NULL (assoc -3 exch))  (setq exch (append exch (list  exmo3))))
     
159. ;;;(if (NULL exmo3) (setq  exch (subst standard (assoc -3 exch) exch)))
     
160. 
     
161. 
     
162. (princ "\n\nstart newsecond\n")
     
163. (princ exch)
     
164. (princ "\n\nend\n")
     
165. (entmod exch)
     
166. )
     
167. 
     
168. 
     
169. (defun myreplace(attrib / variey1 variey2 variety xxxx yyyy)
     
170. 
     
171. (if (NULL variey1) (setq variey1  (assoc attrib aa)))
     
172. (setq variey2 (cdr (assoc attrib mother)))
     
173. (if (NULL variey2) (setq variey2  (assoc attrib mother)))
     
174. 
     
175. 
     
176. (if (and (not (null variey1)) (not (null variey2)))           
     
177.                         (progn (setq aa
     
178.                               (subst (cons attrib variey2) (assoc                         attrib aa) aa)) (entmod aa))                )                ;endif母有子有，即母子属性不随层
     
179.         
     
180. 
     
181.                
     
182. (if (and  (null variey1) (not (null variey2)) ) (setq aa (append aa                         (list  (assoc attrib mother))))
     
183. )  ;endif母有子没有，即母属性不随层，但子属性随层
     
184. 
     
185. ;以下，母没有子有，即母属性随层，但子属性不随层,分三种情况。。。。。(不知何故cond总是有问题，故用三个if的拙法完
     
186. 
     
187. (if (= scjd 1) (setq xxxx mxx yyyy myy) (setq xxxx "BYLAYER" yyyy 256))  ;用于色层绝对
     
188. 
     
189. (if (and (not (null variey1)) (null variey2) (= attrib 6)) (setq aa   (subst (cons attrib xxxx) (assoc attrib aa) aa)) )                ;线型
     
190. 成
     
191. (if  (and (not (null variey1)) (null variey2) (= attrib 62)) (setq aa   (subst (cons attrib yyyy) (assoc attrib aa) aa)))                ;颜色,注：随层为256;随块为0
     
192. 
     
193. 
     
194. ;;以下是母子都没有的情况
     
195. (if (and (null variey1) (null variey2) (= attrib 6))  (setq aa (append aa (list  (cons attrib xxxx))))        )
     
196. (if (and (null variey1) (null variey2) (= attrib 62))  (setq aa (append aa (list  (cons attrib yyyy))))        )
     
197. 
     
198. 
     
199. 
     
200. (if (and (not (null variey1)) (null variey2)  (= attrib 48 )) (progn (setq aa   (subst (cons attrib 1) (assoc attrib aa) aa)) (princ "ok") (princ aa)))                ;线型比例
     
201. (entmod aa)
     
202. )  ;endsubfun
     
203. 
     
204. 
     
205. (defun mysol(/ ll pt0 pt1)                                                   ;该函数用于修改箭头的大小
     
206. (setq ll (distance (cdr (assoc 10 mother)) (cdr (assoc 13 mother))))
     
207.                 (setq pt0 (cdr (assoc 10 aa)) pt1 (cdr (assoc 11  aa)) pt3 (cdr (assoc 13  aa)))
     
208.                 (setq rate (/ ll (distance pt0 pt3)))
     
209.                 (setq pt0 (snpt pt3 pt0 rate) pt1 (snpt pt3 pt1 rate))               
     
210.                 (setq aa                 
     
211.                         (subst (cons 10 pt0) (assoc 10 aa) aa)
     
212.                 )   
     
213.                 (setq aa                 
     
214.                         (subst (cons 11 pt1) (assoc 11 aa) aa)
     
215.                 )   
     
216. 
     
217.         (entmod aa)
     
218. )
     
219. 
     
220. (defun snpt(p1 p2 rate / sx1 sx2 sx3 sy1 sy2 sy3 )
     
221. (setq sx1 (car p1) sy1 (cadr p1) sx2 (car p2) sy2 (cadr p2))
     
222. (setq sx3 (+ (* rate (- sx2 sx1)) sx1) )
     
223. (setq sy3 (+ (* rate (- sy2 sy1)) sy1) )
     
224. (list sx3 sy3 0.0)
     
225. )
     
226. 
     
227. (defun do_set(/ n)
     
228. (setq sf (atoi (get_tile "sf")))
     
229. (setq jzxz (atoi (get_tile "jzxz")))
     
230. 
     
231. (if (= sf 1) (setq n 1) (setq n 0))
     
232. 
     
233. (setq xx (+ (atoi (get_tile "xx")) n))
     
234. (setq xxbl (+ (atoi (get_tile "xxbl")) n))
     
235. (setq yc (+ (atoi (get_tile "yc")) n))
     
236. (setq wzlx (+ (atoi (get_tile "wzlx")) n))
     
237. (setq  zg (+ (atoi (get_tile "zg")) n))
     
238. (setq zxbl (+ (atoi (get_tile "zxbl")) n))
     
239. (setq wznr (+ (atoi (get_tile "wznr")) n))
     
240. 
     
241. (setq cc (+ (atoi (get_tile "cc")) n))
     
242. (setq c (+ (atoi (get_tile "c")) n))
     
243. (setq jt (+ (atoi (get_tile "jt")) n))
     
244. (setq ztjd (+ (atoi (get_tile "ztjd")) n))
     
245. (setq bj (+ (atoi (get_tile "bj")) n))
     
246. (setq scjd (+ (atoi (get_tile "scjd")) n))
     
247. 
     
248. (setq tt1 (atoi (get_tile "tt1")))
     
249. (setq tt2 (atoi (get_tile "tt2")))
     
250. (setq tt3 (atoi (get_tile "tt3")))
     
251. (setq tt4 (atoi (get_tile "tt4")))
     
252. 
     
253. (setq qx (atoi (get_tile "qx")))
     
254. (setq ok 1)
     
255. 
     
256. )
     
257. 
     
258. (defun init()
     
259. 
     
260. (set_tile "jzxz" (itoa jzxz))
     
261. (if (= sf 1) (setq n 1) (setq n 0))
     
262. (set_tile "sf" (itoa sf))
     
263. (set_tile "xx" (itoa (- xx n)))
     
264. (set_tile "xxbl" (itoa (- xxbl n)))
     
265. (set_tile "yc" (itoa (- yc n)))
     
266. (set_tile "wzlx" (itoa (- wzlx n)))
     
267. (set_tile "zg" (itoa (- zg n)))
     
268. (set_tile "zxbl" (itoa (- zxbl n)))
     
269. (set_tile "wznr" (itoa (- wznr n)))
     
270. 
     
271. (set_tile "cc" (itoa (- cc n)))
     
272. (set_tile "c" (itoa (- c n)))
     
273. (set_tile "jt" (itoa (- jt n)))
     
274. (set_tile "ztjd" (itoa (- ztjd n)))
     
275. (set_tile "bj" (itoa (- bj n)))
     
276. (set_tile "scjd" (itoa (- scjd n)))
     
277. 
     
278. (set_tile "qx" (itoa qx))
     
279. )
     
280. 
     
281. (defun initl()
     
282. (setq nn1 '() nn2 '() nn3 '() nn4 '("LINE" "PLINE" "CIRCLE" "ARC" "TEXT" "MTEXT" "ATTDEF" "DIMENSION" "INSERT" "SOLID") n 0)
     
283. (start_list "tt1" 3)
     
284. (add_list "过滤层(不过滤)")
     
285. (setq blk (tblnext "LAYER" 1))
     
286. 
     
287. (while (not (NULL blk))
     
288. (setq n (1+ n))
     
289. (setq tname (cdr (nth 1 blk)))
     
290. (setq nn1 (append nn1 (list (list  tname (cdr (nth 3 blk)) (cdr (nth 4 blk))))))
     
291. (add_list tname)
     
292. (setq blk (tblnext "LAYER" NIL))
     
293. )
     
294. (end_list)
     
295. 
     
296. 
     
297. (start_list "tt2" 3)
     
298. (add_list "过滤线型(不过滤)")
     
299. (setq blk (tblnext "LTYPE" 1))
     
300. (while (not (NULL blk))
     
301. (setq tname (cdr (nth 1 blk)))
     
302. (setq nn2 (append nn2 (list  tname)))
     
303. (add_list tname)
     
304. (setq blk (tblnext "LTYPE" NIL))
     
305. 
     
306. )
     
307. (end_list)
     
308. 
     
309. (start_list "tt3" 3)
     
310. (add_list "过滤颜色(不过滤)")
     
311. (setq n 0)
     
312. (repeat 255
     
313. (setq n (1+ n))
     
314. (add_list (itoa n))
     
315. )
     
316. (end_list)
     
317. 
     
318. (start_list "tt4" 3)
     
319. (add_list "过滤实体(不过滤)")
     
320. (setq n 0)
     
321. (setq len (length nn4))
     
322. (repeat len
     
323. 
     
324. (add_list (nth n nn4))
     
325. (setq n (1+ n))
     
326. )
     
327. (end_list)
     
328. 
     
329. )

(defun c:ddbrush(/ sss ee leng n ss standard ok) ;本程序是类似于R14应用程序中经常用的格式刷的功能<br /> (setq sss (entsel "请输入要刷子原形") )<br /> (setq mother (entget (car sss)))<br /> (setq moname (cdr (assoc 0 mother)))<br /> (setq standard (list -3 '("ACAD" (1000 . "DSTYLE") (1002 . "{") (1002 . "}"))))<br /> <br /> (setq id (load_dialog (findfile "ddbrush.dcl")))<br /> (if (not (new_dialog "brush" id))<br />         (exit)<br /> )<br /> <br /> <br /> (if (= jzxz 1) (init))<br /> (initl)<br /> ;--------------------<br /> (setq mc (assoc 8 mother) mx  (assoc 6 mother) my  (assoc 62 mother))<br /> (setq myy (cadr (assoc (cdr mc) nn1)) mxx (caddr (assoc (cdr mc) nn1)))<br /> ;--------------------------<br /> <br /> (setq ok 0)<br /> (action_tile "accept" "(do_set)(done_dialog 1)")<br /> (start_dialog)<br /> (unload_dialog id)<br /> (if (= ok 0) (exit))        ;如果取消就退出<br /> <br /> <br /> (prompt "请选择要修改的实体")<br /> (if (= qx 1) (setq ss (ssget "x")) (setq ss (ssget ) ))<br /> (print "请您耐心等待，程序正在处理......")<br /> (setq leng (sslength ss) n 0 str "")<br /> (repeat leng<br />         (setq ee (ssname ss n))<br />         (setq aa (entget ee))<br />         (setq name (cdr (assoc 0 aa)))<br /> <br /> (setq yesno f)<br /> (if (and (= tt1 0) (= tt2 0) (= tt3 0) (= tt4 0)) (setq yesno t)<br />         (progn <br />         (setq tc (assoc 8 aa) tx  (assoc 6 aa) ty  (assoc 62 aa))<br />         (setq tyy (cadr (assoc (cdr tc) nn1)) txx (caddr (assoc (cdr tc) nn1)))<br />         <br /> <br />         (setq ttt1 f)<br />         (if (= tt1 0) (setq ttt1 t))<br />         (if (and (not (= tt1 0)) (= (car (nth (1- tt1) nn1)) (cdr tc)))        (setq ttt1 t) );;处理层<br />         <br /> <br />         <br />         (setq ttt2 f)<br />         (if (= tt2 0) (setq ttt2 t)                                                        ;处理线型<br />                 (if  (NULL tx)  <br />                         ( if (= (nth (1- tt2) nn2) txx) (setq ttt2 t))<br />                         (if (= (nth (1- tt2) nn2) (cdr tx)) (setq ttt2 t))<br />                 )<br />         )<br /> <br /> <br />         (setq ttt3 f)                                                                        ;处理颜色<br />         (if (= tt3 0) (setq ttt3 t)<br />                 (if (NULL ty) <br />                         ( if (= tt3  tyy) (setq ttt3 t))<br />                         (if (= tt3 (cdr ty))  (setq ttt3  t))<br />                 )<br />         )<br /> <br />         <br />         <br />         (setq ttt4 f)                                                                        ;处理实体<br />         (if (= tt4 0) (setq ttt4 t)<br />                 (if (= (nth (1- tt4) nn4) name) (setq ttt4 t))<br />         )<br /> <br /> <br /> <br />         (setq yesno (and ttt1 ttt2 ttt3 ttt4))<br />         <br />         );endprogn<br /> );endif<br /> <br /> <br /> (if (= yesno t)<br />         (progn <br /> ( if (and (or (= moname "DIMEMSION") (= moname "CIRCLE") (= moname "ARC") (= moname "INSERT") (= moname "LINE") (= moname "PLINE")  (= moname "LEADER"))<br />           (or (= name "DIMEMSION") (= name "INSERT") (= name "LINE")  (= name "CIRCLE") (= name "ARC") (= name "PLINE")  (= name "LEADER"))) <br />         (progn<br />         (if (= xx 1) (myreplace 6))                                                        ;线型<br />         (if (= xxbl 1) (myreplace 48))                                                        ;线型比例<br />         );ENDPROGN<br /> )        ;ENDIF<br />         <br /> <br /> <br /> (if (and (or (= name "TEXT") (= name "MTEXT") (= name "ATTDEF")) (or (= moname "TEXT") (= moname "MTEXT") (= moname "ATTDEF")))<br />         (progn<br />         (if (= wzlx 1) (myreplace 7))                                                          ;自设系统变量，如果sss不为空，一切字体类型都要更换<br />         <br />         (if (= zxbl 1) (if  (or (= moname "MTEXT") (= name "MTEXT")) ()        (myreplace 41)));字宽比<br />         (if (= zg 1) (myreplace 40))                                                        ;字高<br />         <br />         (if (= ztjd 1) (myreplace 50))                                                        ;逆时针弧度值<br />         (if (= ztjd 1) (myreplace 51))                                                        ;斜体斜角弧度值<br />         );;endprogn<br /> );;endif        <br /> <br /> (if (and (or (= name "TEXT") (= name "MTEXT") (= name "DIMENSION")) (or (= moname "TEXT") (= moname "MTEXT") (= moname "DIMENSION")))<br />         (if (= wznr 1) (myreplace 1))                                                        ;文字内容<br /> )<br /> <br /> ;;;以下两项为专属修改<br /> (if (and (= moname "DIMENSION") (= "DIMENSION" name)) <br />         (if (= cc 1) <br />                 (progn<br />                 (modim)<br />                 (myreplace 3)                                                                ;改变尺寸的标注风格<br />                 )                                                                         ;改变尺寸<br />         )<br /> )        <br /> <br /> (if (and (= moname "SOLID") (= name "SOLID") (= jt 1)) (mysol))                                ;改变箭头的大小<br />         <br /> (if (and (or (= moname "CIRCLE") (= moname "ARC")) (or (= name "CIRCLE") (= name "ARC")) (= bj 1)) (myreplace 40))  ;半径<br /> <br /> ;;;以下两项为基本属性修改<br />         (if (= c 1) (myreplace 8))                ;层<br />         (if (= yc 1) (myreplace 62))                ;颜色<br />         );;;;endprogn<br /> );;;;;endif<br /> <br /> <br />     <br /> (setq n (1+ n))<br /> )        ;endrep<br /> <br /> (setq ss nil)<br /> (princ "\n请尊重原作者的辛勤劳动,同时，如果您愿意请为非洲贫困儿童献一份爱心！\n您在使用本程序时如有问题，请与<a href=\"mailto:huihl@netease.com\"><a href=\"mailto:huihl@netease.com\">huihl@netease.com</a></a>联系！\n")<br /> (command "line" '(0 0) "")                ;此语句是为了回退(undo)的需要而编写，即一次只能回退一条操作。<br /> <br /> <br /> )        ;endfun<br /> <br /> (defun modim( / exmo exmo3 exch)<br /> <br /> (setq exmo (entget (car sss) '("ACAD"))) <br /> (setq exmo3 (assoc -3 exmo))<br /> (setq exch (entget ee '("ACAD")))<br /> (setq exch3 (assoc -3 exch))<br /> (princ "\nsecond\n\n")<br /> (princ exch)<br /> (princ "\n\n first\n")<br /> (princ exmo3)<br />   ;;判断标注对象的样式是否是替换样式<br />   (cond<br />     ((and exmo3 exch3) (setq exch (subst exmo3 (assoc -3 exch) exch)))<br />     ((and exmo3 (not exch3))(setq exch (append exch (list  exmo3))))<br />     ((and (not exmo3) exch3) (setq  exch (subst standard (assoc -3 exch) exch)))<br />     )<br /> ;;;(if (not (or (NULL (assoc -3 exch)) (NULL exmo3))) (setq exch (subst exmo3 (assoc -3 exch) exch)))<br /> ;;;(if (NULL (assoc -3 exch))  (setq exch (append exch (list  exmo3))))<br /> ;;;(if (NULL exmo3) (setq  exch (subst standard (assoc -3 exch) exch)))<br /> <br /> <br /> (princ "\n\nstart newsecond\n")<br /> (princ exch)<br /> (princ "\n\nend\n")<br /> (entmod exch)<br /> )<br /> <br /> <br /> (defun myreplace(attrib / variey1 variey2 variety xxxx yyyy)<br /> <br /> (if (NULL variey1) (setq variey1  (assoc attrib aa)))<br /> (setq variey2 (cdr (assoc attrib mother)))<br /> (if (NULL variey2) (setq variey2  (assoc attrib mother)))<br /> <br /> <br /> (if (and (not (null variey1)) (not (null variey2)))           <br />                         (progn (setq aa <br />                               (subst (cons attrib variey2) (assoc                         attrib aa) aa)) (entmod aa))                )                ;endif母有子有，即母子属性不随层<br />         <br /> <br />                 <br /> (if (and  (null variey1) (not (null variey2)) ) (setq aa (append aa                         (list  (assoc attrib mother))))<br /> )  ;endif母有子没有，即母属性不随层，但子属性随层 <br /> <br /> ;以下，母没有子有，即母属性随层，但子属性不随层,分三种情况。。。。。(不知何故cond总是有问题，故用三个if的拙法完<br /> <br /> (if (= scjd 1) (setq xxxx mxx yyyy myy) (setq xxxx "BYLAYER" yyyy 256))  ;用于色层绝对<br /> <br /> (if (and (not (null variey1)) (null variey2) (= attrib 6)) (setq aa   (subst (cons attrib xxxx) (assoc attrib aa) aa)) )                ;线型<br /> 成<br /> (if  (and (not (null variey1)) (null variey2) (= attrib 62)) (setq aa   (subst (cons attrib yyyy) (assoc attrib aa) aa)))                ;颜色,注：随层为256;随块为0<br /> <br /> <br /> ;;以下是母子都没有的情况<br /> (if (and (null variey1) (null variey2) (= attrib 6))  (setq aa (append aa (list  (cons attrib xxxx))))        )<br /> (if (and (null variey1) (null variey2) (= attrib 62))  (setq aa (append aa (list  (cons attrib yyyy))))        )<br /> <br /> <br /> <br /> (if (and (not (null variey1)) (null variey2)  (= attrib 48 )) (progn (setq aa   (subst (cons attrib 1) (assoc attrib aa) aa)) (princ "ok") (princ aa)))                ;线型比例<br /> (entmod aa)<br /> )  ;endsubfun<br /> <br /> <br /> (defun mysol(/ ll pt0 pt1)                                                   ;该函数用于修改箭头的大小<br /> (setq ll (distance (cdr (assoc 10 mother)) (cdr (assoc 13 mother))))<br />                 (setq pt0 (cdr (assoc 10 aa)) pt1 (cdr (assoc 11  aa)) pt3 (cdr (assoc 13  aa)))<br />                 (setq rate (/ ll (distance pt0 pt3)))<br />                 (setq pt0 (snpt pt3 pt0 rate) pt1 (snpt pt3 pt1 rate))                <br />                 (setq aa                 <br />                         (subst (cons 10 pt0) (assoc 10 aa) aa)<br />                 )   <br />                 (setq aa                 <br />                         (subst (cons 11 pt1) (assoc 11 aa) aa)<br />                 )   <br /> <br />         (entmod aa)<br /> )<br /> <br /> (defun snpt(p1 p2 rate / sx1 sx2 sx3 sy1 sy2 sy3 )<br /> (setq sx1 (car p1) sy1 (cadr p1) sx2 (car p2) sy2 (cadr p2))<br /> (setq sx3 (+ (* rate (- sx2 sx1)) sx1) )<br /> (setq sy3 (+ (* rate (- sy2 sy1)) sy1) )<br /> (list sx3 sy3 0.0)<br /> ) <br /> <br /> (defun do_set(/ n)<br /> (setq sf (atoi (get_tile "sf")))<br /> (setq jzxz (atoi (get_tile "jzxz")))<br /> <br /> (if (= sf 1) (setq n 1) (setq n 0))<br /> <br /> (setq xx (+ (atoi (get_tile "xx")) n))<br /> (setq xxbl (+ (atoi (get_tile "xxbl")) n))<br /> (setq yc (+ (atoi (get_tile "yc")) n))<br /> (setq wzlx (+ (atoi (get_tile "wzlx")) n))<br /> (setq  zg (+ (atoi (get_tile "zg")) n))<br /> (setq zxbl (+ (atoi (get_tile "zxbl")) n))<br /> (setq wznr (+ (atoi (get_tile "wznr")) n))<br /> <br /> (setq cc (+ (atoi (get_tile "cc")) n))<br /> (setq c (+ (atoi (get_tile "c")) n))<br /> (setq jt (+ (atoi (get_tile "jt")) n))<br /> (setq ztjd (+ (atoi (get_tile "ztjd")) n))<br /> (setq bj (+ (atoi (get_tile "bj")) n))<br /> (setq scjd (+ (atoi (get_tile "scjd")) n))<br /> <br /> (setq tt1 (atoi (get_tile "tt1")))<br /> (setq tt2 (atoi (get_tile "tt2")))<br /> (setq tt3 (atoi (get_tile "tt3")))<br /> (setq tt4 (atoi (get_tile "tt4")))<br /> <br /> (setq qx (atoi (get_tile "qx")))<br /> (setq ok 1)<br /> <br /> )<br /> <br /> (defun init()<br /> <br /> (set_tile "jzxz" (itoa jzxz))<br /> (if (= sf 1) (setq n 1) (setq n 0))<br /> (set_tile "sf" (itoa sf))<br /> (set_tile "xx" (itoa (- xx n)))<br /> (set_tile "xxbl" (itoa (- xxbl n)))<br /> (set_tile "yc" (itoa (- yc n)))<br /> (set_tile "wzlx" (itoa (- wzlx n)))<br /> (set_tile "zg" (itoa (- zg n)))<br /> (set_tile "zxbl" (itoa (- zxbl n)))<br /> (set_tile "wznr" (itoa (- wznr n)))<br /> <br /> (set_tile "cc" (itoa (- cc n)))<br /> (set_tile "c" (itoa (- c n)))<br /> (set_tile "jt" (itoa (- jt n)))<br /> (set_tile "ztjd" (itoa (- ztjd n)))<br /> (set_tile "bj" (itoa (- bj n)))<br /> (set_tile "scjd" (itoa (- scjd n)))<br /> <br /> (set_tile "qx" (itoa qx))<br /> )<br /> <br /> (defun initl()<br /> (setq nn1 '() nn2 '() nn3 '() nn4 '("LINE" "PLINE" "CIRCLE" "ARC" "TEXT" "MTEXT" "ATTDEF" "DIMENSION" "INSERT" "SOLID") n 0)<br /> (start_list "tt1" 3) <br /> (add_list "过滤层(不过滤)")<br /> (setq blk (tblnext "LAYER" 1))<br /> <br /> (while (not (NULL blk))<br /> (setq n (1+ n))<br /> (setq tname (cdr (nth 1 blk)))<br /> (setq nn1 (append nn1 (list (list  tname (cdr (nth 3 blk)) (cdr (nth 4 blk))))))<br /> (add_list tname)<br /> (setq blk (tblnext "LAYER" NIL))<br /> )<br /> (end_list)<br /> <br /> <br /> (start_list "tt2" 3) <br /> (add_list "过滤线型(不过滤)")<br /> (setq blk (tblnext "LTYPE" 1))<br /> (while (not (NULL blk))<br /> (setq tname (cdr (nth 1 blk)))<br /> (setq nn2 (append nn2 (list  tname)))<br /> (add_list tname)<br /> (setq blk (tblnext "LTYPE" NIL))<br /> <br /> )<br /> (end_list)<br /> <br /> (start_list "tt3" 3) <br /> (add_list "过滤颜色(不过滤)")<br /> (setq n 0)<br /> (repeat 255<br /> (setq n (1+ n))<br /> (add_list (itoa n))<br /> )<br /> (end_list)<br /> <br /> (start_list "tt4" 3) <br /> (add_list "过滤实体(不过滤)")<br /> (setq n 0)<br /> (setq len (length nn4))<br /> (repeat len<br /> <br /> (add_list (nth n nn4))<br /> (setq n (1+ n))<br /> )<br /> (end_list)<br /> <br /> )

st788796

联系作者   

lucas3

st788796 发表于 2014-3-17 11:07
联系作者

发过邮件了，总是被退信，应该是邮箱已失效了吧