434939575 发表于 2015-3-23 20:29:52

调取子函数的选择集


(defun c:tt () ;xzj调取通用函数产生的选择集
(sel)
(setq ss1 (ssget "p"))
(sssetfirst nil ss1)
)

(defun sel ()
(setq ss1 (ssget '((0 . "circle"))))
)
页: [1]
查看完整版本: 调取子函数的选择集