删除矩形最左边

xd-xdcad · 发表于 2008-7-4 12:58:00

本帖最后由作者于 2008-7-4 12:59:27 编辑

BREAK打断有方向性，已知矩形四个点,请问怎样用BREAK打断1-2之间的线段，而保留其它3条边

或者用其它方法直接删除两点之间的线段(LINE或PLINE格式)

LISP命令怎样写?

谢谢

caoyin · 发表于 2008-7-4 13:08:00

本帖最后由作者于 2008-7-4 13:09:08 编辑

之所以不容易达到你的要求，是因为点 1 既是起点也是终点

建议直接trim或

vla-put-closed 将多段线设为不闭合

xd-xdcad · 发表于 2008-7-4 13:49:00

哦，还以为发现了新问题呢。

请问用附件程序画完圆弧后，怎样删除点1、点2之间的线段呢？

点1、点2之间的线段可能是单独的LINE，或者是PLINE的一部分

谢谢

claotlaot · 发表于 2008-7-4 13:56:00

程序能否优化一下呢

caoyin · 发表于 2008-7-4 14:00:00

这个情况有很多的不可预测因素，建议楼主不要删除这个线段，改一下思路:

(setq old1 (getvar "blipmode"))
(setvar "blipmode" 0)

   (setq en (car (entsel "\n选择直线、多段线 <拾取点>: ")))
   (if (not en)
     (setq pt1 (getpoint "\nSelect the first point:")
           pt2 (getpoint pt1 "\nSelect the second point:")
     )
   )

xd-xdcad · 发表于 2008-7-4 14:26:00

本帖最后由作者于 2008-7-4 14:43:52 编辑

这个程序是hicool提供的，我想达附图的效果

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68729

另外(setq en (car (entsel "\n选择直线、多段线 <拾取点>: ")))
没有反应呀

执行命令后，没法选取直线、多段线，仅能回车后拾取点

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

删除矩形最左边

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源