求救（xyp1964）：将选择的闭合区域内，与之相交或里面的所有复制到别地方

lichh_2003

过程如下：

1。选择的闭合区域

2。将闭合区域内的或穿过的所有实体复制一份到选定的地方；

谢谢了，比较急。

xyp1964

2.   (load "xyp_lib.vlx") ;版本 V.20060314
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. ;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=49225
14. ;将选择的闭合区域内，与之相交或里面的所有复制到别地方
15. (defun c:test ()
16.   (cmdla0)
17.   (setq s1    (car (entsel "\n选择闭合区域: "))
18. etype (xyp-get-dxf 0 s1)
19.   )
20.   (if (and (or (= etype "POLYLINE")
21.         (= etype "LWPOLYLINE")
22.         (= etype "SPLINE")
23.     )
24.     (or (equal (xyp-get-CurveEndPoint s1)
25.         (xyp-get-CurveStartPoint s1)
26.         )
27.         (= (xyp-get-dxf 70 s1) 1)
28.     )
29.       )
30.     (progn
31.       (setq ptlst (xyp-get-Vertexs s1 0)
32.      ss   (ssget "CP" ptlst)
33.       )
34.       (if ss
35. (command "copy" ss "" pause pause)
36.       )
37.     )
38.   )
39.   (cmdla1)
40. )

  (load "xyp_lib.vlx") ;版本 V.20060314 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=49225 ;将选择的闭合区域内，与之相交或里面的所有复制到别地方 (defun c:test ()   (cmdla0)   (setq s1    (car (entsel "\n选择闭合区域: ")) etype (xyp-get-dxf 0 s1)   )   (if (and (or (= etype "POLYLINE")         (= etype "LWPOLYLINE")         (= etype "SPLINE")     )     (or (equal (xyp-get-CurveEndPoint s1)         (xyp-get-CurveStartPoint s1)         )         (= (xyp-get-dxf 70 s1) 1)     )       )     (progn       (setq ptlst (xyp-get-Vertexs s1 0)      ss   (ssget "CP" ptlst)       )       (if ss (command "copy" ss "" pause pause)       )     )   )   (cmdla1) )

lichh_2003

楼上的大哥，我加载后输入命令 TEST 系统说不知道命令啊。

谢谢啦！