从autolisp到图标

rengised · 发表于 2022-7-6 11:27:36

李，你能给我完整的密码吗？如果你不介意。。比\ks

Lee Mac · 发表于 2022-7-6 11:31:53

我解决这个问题的方法是：
[列表]

提示用户选择行（假设此时所有行都是行-稍微简化了一些事情）。
[/列表]
[列表]

将SelectionSet转换为VLA对象列表（更易于使用）。
[/列表]
[列表]

依次为每个对象找到该对象与SelectionSet中每个其他对象之间的交点。
[/列表]
[列表]

对于每一组交叉点，在列表中的前两个交叉点处打断对象（使用用法图的合理假设以及我们仅处理直线的事实）
我使用的库函数：

将选择集转换为VLA对象列表：

copy


;; ss  ~  SelectionSet
(defun LM:ss->vla ( ss )
 ;; © Lee Mac  ~  15.06.10
 (if ss
   (
     (lambda ( i / e l )
       (while (setq e (ssname ss (setq i (1+ i))))
         (setq l (cons (vlax-ename->vla-object e) l))
       )
       l
     )
     -1
   )
 )
)