lshpool 发表于 2019-3-12 14:54:22

如何把这段程序改成多选

这个程序是et扩展工具中的源程序，功能是接触选择，举例：选择一条线段或多义线，可以把和这条多义线有接触的图元选中，但是每次只能选一条直线或多义线，能不能修改一下程序，让它可以实现选择多个线上的相接触的图元？

xyp1964 发表于 2019-3-16 18:52:56


;; tt(接触选择)
(defun c:tt ()
(setq i   -1
        lst '()
)
(if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
    (progn
      (while (setq s1 (ssname ss (setq i (1+ i))))
        (setq a (xyp-EnameIntersList s1)
              lst (append a lst)
        )
      )
      (setq lst (xyp-DelSame lst)
          ss        (xyp-LIst2ss lst)
      )
      (sssetfirst nil ss)
    )
)
(princ)
)

lshpool 发表于 2019-3-18 14:07:52

错误: no function definition: XYP-ENAMEINTERSLIST
这是怎么了

Andyhon 发表于 2019-3-18 14:32:34

院长的自定义函数
多翻翻院长的帖子即知

253996799 发表于 2019-3-18 16:24:27

lshpool 发表于 2019-3-18 14:07
错误: no function definition: XYP-ENAMEINTERSLIST
这是怎么了

要下院长的工具箱
页: [1]
查看完整版本: 如何把这段程序改成多选