[求助]怎样对多个对象实现对单一对象的先执行后选择的vlx命令
www.dimcax.com
[求助]怎样对多个对象实现对单一对象的先执行后选择的vlx命令
我有几个vlx的命令，但这些命令都是对单一对象的先执行后选择命令，并且需要对多个对象实现这些命令，我该怎么办？
谢谢指点
d
;;一次选择执行方式
(defun c:multyourvlxcommand (/ ss s1 n)
(setq n -1 ss (ssget))
(if ss
(repeat (sslength ss)
(setq s1 (ssadd (ssname ss (setq n (+ n 1))) (ssadd)))
(sssetfirst nil s1)
(c:yourvlxcommand)
)
)
(princ)
)
;;逐一选择执行方式
(defun c:multyourvlxcommand (/ ss ent s1)
(while (setq ent (car (entsel)))
(setq s1 (ssadd ent (ssadd)))
(sssetfirst nil s1)
(c:yourvlxcommand)
)
(princ)
)
d