[求助]请高手帮忙优化一下延长的程序，拜托！

chen10jing

一个任意点延长的程序，希望能进行优化。
(defun C:kxyc (/ PT1 S0 S1 S2)
(setvar "CMDECHO" 0)
(if (setq PT1 (getpoint "\n指定点位: "))
(progn
;;
(command "_.xline" "h" "non" PT1 "")
(setq S0 (entlast))
(command "_.xline" "v" "non" PT1 "")
(setq S1 (entlast))
;;
(command "_.EXTEND" S0 S1 "")
(while (setq S2 (entsel "\n点取对象: "))
(command S2)
)
(command "")
(command "_erase" S0 S1 "")
)
)
(setvar "CMDECHO" 1)
(princ)
) ;_结束 defun

优化的目标：1、能实现框选功能；2、中途ESC退出时辅助边界能消除。
谢谢了！

chen10jing

寻求帮助，请高手支招，帮忙解决一下，实在迫切，万分感谢！

chen10jing

怎么就没有人帮我呢？这是多么好的一个想法，如果实现，省很多事情啊！急求高手帮忙！

龙龙仔

測試版(編譯版---vlx)

quanguang

把(while (setq S2 (entsel "\n点取对象: "))

变为(while (setq S2 (ssget"\n点取对象: "))就可以实现框选的功能了

至于中途ESC退出时辅助边界能消除的功能，我也很期待有人能解决

chen10jing

这样改后边界就不能消除了，就没法用了，不知道是什么原因，还请大家指点。

chen10jing

不用测试了，非常好用，极好，感谢感谢，寻到宝了。如此好的东西，又有了一个想法，临时边界是否会自己判断其它线与边界的关系，如果会判断，能否在选择与边界相交的线时，实现剪切功能，如此则功能更强大了，更方便了。