xyp1964 发表于 2021-2-28 19:42:42

cawy113116 发表于 2021-2-28 18:16
这个函数（xyp-Ss2List）可以分享一下吗？

(defun xyp-Ss2List (ss / i s1 lst)
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq lst (cons s1 lst))
)
lst
)

依然小小鸟 发表于 2023-5-26 08:58:46

不错的帖子 顶一下
页: 1 [2]
查看完整版本: 悬挂点 并智能连线