交点打断程序疑惑

冒个烟圈

这段代码出自于“七七0707”，原帖【悬赏5明经币求程序】求"交点打断"的lisp - 编程申请 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)

程序使用时出现的问题点：加载后第1次运行OK没问题，但是undo返回之后，再次运行出现两种情况；
情形1    提示 错误: Automation 错误。 调用方法 Clear (接口 IAcadSelectionSet) 失败
情形2    没有任何提示，也不打断相交线段了

CAD版本2020，其它版本没试过，请各位帮忙测试查找原因，感谢！

烟花丝雨

试一试这个，

2. ;增加部分代码
   
3. (setq ssobj (vla-get-activeselectionset thisdrawing) )
   
4. 
   
5. (vla-Clear ssobj)       

;增加部分代码<br /> (setq ssobj (vla-get-activeselectionset thisdrawing) )<br /> <br /> (vla-Clear ssobj)       

冒个烟圈

烟花丝雨 发表于 2023-10-28 08:55
试一试这个，

增加这两行代码OK了，受教了

xyp1964

关闭捕捉状态

hzg912

学习中，感谢分享

qazxswk

这个代码，打断多段线时，如果是多段线的顶点（非交点）的地方也被打断了。如图所示。能不能修改成，仅打断交点位，多段线的顶点位置，不打断？

依然小小鸟

希望有大神完善

luyu9635

这是函数的bug,木得办法