谢谢！还有个问题
本帖最后由 作者 于 2006-4-20 16:55:04 编辑 <br /><br /> <FONT color=#008000>;将选择的闭合区域内，与之相交或里面的所有复制到别地方<BR></FONT><FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/defun.htm" target="_blank" ><FONT color=blue>defun</FONT></A> <FONT color=blue><B>c:test</B></FONT> <FONT color=red>(</FONT><FONT color=red>)</FONT><BR> <FONT color=red>(</FONT>cmdla0<FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/setq.htm" target="_blank" ><FONT color=blue>setq</FONT></A> s1 <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/car.htm" target="_blank" ><FONT color=blue>car</FONT></A> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/entsel.htm" target="_blank" ><FONT color=blue>entsel</FONT></A> <FONT color=#880000>"\n选择闭合区域: "</FONT><FONT color=red>)</FONT><FONT color=red>)</FONT><BR> etype <FONT color=red>(</FONT>xyp-get-dxf 0 s1<FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/if.htm" target="_blank" ><FONT color=blue>if</FONT></A> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/and.htm" target="_blank" ><FONT color=blue>and</FONT></A> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/or.htm" target="_blank" ><FONT color=blue>or</FONT></A> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/61.htm" target="_blank" ><FONT color=blue>=</FONT></A> etype <FONT color=#880000>"POLYLINE"</FONT><FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/61.htm" target="_blank" ><FONT color=blue>=</FONT></A> etype <FONT color=#880000>"LWPOLYLINE"</FONT><FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/61.htm" target="_blank" ><FONT color=blue>=</FONT></A> etype <FONT color=#880000>"SPLINE"</FONT><FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/or.htm" target="_blank" ><FONT color=blue>or</FONT></A> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/equal.htm" target="_blank" ><FONT color=blue>equal</FONT></A> <FONT color=red>(</FONT>xyp-get-CurveEndPoint s1<FONT color=red>)</FONT><BR> <FONT color=red>(</FONT>xyp-get-CurveStartPoint s1<FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/61.htm" target="_blank" ><FONT color=blue>=</FONT></A> <FONT color=red>(</FONT>xyp-get-dxf 70 s1<FONT color=red>)</FONT> 1<FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/progn.htm" target="_blank" ><FONT color=blue>progn</FONT></A><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/setq.htm" target="_blank" ><FONT color=blue>setq</FONT></A> ptlst <FONT color=red>(</FONT>xyp-get-Vertexs s1 0<FONT color=red>)</FONT><BR> ss <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/ssget.htm" target="_blank" ><FONT color=blue>ssget</FONT></A> <FONT color=#880000>"CP"</FONT> ptlst<FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/if.htm" target="_blank" ><FONT color=blue>if</FONT></A> ss<BR> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/command.htm" target="_blank" ><FONT color=blue>command</FONT></A> <FONT color=#880000>"copy"</FONT> ss <FONT color=#880000>""</FONT> pause pause<FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>)</FONT><BR> <FONT color=red>(</FONT>cmdla1<FONT color=red>)</FONT><BR><FONT color=red>)</FONT> 这是XYP1964版的程序，应该没有问题，只要你将他的xyp_lib.fas或是xyp_lib.vlx加载一下就行了。 <P>这不是独立的LISP程序啊！</P><P>能不能做成独立的？</P>
<P>我不熟悉对LISP</P> <P>命令：qyfz (区域复制)</P>
<P></P> <P>谢谢啊，太感谢了。不过少了点提示（基点选择和 放置点点取的）</P>
<P>我五体投地啊！！</P> <P>能不能在这个了，里面加个旋转项啊，我的图形先需要复制，然后再对这个旋转（用弧度）</P>
<P>谢谢啊</P>
页:
[1]