能不能编个程序剪切一个框内的所有对象

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

试一下这个程序，是在yulijin60的基础上改的。程序在R14上调试通过。 (defun c:cut(/ b1 a1 ss x1 x2 y1 y2 pt1 pt2 pt3 pt4)
(setq b1 (getcorner (setq a1 (getpoint "\n指定选择框"))))
(command "rectang" a1 b1)
(setq ss (entlast))
(setq x1 (car a1) y2 (cadr b1)
x2 (car b1) y1 (cadr a1))
(if (> x1 x2) (setq tt x1 x1 x2 x2 tt))
(if (> y1 y2) (setq tt y1 y1 y2 y2 tt))
(setq x1 (+ x1 0.2) y1 (+ y1 0.2)
x2 (- x2 0.2) y2 (- y2 0.2))
(setq pt1 (LIST X1 Y1) PT2 (LIST X2 Y1)
PT3 (LIST X2 Y2) PT4 (LIST X1 Y2))
(COMMAND "TRIM" SS "" "F" PT1 PT2 PT3 PT4 PT1 "" "")
(COMMAND "ERASE" "W" PT1 PT3 SS "")
(PRINC)
)

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

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

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>

账号		自动登录	找回密码
密码			注册

能不能编个程序剪切一个框内的所有对象

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源