求救（xyp1964）：将选择的闭合区域内，与之相交或里面的所有复制到别地方
本帖最后由 作者 于 2006-4-19 8:05:59 编辑 <br /><br /> <P>过程如下：</P><P>1。选择的闭合区域</P>
<P>2。将闭合区域内的或穿过的所有实体复制一份到选定的地方；</P>
<P>谢谢了，比较急。</P> (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屏幕
★通用函数下载地址：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
|;
;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)
) <P>楼上的大哥，我加载后输入命令 TEST 系统说不知道命令啊。</P>
<P>谢谢啦！</P>
页:
[1]