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

chen10jing · 发表于 2007-8-14 20:21:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;功能：框选剪切
;;;日期：zml84 于 2007-08-08 21:15
(defun C:KXJQ(/ PT1 PT2 OS_OLD S1 ANG D PT3 PT4)
;;关闭命令回显
(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 D)
PT2 (polar PT2 (+ ANG pi) 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" "w" PT1 PT2 "")
;;删去临时边界
(command "_.erase" S1 "")
;;恢复对象捕捉设置
(setvar "OSMODE" OS_OLD)
)
)
)
(princ)
) ;_结束 defun

;;;功能：框选剪切 
;;;日期：zml84 于 2007-08-08 21:15 
(defun C:KXJQ(/ PT1 PT2 OS_OLD S1 ANG D PT3 PT4) 
    ;;关闭命令回显 
    (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 D) 
                      PT2 (polar PT2 (+ ANG pi) 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" "w" PT1 PT2 "") 
                ;;删去临时边界 
                (command "_.erase" S1 "") 
                ;;恢复对象捕捉设置 
                (setvar "OSMODE" OS_OLD) 
            ) 
        ) 
    ) 
    (princ) 
) ;_结束 defun

zml184这段程序非常好用，只是光标是十字的，拾取物体时总是捕捉，我想让它拾取物体的时候用拾取框，请那位老大帮忙改进改进，万份感谢。

sony123 · 发表于 2007-8-14 21:01:20

不需要改进吧，这个是没有rectang边框的，，你的意思你的是有矩形边框的吧？？

chen10jing · 发表于 2007-8-14 23:30:30

不是那个意思,在发出命令后,鼠标的形状就变成了十字形的了,这个时候是要框选,我希望鼠标是拾取框而不是十字.

真龙天子 · 发表于 2007-8-15 10:42:30

楼主的程序是把框内的剪掉了,能不能保留框内的,剪掉框外的?

chen10jing · 发表于 2007-8-15 11:59:46

这个问题请你请教zml84，他应该可以帮你实现。

gysjy · 发表于 2007-8-15 19:10:10

最初由真龙天子发布
[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剪除框外物体")
(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" "all" "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剪除框外物体") 
    (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" "all" "r" "w" PT1 PT2 "") 
                ;;删去临时边界 
                (command "_.erase" S1 "") 
                ;;恢复对象捕捉设置 
                (setvar "OSMODE" OS_OLD) 
            ) 
        ) 
    (command "undo" "e") 
    (princ) 
) ;_结束 defun 
 
  [/FONT]

chen10jing · 发表于 2007-8-15 21:13:55

就没有人愿意帮帮我吗？

zml84 · 发表于 2007-8-15 21:14:10

很强啊！赞美一下！

TLHMQH · 发表于 2007-8-15 22:01:42

楼主的意思好象想要对已有的框进行框内剪切，可参考offset命令进行改进。

gysjy · 发表于 2007-8-16 12:44:12

最初由 chen10jing 发布
[B]只是光标是十字的，拾取物体时总是捕捉，我想让它拾取物体的时候用拾取框……[/B]

能不能说得更明白一点？

Dallas_whu · 发表于 2007-8-16 15:22:51

就是说，可以框选，也可以点选。lisp好像做不到吧^_^。2006以上的版本剪切都可以这样啊！

chen10jing · 发表于 2007-8-16 15:51:38

对，就是那样，出现那个点选的那个小四边形，现在的是一个十字架，不方便。点不点选倒还其次，关键是要那个鼠标的形状是小四边形的。

gysjy · 发表于 2007-8-16 19:38:08

最初由 chen10jing 发布
[B]对，就是那样，出现那个点选的那个小四边形，现在的是一个十字架，不方便。点不点选倒还其次，关键是要那个鼠标的形状是小四边形的。 [/B]

请参阅http://p4.xdcad.net/forum/showthread.php?s=&threadid=639687

真龙天子 · 发表于 2007-8-18 23:46:24

感谢6楼的程序,请gysjy大侠改一下,要达到只是删除与选框相交的框外的实体,而不是把与选框相交或不相交的框外所有的实体都删除.

cgh93001 · 发表于 2007-8-19 00:34:38

14楼说的意思是不是只TRIM 而不删除那去掉最后的“E“ 就可以了吧！

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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