[求助]VisualLISP应该如何实现"集成entsel和ssget"选择功能?

e2002

问题:
AutoCAD 2006 的Trim , Extend 命令在选择好边界后,用户如果直接点取一个对象,则开始操作,如果用户没有点中对象,则直接框选对象进行操作.
请问VisualLISP应该如何实现这样的"集成entsel和ssget"选择功能?

无痕

xdcad论坛上有帖子讨论了这个问题并且有程序，你可找找


那个是点中延伸一个，点空开始画sketch类的区域（用grread方法）进行剪切，和你的要求有点区别，可参考。


如果是框选：


可以 (setq pt (getpoint))


如果(ssget pt '((...))) 延伸一个


nil 则(setq         pt2 (getcorner pt))


(ssget "c" pt pt2 '((....)))


...


也可以用(ssget ":s")结合ssnamex