对话框中的这几个选项有什么用呢？

lucas3

今天看到一个贴子，又突然想到了一个老程序，有点疑问，让大师们帮忙看看。
1.对话框中的“箭头散” 有什么作用？
2. “色，层绝对” 又有什么作用？没试出效果
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

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

(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您在使用本程序时如有问题，请与huihl@netease.com联系！\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 /> (princ "\nsecond\n\n")<br /> (princ exch)<br /> (princ "\n\n first\n")<br /> (princ exmo3)<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 /> )<br />

Free-Lancer

lucas3 发表于 2014-9-25 23:11
注意看还是会发现一些不同

常用特性用 matchprop 就可以了

其它几个不常用功能单独写更方便

你的几个问题个人猜测

1 箭头散可能是对 Leader 标注中的箭头进行修改

2 色、层绝对可能是针对 图块 及 图块内部实体

3 反向选择一般是有  PickFirst 时，选择不是夹选对象

lucas3

感谢东哥修复 使此贴得以重见天日！{:soso_e179:}

csharp

用matchprop吧，没看出这个有什么特点

lucas3

csharp 发表于 2014-9-25 22:34
用matchprop吧，没看出这个有什么特点

注意看还是会发现一些不同

lucas3

Free-Lancer 发表于 2014-9-26 01:11
常用特性用 matchprop 就可以了

其它几个不常用功能单独写更方便

谢谢Free-Lancer大师解答，几天不见，十分想念！

lucas3

Free-Lancer 发表于 2014-9-25 12:52
常用特性用 matchprop 就可以了

其它几个不常用功能单独写更方便

大师，其实这个我之前用过一段时间，感觉比CAD自带的属性匹配好用，但有一个缺点，就是线型与线型比例，只能直线与直线之间刷，多段线与多段线之间刷， 不能直线的线型（或线型比例）刷到多段线上，同样的，多段线不能刷到直线上，如果这个问题解决了，就可以真正替代“matchprop”了

st788796

lucas3 发表于 2014-9-27 21:03
大师，其实这个我之前用过一段时间，感觉比CAD自带的属性匹配好用，但有一个缺点，就是线型与线型比例， ...

改这个还不如用 eachy 那个 可自由定制的刷子 重写呢

lucas3

st788796 发表于 2014-9-27 21:44
改这个还不如用 eachy 那个 可自由定制的刷子 重写呢

哈哈，长老说的有道理