【2022元旦福利】好玩又实用的菜单，密集恐惧症的福音，新手的知音--刀图菜单系统

dtucad

【2022元旦福利】好玩又实用的菜单，密集恐惧症的福音，新手的知音--刀图菜单系统V1.0

厌倦了DCL的按钮吗？来试试不一样体验。
不需要学习DCL，0基础就能玩。
永久免费无限制，明经用户福利
（免币了这么久，2022.5.8开始收个币）

测试说明：
1、命令netload加载dll文件；
2、加载例子lisp文件；
3、输入tt或ttt命令。
例子中包含使用说明

问题：
如果DLL文件加载出错，可以尝试以下方法解决
1、dll文件右键，取得管理员权限
2、将dll文件放到CAD支持文件路径
3、如以上方法不能解决请加群咨询

1. ;刀图圆形菜单-V1.0  2021.12.31  QQ群：894659298
   
2. ;
   
3. ;测试说明：
   
4. ;1、命令netload加载dll文件；
   
5. ;2、加载例子lisp文件；
   
6. ;3、输入tt或ttt命令。
   
7. ;
   
8. ;使用说明：
   
9. ;1、调用菜单函数：(DTU-CircleMenu "test1.ini" 500 4 8)
   
10. ;参数1 配置文件名(字符串)
    
11. ;参数2 圆形直径(整数，建议200以上，最大600)
    
12. ;参数3 同心圆数量(大于等于2的整数)
    
13. ;参数4 扇形数量(整数，建议10以内)
    
14. ;
    
15. ;2、ini配置文件格式举例：直线=line
    
16. ;等号前"直线"为菜单显示名字
    
17. ;等号后"line"为命令名字，命令可以是cad命令或lisp函数名
    
18. ;3、原理：将等号后命令发送到cad并执行。
    
19. 
    
20. ;调用刀图圆形菜单例子1
    
21. (defun c:tt ()
    
22.   (DTU-CircleMenu "test1.ini" 300 3 6)
    
23.   (princ)
    
24. )
    
25. 
    
26. ;测试代码1
    
27. (defun c:test1 ()
    
28.   (alert "刀图圆形菜单测试1")
    
29.   (princ "\n刀图圆形菜单测试1")
    
30.   (princ)
    
31. )
    
32. 
    
33. ;测试代码2
    
34. (defun test2 ()
    
35.   (alert "刀图圆形菜单测试2")
    
36.   (princ "\n刀图圆形菜单测试2")
    
37.   (princ)
    
38. )
    
39. 
    
40. ;调用刀图圆形菜单例子2
    
41. (defun c:ttt ()
    
42.   (DTU-CircleMenu "test2.ini" 400 4 8)
    
43.   (princ)
    
44. )

;刀图圆形菜单-V1.0  2021.12.31  QQ群：894659298<br /> ;<br /> ;测试说明：<br /> ;1、命令netload加载dll文件；<br /> ;2、加载例子lisp文件；<br /> ;3、输入tt或ttt命令。<br /> ;<br /> ;使用说明：<br /> ;1、调用菜单函数：(DTU-CircleMenu "test1.ini" 500 4 8)<br /> ;参数1 配置文件名(字符串)<br /> ;参数2 圆形直径(整数，建议200以上，最大600)<br /> ;参数3 同心圆数量(大于等于2的整数)<br /> ;参数4 扇形数量(整数，建议10以内)<br /> ;<br /> ;2、ini配置文件格式举例：直线=line<br /> ;等号前"直线"为菜单显示名字<br /> ;等号后"line"为命令名字，命令可以是cad命令或lisp函数名<br /> ;3、原理：将等号后命令发送到cad并执行。<br /> <br /> ;调用刀图圆形菜单例子1<br /> (defun c:tt ()<br />   (DTU-CircleMenu "test1.ini" 300 3 6)<br />   (princ)<br /> )<br /> <br /> ;测试代码1<br /> (defun c:test1 ()<br />   (alert "刀图圆形菜单测试1")<br />   (princ "\n刀图圆形菜单测试1")<br />   (princ)<br /> )<br /> <br /> ;测试代码2<br /> (defun test2 ()<br />   (alert "刀图圆形菜单测试2")<br />   (princ "\n刀图圆形菜单测试2")<br />   (princ)<br /> )<br /> <br /> ;调用刀图圆形菜单例子2<br /> (defun c:ttt ()<br />   (DTU-CircleMenu "test2.ini" 400 4 8)<br />   (princ)<br /> )

本代码修改自：http://bbs.mjtd.com/thread-111059-1-1.html

1. ;刀图矩形菜单-V1.0  2021.12.31  QQ群：894659298
   
2. ;快速选择（命令：xx）--刀图矩形菜单实例
   
3. ;
   
4. ;测试说明：
   
5. ;1、命令netload加载dll文件；
   
6. ;2、加载例子lisp文件；
   
7. ;3、输入tt或ttt命令。
   
8. ;
   
9. ;使用说明：
   
10. ;1、调用菜单函数：(DTU-RectMenu "ksxz.ini" 650 200 3 4)
    
11. ;参数1 配置文件名(字符串)
    
12. ;参数2 矩形菜单宽度(整数)
    
13. ;参数3 矩形菜单高度(整数)
    
14. ;参数4 行数(整数)
    
15. ;参数5 列数(整数)
    
16. ;
    
17. ;2、ini配置文件格式举例：直线=line
    
18. ;等号前"直线"为菜单显示名字
    
19. ;等号后"line"为命令名字，命令可以是cad命令或lisp函数名
    
20. ;3、原理：将等号后命令发送到cad并执行。
    
21. 
    
22. ;命令：
    
23. ;x1选择同名图块
    
24. ;x11选择同名图块+相同图层
    
25. ;x111选择同名图块+相同图层+相同颜色
    
26. ;x3选择相同文字 (支持天正文字、标高)
    
27. ;x33选择相同文字+相同图层  (支持天正文字、标高、箭头、引出标注)
    
28. ;x333选择相同文字+相同图层+相同颜色
    
29. ;x4选择同类型图元 比如line、Pline、圆、块、文字、墙、窗等
    
30. ;x44选择同类型图元+相同图层
    
31. ;x444选择同类型图元+相同图层+相同颜色
    
32. ;x2选择相同图层图元
    
33. ;x22选择图层图元+相同颜色
    
34. ;x5选择相同颜色图元
    
35. ;在上述命令后加a（比如x1a）表示自动全图选择
    
36. 
    
37. ;调用刀图圆形菜单
    
38. (defun c:xx ()
    
39. (DTU-RectMenu "ksxz.ini" 600 200 3 4)
    
40. ;参数1为配置文件名(字符串)，参数2为矩形菜单宽度(整数)，参数3为高度(整数)，参数4为行数(整数)，参数5为列数(整数)
    
41. (princ)
    
42. )
    
43. 
    
44. ;以下为主程序
    
45. (defun  c:x1 (/ ss n-list);选择图块
    
46. (princ "\n选择源图块<可多选>:")
    
47. (if (cadr (ssgetfirst))
    
48.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
    
49.   (setq ss (ssget '((0 . "INSERT"))))
    
50. )
    
51. (if ss
    
52.   (progn
    
53.    (if (and (setq n-list (tukuai ss))
    
54.            (setq ss (ssget (list (cons 2 n-list))))
    
55.      )
    
56.     (tjgs ss)
    
57.    )
    
58.   ))
    
59.   (princ)
    
60. )
    
61. (defun  c:x1a (/ ss n-list);选择图块-全图
    
62. (princ "\n选择源图块<可多选>:")
    
63. (if (cadr (ssgetfirst))
    
64.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
    
65.   (setq ss (ssget '((0 . "INSERT"))))
    
66. )
    
67. (if ss
    
68.   (progn
    
69.    (if (and (setq n-list (tukuai ss))
    
70.            (setq ss (ssget "x" (list (cons 2 n-list))))
    
71.      )
    
72.     (tjgs ss)
    
73.    )
    
74.   ))
    
75.   (princ)
    
76. )
    
77. (defun  c:x11 (/ ss n-list tuc-list);选择图块+图层
    
78. (princ "\n选择源图块<可多选>:")
    
79. (if (cadr (ssgetfirst))
    
80.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
    
81.   (setq ss (ssget '((0 . "INSERT"))))
    
82. )
    
83. (if ss
    
84.   (progn
    
85.    (if (and (setq n-list (tukuai ss))
    
86.            (setq tuc-list (tuc ss))
    
87.            (setq ss (ssget (list (cons 2 n-list)(cons 8 tuc-list))))
    
88.      )
    
89.     (tjgs ss)
    
90.    )
    
91.   ))
    
92.   (princ)
    
93. )
    
94. (defun  c:x11a (/ ss n-list tuc-list);选择图块+图层-全图
    
95. (princ "\n选择源图块<可多选>:")
    
96. (if (cadr (ssgetfirst))
    
97.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
    
98.   (setq ss (ssget '((0 . "INSERT"))))
    
99. )
    
100. (if ss
     
101.   (progn
     
102.    (if (and (setq n-list (tukuai ss))
     
103.            (setq tuc-list (tuc ss))
     
104.            (setq ss (ssget "x" (list (cons 2 n-list)(cons 8 tuc-list))))
     
105.      )
     
106.     (tjgs ss)
     
107.    )
     
108.   ))
     
109.   (princ)
     
110. )
     
111. (defun  c:x111 (/ ss n-list tuc-list yans-list);选择图块+图层+颜色
     
112. (princ "\n选择源图块<可多选>:")
     
113. (if (cadr (ssgetfirst))
     
114.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
     
115.   (setq ss (ssget '((0 . "INSERT"))))
     
116. )
     
117. (if ss
     
118.   (progn
     
119.    (if (and (setq n-list (tukuai ss))
     
120.            (setq tuc-list (tuc ss))
     
121.       (setq yans-list (yans ss))
     
122.            (setq ss (ssget (list (cons 2 n-list)(cons 8 tuc-list))))
     
123.      )
     
124.     (xzys ss yans-list)
     
125.    )
     
126.   ))
     
127.   (princ)
     
128. )
     
129. (defun  c:x111a (/ ss n-list tuc-list yans-list);选择图块+图层+颜色-全图
     
130. (princ "\n选择源图块<可多选>:")
     
131. (if (cadr (ssgetfirst))
     
132.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
     
133.   (setq ss (ssget '((0 . "INSERT"))))
     
134. )
     
135. (if ss
     
136.   (progn
     
137.    (if (and (setq n-list (tukuai ss))
     
138.            (setq tuc-list (tuc ss))
     
139.       (setq yans-list (yans ss))
     
140.            (setq ss (ssget "x" (list (cons 2 n-list)(cons 8 tuc-list))))
     
141.      )
     
142.     (xzys ss yans-list)
     
143.    )
     
144.   ))
     
145.   (princ)
     
146. )
     
147. (defun  c:x2 (/ ss n-list);选择图层
     
148. (princ "\n选择源图层<可多选>:")
     
149. (if (cadr (ssgetfirst))
     
150.   (progn (sssetfirst) (setq ss (ssget "p")))
     
151.   (setq ss (ssget))
     
152. )
     
153. (if ss
     
154.   (progn
     
155.    (if (and (setq n-list (tuc ss))
     
156.            (setq ss (ssget (list (cons 8 n-list))))
     
157.      )
     
158.     (tjgs ss)
     
159.    )
     
160.   ))
     
161.   (princ)
     
162. )
     
163. (defun  c:x2a (/ ss n-list);选择图层-全图
     
164. (princ "\n选择源图层<可多选>:")
     
165. (if (cadr (ssgetfirst))
     
166.   (progn (sssetfirst) (setq ss (ssget "p")))
     
167.   (setq ss (ssget))
     
168. )
     
169. (if ss
     
170.   (progn
     
171.    (if (and (setq n-list (tuc ss))
     
172.            (setq ss (ssget "x" (list (cons 8 n-list))))
     
173.      )
     
174.     (tjgs ss)
     
175.    )
     
176.   ))
     
177.   (princ)
     
178. )
     
179. (defun  c:x22 (/ ss tuc-list yans-list);图层+颜色
     
180. (princ "\n选择源图层<可多选>:")
     
181. (if (cadr (ssgetfirst))
     
182.   (progn (sssetfirst) (setq ss (ssget "p")))
     
183.   (setq ss (ssget))
     
184. )
     
185. (if ss
     
186.   (progn
     
187.    (if (and (setq tuc-list (tuc ss))
     
188.       (setq yans-list (yans ss))
     
189.            (setq ss (ssget (list (cons 8 tuc-list))))
     
190.      )
     
191.     (xzys ss yans-list)
     
192.    )
     
193.   ))
     
194.   (princ)
     
195. )
     
196. (defun  c:x22a (/ ss tuc-list yans-list);图层+颜色-全图
     
197. (princ "\n选择源图层<可多选>:")
     
198. (if (cadr (ssgetfirst))
     
199.   (progn (sssetfirst) (setq ss (ssget "p")))
     
200.   (setq ss (ssget))
     
201. )
     
202. (if ss
     
203.   (progn
     
204.    (if (and (setq tuc-list (tuc ss))
     
205.       (setq yans-list (yans ss))
     
206.            (setq ss (ssget "x" (list (cons 8 tuc-list))))
     
207.      )
     
208.     (xzys ss yans-list)
     
209.    )
     
210.   ))
     
211.   (princ)
     
212. )
     
213. (defun  c:x3 (/ ss n-list);选择文字
     
214. (princ "\n选择源文字<可多选>:")
     
215. (if (cadr (ssgetfirst))
     
216.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
     
217.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
     
218. )
     
219. (if ss
     
220.   (progn
     
221.    (if (and (setq n-list (wenzi ss))
     
222.            (setq ss (ssget (list (cons 1 n-list))))
     
223.      )
     
224.     (tjgs ss)
     
225.    )
     
226.   ))
     
227.   (princ)
     
228. )
     
229. (defun  c:x3a (/ ss n-list);选择文字-全图
     
230. (princ "\n选择源文字<可多选>:")
     
231. (if (cadr (ssgetfirst))
     
232.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
     
233.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
     
234. )
     
235. (if ss
     
236.   (progn
     
237.    (if (and (setq n-list (wenzi ss))
     
238.            (setq ss (ssget "x" (list (cons 1 n-list))))
     
239.      )
     
240.     (tjgs ss)
     
241.    )
     
242.   ))
     
243.   (princ)
     
244. )
     
245. (defun  c:x33 (/ ss n-list tuc-list);选择文字+图层
     
246. (princ "\n选择源文字<可多选>:")
     
247. (if (cadr (ssgetfirst))
     
248.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
     
249.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
     
250. )
     
251. (if ss
     
252.   (progn
     
253.    (if (and (setq n-list (wenzi ss))
     
254.            (setq tuc-list (tuc ss))
     
255.            (setq ss (ssget (list (cons 1 n-list)(cons 8 tuc-list))))
     
256.      )
     
257.     (tjgs ss)
     
258.    )
     
259.   ))
     
260.   (princ)
     
261. )
     
262. (defun  c:x33a (/ ss n-list tuc-list);选择文字+图层-全图
     
263. (princ "\n选择源文字<可多选>:")
     
264. (if (cadr (ssgetfirst))
     
265.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
     
266.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
     
267. )
     
268. (if ss
     
269.   (progn
     
270.    (if (and (setq n-list (wenzi ss))
     
271.            (setq tuc-list (tuc ss))
     
272.            (setq ss (ssget "x" (list (cons 1 n-list)(cons 8 tuc-list))))
     
273.      )
     
274.     (tjgs ss)
     
275.    )
     
276.   ))
     
277.   (princ)
     
278. )
     
279. (defun  c:x333 (/ ss n-list tuc-list yans-list);选择文字+图层+颜色
     
280. (princ "\n选择源文字<可多选>:")
     
281. (if (cadr (ssgetfirst))
     
282.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
     
283.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
     
284. )
     
285. (if ss
     
286.   (progn
     
287.    (if (and (setq n-list (wenzi ss))
     
288.            (setq tuc-list (tuc ss))
     
289.       (setq yans-list (yans ss))
     
290.            (setq ss (ssget (list (cons 1 n-list)(cons 8 tuc-list))))
     
291.      )
     
292.     (xzys ss yans-list)
     
293.    )
     
294.   ))
     
295.   (princ)
     
296. )
     
297. (defun  c:x333a (/ ss n-list tuc-list yans-list);选择文字+图层+颜色-全图
     
298. (princ "\n选择源文字<可多选>:")
     
299. (if (cadr (ssgetfirst))
     
300.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
     
301.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
     
302. )
     
303. (if ss
     
304.   (progn
     
305.    (if (and (setq n-list (wenzi ss))
     
306.            (setq tuc-list (tuc ss))
     
307.       (setq yans-list (yans ss))
     
308.            (setq ss (ssget "x" (list (cons 1 n-list)(cons 8 tuc-list))))
     
309.      )
     
310.     (xzys ss yans-list)
     
311.    )
     
312.   ))
     
313.   (princ)
     
314. )
     
315. (defun  c:x4 (/ ss n-list tuc-list);选择图元
     
316. (princ "\n选择源图元<可多选>:")
     
317. (if (cadr (ssgetfirst))
     
318.   (progn (sssetfirst) (setq ss (ssget "p")))
     
319.   (setq ss (ssget))
     
320. )
     
321. (if ss
     
322.   (progn
     
323.    (if (and (setq n-list (tuyuan ss))
     
324.            ;(setq tuc-list (tuc ss))
     
325.            (setq ss (ssget (list (cons 0 n-list))))
     
326.      )
     
327.     (tjgs ss)
     
328.    )
     
329.   ))
     
330.   (princ)
     
331. )
     
332. (defun  c:x44 (/ ss n-list tuc-list);选择图元+图层
     
333. (princ "\n选择源图元<可多选>:")
     
334. (if (cadr (ssgetfirst))
     
335.   (progn (sssetfirst) (setq ss (ssget "p")))
     
336.   (setq ss (ssget))
     
337. )
     
338. (if ss
     
339.   (progn
     
340.    (if (and (setq n-list (tuyuan ss))
     
341.            (setq tuc-list (tuc ss))
     
342.            (setq ss (ssget (list (cons 0 n-list) (cons 8 tuc-list))))
     
343.      )
     
344.     (tjgs ss)
     
345.    )
     
346.   ))
     
347.   (princ)
     
348. )
     
349. (defun  c:x4a (/ ss n-list tuc-list);选择图元-全图
     
350. (princ "\n选择源图元<可多选>:")
     
351. (if (cadr (ssgetfirst))
     
352.   (progn (sssetfirst) (setq ss (ssget "p")))
     
353.   (setq ss (ssget))
     
354. )
     
355. (if ss
     
356.   (progn
     
357.    (if (and (setq n-list (tuyuan ss))
     
358.            ;(setq tuc-list (tuc ss))
     
359.            (setq ss (ssget "x" (list (cons 0 n-list))))
     
360.      )
     
361.     (tjgs ss)
     
362.    )
     
363.   ))
     
364.   (princ)
     
365. )
     
366. (defun  c:x44a (/ ss n-list tuc-list);选择图元+图层-全图
     
367. (princ "\n选择源图元<可多选>:")
     
368. (if (cadr (ssgetfirst))
     
369.   (progn (sssetfirst) (setq ss (ssget "p")))
     
370.   (setq ss (ssget))
     
371. )
     
372. (if ss
     
373.   (progn
     
374.    (if (and (setq n-list (tuyuan ss))
     
375.            (setq tuc-list (tuc ss))
     
376.            (setq ss (ssget "x" (list (cons 0 n-list) (cons 8 tuc-list))))
     
377.      )
     
378.     (tjgs ss)
     
379.    )
     
380.   ))
     
381.   (princ)
     
382. )
     
383. (defun c:x444 ( / n-list ss tuc-list yans-list);选择图元+图层+颜色
     
384.   (princ "\n选择源图元<可多选>:")
     
385. (if (cadr (ssgetfirst))
     
386.   (progn (sssetfirst) (setq ss (ssget "p")))
     
387.   (setq ss (ssget))
     
388. )
     
389. (if ss
     
390.     (progn
     
391.       (if (and
     
392.       (setq n-list (tuyuan ss))
     
393.       (setq tuc-list (tuc ss))
     
394.       (setq yans-list (yans ss))
     
395.       (setq ss (ssget (list (cons 0 n-list) (cons 8 tuc-list)))))
     
396.     (xzys ss yans-list)
     
397.       )
     
398.     )
     
399.   )
     
400.   (princ)
     
401. )
     
402. (defun c:x444a ( / n-list ss tuc-list yans-list);选择图元+图层+颜色-全图
     
403.   (princ "\n选择源图元<可多选>:")
     
404. (if (cadr (ssgetfirst))
     
405.   (progn (sssetfirst) (setq ss (ssget "p")))
     
406.   (setq ss (ssget))
     
407. )
     
408. (if ss
     
409.     (progn
     
410.       (if (and
     
411.       (setq n-list (tuyuan ss))
     
412.       (setq tuc-list (tuc ss))
     
413.       (setq yans-list (yans ss))
     
414.       (setq ss (ssget "x" (list (cons 0 n-list) (cons 8 tuc-list)))))
     
415.     (xzys ss yans-list)
     
416.       )
     
417.     )
     
418.   )
     
419.   (princ)
     
420. )
     
421. (defun c:x5 ( / ss yans-list);选择颜色
     
422.   (princ "\n选择源图元<可多选>:")
     
423. (if (cadr (ssgetfirst))
     
424.   (progn (sssetfirst) (setq ss (ssget "p")))
     
425.   (setq ss (ssget))
     
426. )
     
427. (if ss
     
428.     (progn
     
429.    (if (and
     
430.       (setq yans-list (yans ss))
     
431.       (setq ss (ssget)))
     
432.        (xzys ss yans-list)
     
433.    )
     
434.   ))
     
435. (princ)
     
436. )
     
437. (defun c:x5a ( / ss yans-list);选择颜色-全图
     
438.   (princ "\n选择源图元<可多选>:")
     
439. (if (cadr (ssgetfirst))
     
440.   (progn (sssetfirst) (setq ss (ssget "p")))
     
441.   (setq ss (ssget))
     
442. )
     
443. (if ss
     
444.     (progn
     
445.    (if (and
     
446.       (setq yans-list (yans ss))
     
447.       (setq ss (ssget "x")))
     
448.        (xzys ss yans-list)
     
449.    )
     
450.   ))
     
451. (princ)
     
452. )
     
453. (defun tjgs(ss);统计个数子程序
     
454. (sssetfirst nil ss)
     
455. (princ (strcat "\n共选中了" (itoa (sslength ss)) "个实体。"))
     
456. (princ)
     
457. )
     
458. (defun  tuc (ss / n i ent name name-list);选择图层子程序
     
459.   (setq n (sslength ss))
     
460.   (setq i (- n 1))
     
461.   (repeat n
     
462.   (setq ent (ssname ss i))
     
463.   (setq name (cdr (assoc 8 (entget ent))))
     
464.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
     
465.   (setq i (1- i))
     
466. )
     
467. name-list
     
468. )
     
469. (defun  tukuai (ss / n i ent name name-list);选择图块子程序
     
470.   (setq n (sslength ss))
     
471.   (setq i (- n 1))
     
472.   (repeat n
     
473.   (setq ent (ssname ss i))
     
474.   (setq name (cdr (assoc 2 (entget ent))))
     
475.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
     
476.   (setq i (1- i))
     
477. )
     
478. name-list
     
479. )
     
480. (defun  wenzi (ss / n i ent name name-list);选择文字子程序
     
481.   (setq n (sslength ss))
     
482.   (setq i (- n 1))
     
483.   (repeat n
     
484.   (setq ent (ssname ss i))
     
485.   (setq name (cdr (assoc 1 (entget ent))))
     
486.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
     
487.   (setq i (1- i))
     
488. )
     
489. name-list
     
490. )
     
491. (defun  tuyuan (ss / n i ent name name-list);选择图元子程序
     
492.   (setq n (sslength ss))
     
493.   (setq i (- n 1))
     
494.   (repeat n
     
495.   (setq ent (ssname ss i))
     
496.   (setq name (cdr (assoc 0 (entget ent))))
     
497.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
     
498.   (setq i (1- i))
     
499. )
     
500. name-list
     
501. )
     
502. (defun yans (ss / ent entdata i n name name-list);选择颜色子程序
     
503.   (setq n (sslength ss))
     
504.   (setq i (- n 1))
     
505.   (repeat n
     
506.     (setq ent (ssname ss i))
     
507.     (setq entdata (entget ent))
     
508.     (if (assoc 62 entdata)
     
509.       (setq name (cdr (assoc 62 entdata)))
     
510.       ;(setq name 256) ;颜色随层
     
511.    (setq name (cdr (assoc 62 (entget (tblobjname "layer" (cdr (assoc 8 entdata)))))));取图层颜色
     
512.     )
     
513.     (setq name-list (cons name name-list))
     
514.     (setq i (1- i))
     
515.   )
     
516.   name-list
     
517. )
     
518. (defun xzys (ss yans-list / ent entdata ent-yanse i j m n ss1 yanse);循环判断选择颜色子程序
     
519. (setq ss1 (ssadd))
     
520. (setq m (length yans-list))
     
521. (setq j (- m 1))
     
522. (setq n (sslength ss))
     
523. (setq i (- n 1))
     
524. (repeat n
     
525.   (setq ent (ssname ss i))
     
526.   (setq entdata (entget ent))
     
527.   (if (assoc 62 entdata)
     
528.    (setq ent-yanse (cdr (assoc 62 entdata)))       ;(setq ent-yanse 256) ;颜色随层
     
529.    (setq ent-yanse (cdr (assoc 62 (entget (tblobjname "layer"(cdr (assoc 8 entdata))))))) ;取图层颜色
     
530.   )
     
531.   (while (>= j 0)
     
532.    (setq yanse (nth j yans-list))
     
533.    (if (= yanse ent-yanse)
     
534.     (progn
     
535.      (setq ss1 (ssadd ent ss1))
     
536.      (setq j 0)
     
537.       )
     
538.    )
     
539.    (setq j (1- j))
     
540.   )
     
541.   (setq j (- m 1))
     
542.   (setq i (1- i))
     
543. )
     
544. (tjgs ss1)
     
545. )
     
546. (princ "\n刀图圆形菜单---快速选择 命令：xx")(princ)

;刀图矩形菜单-V1.0  2021.12.31  QQ群：894659298<br /> ;快速选择（命令：xx）--刀图矩形菜单实例<br /> ;<br /> ;测试说明：<br /> ;1、命令netload加载dll文件；<br /> ;2、加载例子lisp文件；<br /> ;3、输入tt或ttt命令。<br /> ;<br /> ;使用说明：<br /> ;1、调用菜单函数：(DTU-RectMenu "ksxz.ini" 650 200 3 4)<br /> ;参数1 配置文件名(字符串)<br /> ;参数2 矩形菜单宽度(整数)<br /> ;参数3 矩形菜单高度(整数)<br /> ;参数4 行数(整数)<br /> ;参数5 列数(整数)<br /> ;<br /> ;2、ini配置文件格式举例：直线=line<br /> ;等号前"直线"为菜单显示名字<br /> ;等号后"line"为命令名字，命令可以是cad命令或lisp函数名<br /> ;3、原理：将等号后命令发送到cad并执行。<br /> <br /> ;命令：<br /> ;x1选择同名图块<br /> ;x11选择同名图块+相同图层<br /> ;x111选择同名图块+相同图层+相同颜色<br /> ;x3选择相同文字 (支持天正文字、标高)<br /> ;x33选择相同文字+相同图层  (支持天正文字、标高、箭头、引出标注)<br /> ;x333选择相同文字+相同图层+相同颜色<br /> ;x4选择同类型图元 比如line、Pline、圆、块、文字、墙、窗等<br /> ;x44选择同类型图元+相同图层<br /> ;x444选择同类型图元+相同图层+相同颜色<br /> ;x2选择相同图层图元<br /> ;x22选择图层图元+相同颜色<br /> ;x5选择相同颜色图元<br /> ;在上述命令后加a（比如x1a）表示自动全图选择<br /> <br /> ;调用刀图圆形菜单<br /> (defun c:xx ()<br /> (DTU-RectMenu "ksxz.ini" 600 200 3 4)<br /> ;参数1为配置文件名(字符串)，参数2为矩形菜单宽度(整数)，参数3为高度(整数)，参数4为行数(整数)，参数5为列数(整数)<br /> (princ)<br /> )<br /> <br /> ;以下为主程序<br /> (defun  c:x1 (/ ss n-list);选择图块<br /> (princ "\n选择源图块<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))<br />   (setq ss (ssget '((0 . "INSERT"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tukuai ss))<br />            (setq ss (ssget (list (cons 2 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x1a (/ ss n-list);选择图块-全图<br /> (princ "\n选择源图块<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))<br />   (setq ss (ssget '((0 . "INSERT"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tukuai ss))<br />            (setq ss (ssget "x" (list (cons 2 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x11 (/ ss n-list tuc-list);选择图块+图层<br /> (princ "\n选择源图块<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))<br />   (setq ss (ssget '((0 . "INSERT"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tukuai ss))<br />            (setq tuc-list (tuc ss))<br />            (setq ss (ssget (list (cons 2 n-list)(cons 8 tuc-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x11a (/ ss n-list tuc-list);选择图块+图层-全图<br /> (princ "\n选择源图块<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))<br />   (setq ss (ssget '((0 . "INSERT"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tukuai ss))<br />            (setq tuc-list (tuc ss))<br />            (setq ss (ssget "x" (list (cons 2 n-list)(cons 8 tuc-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x111 (/ ss n-list tuc-list yans-list);选择图块+图层+颜色<br /> (princ "\n选择源图块<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))<br />   (setq ss (ssget '((0 . "INSERT"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tukuai ss))<br />            (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />            (setq ss (ssget (list (cons 2 n-list)(cons 8 tuc-list))))<br />      )<br />     (xzys ss yans-list)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x111a (/ ss n-list tuc-list yans-list);选择图块+图层+颜色-全图<br /> (princ "\n选择源图块<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))<br />   (setq ss (ssget '((0 . "INSERT"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tukuai ss))<br />            (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />            (setq ss (ssget "x" (list (cons 2 n-list)(cons 8 tuc-list))))<br />      )<br />     (xzys ss yans-list)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x2 (/ ss n-list);选择图层<br /> (princ "\n选择源图层<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tuc ss))<br />            (setq ss (ssget (list (cons 8 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x2a (/ ss n-list);选择图层-全图<br /> (princ "\n选择源图层<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tuc ss))<br />            (setq ss (ssget "x" (list (cons 8 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x22 (/ ss tuc-list yans-list);图层+颜色<br /> (princ "\n选择源图层<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />            (setq ss (ssget (list (cons 8 tuc-list))))<br />      )<br />     (xzys ss yans-list)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x22a (/ ss tuc-list yans-list);图层+颜色-全图<br /> (princ "\n选择源图层<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />            (setq ss (ssget "x" (list (cons 8 tuc-list))))<br />      )<br />     (xzys ss yans-list)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x3 (/ ss n-list);选择文字<br /> (princ "\n选择源文字<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))<br />   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (wenzi ss))<br />            (setq ss (ssget (list (cons 1 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x3a (/ ss n-list);选择文字-全图<br /> (princ "\n选择源文字<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))<br />   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (wenzi ss))<br />            (setq ss (ssget "x" (list (cons 1 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x33 (/ ss n-list tuc-list);选择文字+图层<br /> (princ "\n选择源文字<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))<br />   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (wenzi ss))<br />            (setq tuc-list (tuc ss))<br />            (setq ss (ssget (list (cons 1 n-list)(cons 8 tuc-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x33a (/ ss n-list tuc-list);选择文字+图层-全图<br /> (princ "\n选择源文字<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))<br />   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (wenzi ss))<br />            (setq tuc-list (tuc ss))<br />            (setq ss (ssget "x" (list (cons 1 n-list)(cons 8 tuc-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x333 (/ ss n-list tuc-list yans-list);选择文字+图层+颜色<br /> (princ "\n选择源文字<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))<br />   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (wenzi ss))<br />            (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />            (setq ss (ssget (list (cons 1 n-list)(cons 8 tuc-list))))<br />      )<br />     (xzys ss yans-list)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x333a (/ ss n-list tuc-list yans-list);选择文字+图层+颜色-全图<br /> (princ "\n选择源文字<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))<br />   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (wenzi ss))<br />            (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />            (setq ss (ssget "x" (list (cons 1 n-list)(cons 8 tuc-list))))<br />      )<br />     (xzys ss yans-list)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x4 (/ ss n-list tuc-list);选择图元<br /> (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tuyuan ss))<br />            ;(setq tuc-list (tuc ss))<br />            (setq ss (ssget (list (cons 0 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x44 (/ ss n-list tuc-list);选择图元+图层<br /> (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tuyuan ss))<br />            (setq tuc-list (tuc ss))<br />            (setq ss (ssget (list (cons 0 n-list) (cons 8 tuc-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x4a (/ ss n-list tuc-list);选择图元-全图<br /> (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tuyuan ss))<br />            ;(setq tuc-list (tuc ss))<br />            (setq ss (ssget "x" (list (cons 0 n-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun  c:x44a (/ ss n-list tuc-list);选择图元+图层-全图<br /> (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />   (progn<br />    (if (and (setq n-list (tuyuan ss))<br />            (setq tuc-list (tuc ss))<br />            (setq ss (ssget "x" (list (cons 0 n-list) (cons 8 tuc-list))))<br />      )<br />     (tjgs ss)<br />    )<br />   ))<br />   (princ)<br /> )<br /> (defun c:x444 ( / n-list ss tuc-list yans-list);选择图元+图层+颜色<br />   (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />     (progn<br />       (if (and<br />       (setq n-list (tuyuan ss))<br />       (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />       (setq ss (ssget (list (cons 0 n-list) (cons 8 tuc-list)))))<br />     (xzys ss yans-list)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:x444a ( / n-list ss tuc-list yans-list);选择图元+图层+颜色-全图<br />   (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />     (progn<br />       (if (and<br />       (setq n-list (tuyuan ss))<br />       (setq tuc-list (tuc ss))<br />       (setq yans-list (yans ss))<br />       (setq ss (ssget "x" (list (cons 0 n-list) (cons 8 tuc-list)))))<br />     (xzys ss yans-list)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:x5 ( / ss yans-list);选择颜色<br />   (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />     (progn<br />    (if (and<br />       (setq yans-list (yans ss))<br />       (setq ss (ssget)))<br />        (xzys ss yans-list)<br />    )<br />   ))<br /> (princ)<br /> )<br /> (defun c:x5a ( / ss yans-list);选择颜色-全图<br />   (princ "\n选择源图元<可多选>:")<br /> (if (cadr (ssgetfirst))<br />   (progn (sssetfirst) (setq ss (ssget "p")))<br />   (setq ss (ssget))<br /> )<br /> (if ss<br />     (progn<br />    (if (and<br />       (setq yans-list (yans ss))<br />       (setq ss (ssget "x")))<br />        (xzys ss yans-list)<br />    )<br />   ))<br /> (princ)<br /> )<br /> (defun tjgs(ss);统计个数子程序<br /> (sssetfirst nil ss)<br /> (princ (strcat "\n共选中了" (itoa (sslength ss)) "个实体。"))<br /> (princ)<br /> )<br /> (defun  tuc (ss / n i ent name name-list);选择图层子程序<br />   (setq n (sslength ss)) <br />   (setq i (- n 1)) <br />   (repeat n <br />   (setq ent (ssname ss i)) <br />   (setq name (cdr (assoc 8 (entget ent)))) <br />   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))<br />   (setq i (1- i))<br /> ) <br /> name-list<br /> )<br /> (defun  tukuai (ss / n i ent name name-list);选择图块子程序<br />   (setq n (sslength ss)) <br />   (setq i (- n 1)) <br />   (repeat n <br />   (setq ent (ssname ss i)) <br />   (setq name (cdr (assoc 2 (entget ent)))) <br />   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))<br />   (setq i (1- i))<br /> ) <br /> name-list<br /> )<br /> (defun  wenzi (ss / n i ent name name-list);选择文字子程序<br />   (setq n (sslength ss)) <br />   (setq i (- n 1)) <br />   (repeat n <br />   (setq ent (ssname ss i)) <br />   (setq name (cdr (assoc 1 (entget ent)))) <br />   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))<br />   (setq i (1- i))<br /> ) <br /> name-list<br /> )<br /> (defun  tuyuan (ss / n i ent name name-list);选择图元子程序<br />   (setq n (sslength ss))<br />   (setq i (- n 1))<br />   (repeat n<br />   (setq ent (ssname ss i))<br />   (setq name (cdr (assoc 0 (entget ent))))<br />   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))<br />   (setq i (1- i))<br /> )<br /> name-list<br /> )<br /> (defun yans (ss / ent entdata i n name name-list);选择颜色子程序<br />   (setq n (sslength ss))<br />   (setq i (- n 1))<br />   (repeat n<br />     (setq ent (ssname ss i))<br />     (setq entdata (entget ent))<br />     (if (assoc 62 entdata)<br />       (setq name (cdr (assoc 62 entdata)))<br />       ;(setq name 256) ;颜色随层<br />    (setq name (cdr (assoc 62 (entget (tblobjname "layer" (cdr (assoc 8 entdata)))))));取图层颜色<br />     )<br />     (setq name-list (cons name name-list))<br />     (setq i (1- i))<br />   )<br />   name-list<br /> )<br /> (defun xzys (ss yans-list / ent entdata ent-yanse i j m n ss1 yanse);循环判断选择颜色子程序<br /> (setq ss1 (ssadd))<br /> (setq m (length yans-list))<br /> (setq j (- m 1))<br /> (setq n (sslength ss))<br /> (setq i (- n 1))<br /> (repeat n<br />   (setq ent (ssname ss i))<br />   (setq entdata (entget ent))<br />   (if (assoc 62 entdata)<br />    (setq ent-yanse (cdr (assoc 62 entdata)))       ;(setq ent-yanse 256) ;颜色随层<br />    (setq ent-yanse (cdr (assoc 62 (entget (tblobjname "layer"(cdr (assoc 8 entdata))))))) ;取图层颜色<br />   )<br />   (while (>= j 0)<br />    (setq yanse (nth j yans-list))<br />    (if (= yanse ent-yanse)<br />     (progn<br />      (setq ss1 (ssadd ent ss1))<br />      (setq j 0)<br />       )<br />    )<br />    (setq j (1- j))<br />   )<br />   (setq j (- m 1))<br />   (setq i (1- i))<br /> )<br /> (tjgs ss1)<br /> )<br /> (princ "\n刀图圆形菜单---快速选择 命令：xx")(princ)

cqu20104225

Bdj 发表于 2021-12-31 22:28
2014的加载错误了呢

命令: NETLOAD

dll文件被锁的原因，右键dll文件，找到“解除锁定”

xudongchu

CAD2012 出现这种问题，不知道是怎么回事。
命令: NETLOad
无法加载程序集。错误详细信息: System.IO.FileLoadException:
未能加载文件或程序集“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\DTuMenu
CAD2007-2012.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)
文件名:“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\DTuMenu
CAD2007-2012.dll” ---> System.NotSupportedException: 尝试从一个网络位置加载程序集，在早期版本的 .NET
Framework 中，这会导致对该程序集进行沙盒处理。此发行版的 .NET Framework 默认情况下不启用 CAS
策略，因此，此加载可能会很危险。如果此加载不是要对程序集进行沙盒处理，请启用 loadFromRemoteSources 开关。有关详细信息，请参见
http://go.microsoft.com/fwlink/?LinkId=155569。
   在 System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String
codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint,
StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound,
Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.nLoad(AssemblyName fileName, String
codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint,
StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound,
Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName
assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly,
StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound,
Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile,
Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm
hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks,
StackCrawlMark& stackMark)
   在 System.Reflection.Assembly.LoadFrom(String assemblyFile)
   在 Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   在 loadmgd()

Bdj

2014的加载错误了呢

命令: NETLOAD
无法加载程序集。错误详细信息: System.IO.FileLoadException: 未能加载文件或程序集“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\刀图菜单系统V1.0\DTuMenu CAD2013及以上版本.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)
文件名:“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\刀图菜单系统V1.0\DTuMenu CAD2013及以上版本.dll” ---> System.NotSupportedException: 尝试从一个网络位置加载程序集，在早期版本的 .NET Framework 中，这会导致对该程序集进行沙盒处理。此发行版的 .NET Framework 默认情况下不启用 CAS 策略，因此，此加载可能会很危险。如果此加载不是要对程序集进行沙盒处理，请启用 loadFromRemoteSources 开关。
   在 System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
   在 System.Reflection.Assembly.LoadFrom(String assemblyFile)
   在 Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   在 loadmgd()

悟沧

太牛气了，马上下载试用下，比dcl方便太多了。

流浪的军刀

圆形菜单牛逼

小溪向东流

舒服这样的界面

xiaotao

看起来很好玩的样子

纵横八方

是滑动触发吗？

nyistjz

顶一个，这个挺有意思的，很另类好玩。

664571221

你好可以做成侧边栏类型吗

wzg356