选择集调用代码,还有更直接的方法吗?
(setq a (ssget '((0 . "line,arc,insert"))))(setq b (ssget '((0 . "text"))))
....
(sssetfirst nil a)
(ssget "i")
(sssetfirst nil nil)
(setq c (ssget "p" '((0 . "line"))))
....
(sssetfirst nil a)
(ssget "i")
(sssetfirst nil nil)
(setq c (ssget "p" '((0 . "arc"))))
....
(sssetfirst nil a)
(ssget "i")
(sssetfirst nil nil)
(setq c (ssget "p" '((0 . "insert"))))
还有更直接的方法吗?
要能在对话框中可以运行的
学习了。感谢! 对sssetfirst不太理解。!
页:
[1]