远方小山 发表于 2016-4-28 17:13:22

求教 如何构造一个选集，选集中的要素为上次命令新生成的要素

各位大神，小弟想构造一个选集，选集的要素为上次执行cad命令新生成的要素，求大神指教。

xiaolong1487 发表于 2016-4-28 18:47:31

(defun EntNextAll (en / ss)
        (setq ss (ssadd))
        (while (setq en (entnext en))
                (setq ss (ssadd en ss))
        )
        (if (/= (sslength ss) 0)
                ss
        )
)

(defun c:ts ()
        (setq en (entlast))
        ......
        ......
        (sssetfirst nil (setq ss (EntNextAll en)))
)

cchessbd 发表于 2023-6-21 16:30:09

xiaolong1487 发表于 2016-4-28 18:47


高手啊，太棒了。
页: [1]
查看完整版本: 求教 如何构造一个选集，选集中的要素为上次命令新生成的要素