悬挂点 并智能连线

xyp1964

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

1. (defun xyp-Ss2List (ss / i s1 lst)
   
2.   (setq i -1)
   
3.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
4.     (setq lst (cons s1 lst))
   
5.   )
   
6.   lst
   
7. )

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

依然小小鸟

不错的帖子 顶一下