ZZXXQQ 发表于 2004-9-23 16:44:00

试一下这个程序，是在<A name=53903><FONT color=#000066><B>yulijin60</B></FONT></A>的基础上改的。程序在R14上调试通过。


(defun c:cut(/ b1 a1 ss x1 x2 y1 y2 pt1 pt2 pt3 pt4)<BR>       (setq b1 (getcorner (setq a1 (getpoint "\n指定选择框"))))<BR>       (command "rectang" a1 b1)<BR>       (setq ss (entlast))<BR>       (setq x1 (car a1) y2 (cadr b1)<BR>                                                       x2 (car b1) y1 (cadr a1))<BR>       (if (&gt; x1 x2) (setq tt x1 x1 x2 x2 tt))<BR>       (if (&gt; y1 y2) (setq tt y1 y1 y2 y2 tt))<BR>       (setq x1 (+ x1 0.2) y1 (+ y1 0.2)<BR>                                                       x2 (- x2 0.2) y2 (- y2 0.2))<BR>       (setq pt1 (LIST X1 Y1) PT2 (LIST X2 Y1)<BR>                                                       PT3 (LIST X2 Y2) PT4 (LIST X1 Y2))<BR>       (COMMAND "TRIM" SS "" "F" PT1 PT2 PT3 PT4 PT1 "" "")<BR>       (COMMAND "ERASE" "W" PT1 PT3 SS "")<BR>       (PRINC)<BR>        )

yinheng 发表于 2004-9-24 09:34:00

我谢谢了EXTRIM就可以实现是我开始使用那个命令时用错了。太感谢了！

xiaomihu 发表于 2004-9-24 11:00:00

EXTRIM是什么命令啊，那里有这个lisp程序，我的2002怎么没有这个命令

CADghost 发表于 2004-9-24 11:05:00

命令JD

CADghost 发表于 2004-9-24 11:11:00

加载程序后，执行JD命令


CADghost 发表于 2004-9-24 11:11:00

点选右下角点和左上角点


CADghost 发表于 2004-9-24 11:12:00

点取放置点和放大倍数


CADghost 发表于 2004-9-24 11:12:00

完成


       

luocheng 发表于 2005-11-21 16:48:00

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0>&nbsp;<B></B><BR>EXTRIM是什么命令啊，那里有这个lisp程序，我的2002怎么没有这个命令</TD></TR></TBODY></TABLE>

luocheng 发表于 2005-11-21 16:51:00

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%">EXTRIM是什么命令啊，那里有这个lisp程序，我的2002怎么没有这个命令</TD></TR></TBODY></TABLE>
页: 1 [2] 3 4
查看完整版本: 能不能编个程序剪切一个框内的所有对象