[求助]：框选剪切的改进问题

gysjy · 发表于 2007-8-19 08:37:28

最初由真龙天子发布
[B]要达到只是删除与选框相交的框外的实体,而不是把与选框相交或不相交的框外所有的实体都删除. [/B]

[FONT=courier new]
;;;功能：剪除框外物体
(defun C:nn(/ PT1 PT2 OS_OLD S1 ANG D PT3 PT4)
;;关闭命令回显
(command "undo" "g")
(setvar "CMDECHO" 0)
(princ "\n剪除框外物体")
(while (setq PT1 (getpoint "\n第一角点: "))
(if (setq PT2 (getcorner PT1 " >>>第二角点: "))
(progn
;;关闭对象捕捉
(setq OS_OLD (getvar "OSMODE"))
(setvar "OSMODE" 0)
;;绘制临时边界
(command "_rectang" PT1 PT2)
(setq S1 (entlast))
;;计算边界内的四个角点
(setq ANG (angle PT1 PT2)
D (distance PT1 PT2)
D (* D 1e-2)
PT1 (polar PT1 (+ ANG pi) D)
PT2 (polar PT2 ANG D)
PT3 (list (car PT1) (cadr PT2))
PT4 (list (car PT2) (cadr PT1))
)
;;强力剪切
(command "_.trim" S1 "")
(repeat 5
(command "f" PT1 PT3 PT2 PT4 PT1 "")
)
(command "")
(command "_.erase" (ssget "c" pt1 pt2) "r" "w" PT1 PT2 "")
;;删去临时边界
(command "_.erase" S1 "")
;;恢复对象捕捉设置
(setvar "OSMODE" OS_OLD)
)
)
)
(command "undo" "e")
(princ)
) ;_结束 defun
[/FONT]

[FONT=courier new] 
;;;功能：剪除框外物体 
(defun C:nn(/ PT1 PT2 OS_OLD S1 ANG D PT3 PT4) 
    ;;关闭命令回显 
    (command "undo" "g") 
    (setvar "CMDECHO" 0) 
    (princ "\n剪除框外物体") 
    (while (setq PT1 (getpoint "\n第一角点: ")) 
        (if (setq PT2 (getcorner PT1 " >>>第二角点: ")) 
            (progn 
                ;;关闭对象捕捉 
                (setq OS_OLD (getvar "OSMODE")) 
                (setvar "OSMODE" 0) 
                ;;绘制临时边界 
                (command "_rectang" PT1 PT2) 
                (setq S1 (entlast)) 
                ;;计算边界内的四个角点 
                (setq ANG (angle PT1 PT2) 
                      D          (distance PT1 PT2) 
                      D          (* D 1e-2) 
                      PT1 (polar PT1 (+ ANG pi) D) 
                      PT2 (polar PT2 ANG D) 
                      PT3 (list (car PT1) (cadr PT2)) 
                      PT4 (list (car PT2) (cadr PT1)) 
                ) 
                ;;强力剪切 
                (command "_.trim" S1 "") 
                (repeat        5 
                    (command "f" PT1 PT3 PT2 PT4 PT1 "") 
                ) 
                (command "") 
                (command "_.erase" (ssget "c" pt1 pt2) "r" "w" PT1 PT2 "") 
                ;;删去临时边界 
                (command "_.erase" S1 "") 
                ;;恢复对象捕捉设置 
                (setvar "OSMODE" OS_OLD) 
            ) 
        ) 
    ) 
    (command "undo" "e") 
    (princ) 
) ;_结束 defun 
  [/FONT]

最初由 cgh93001 发布
[B]14楼说的意思是不是只TRIM 而不删除那去掉最后的“E“ 就可以了吧！ [/B]

可以这么认为。这样做的结果是与选框相交的非LINE、非LWPOLYLINE、非ARC实体将不会被删除。

真龙天子 · 发表于 2007-8-19 22:39:34

经测试,16楼的也没达到只删除与选框相交实体的框外部分,而不是把与选框相交或不相交的框外所有的实体都删除.

gysjy · 发表于 2007-8-20 19:37:38

最初由真龙天子发布
[B]经测试,16楼的也没达到只删除与选框相交实体的框外部分,而不是把与选框相交或不相交的框外所有的实体都删除. [/B]

没有把不相交的框外所有的实体都删除，你重新测试一下看。

真龙天子 · 发表于 2007-8-20 22:53:21

经重新测试,16楼的程序达到了预期目的,没有把不相交的实体删除掉,能否请gysjy再进一步开发一下,使之能沿splline或者pline线(不一定封闭)所形成的边界剪裁,鼠标点线的左边即剪掉与线相交实体的左边部分,鼠标点线的右边即剪掉与线相交实体的右边部分.这样就可以适应各种剪栽需要了,不知能否达到?

gysjy · 发表于 2007-8-20 23:18:51

最初由真龙天子发布
[B]能否请gysjy再进一步开发一下.. [/B]

容我考虑一下，请稍等候。

……………………………………………………

现已就这一问题编写好一段程序，详情请参阅：

http://p4.xdcad.net/forum/showth ... 3264795#post3264795

附图为剪裁效果：

登录/注册后可看大图

真龙天子 · 发表于 2007-8-23 14:46:08

真的很感谢gysjy大侠,你这个剪切程序很好用,完全达到了预期的目的,可以说这处程序可适应一切剪切的需要,非常感谢!

jxdiy · 发表于 2007-8-29 08:23:47

只能多支持啊

攒钱下载

xgr · 发表于 2007-9-24 05:41:33

这样的剪切理论上看是可行的，但处理复杂点的图形时可能有问题，如边界接触到块，CASS和天正的剪切命令就做的非常好，要达到那个效果才行的。

xyp1964 · 发表于 2007-9-24 08:58:15

框选详图示意

xyp1964 · 发表于 2007-9-24 09:00:05

快刀斩乱麻：

xyp1964 · 发表于 2007-9-24 09:01:09

外部删除：

yu320 · 发表于 2007-9-26 10:02:21

可以使用microstation围栅命令
功能非常多

bububa918 · 发表于 2007-10-11 20:42:56

记得天正里有个图形裁剪命令，可以将图形中的某一部分裁剪出来，放大若干倍，
不知能否用上面程序实现

真龙天子 · 发表于 2007-10-14 12:06:11

xyp1964班主在24、25、26楼所演示的很好啊，程序在哪呀，给个地址吧。

yingjun3 · 发表于 2014-5-3 10:00:50

下载了谢谢

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

[求助] [求助]：框选剪切的改进问题