;用ssget实现一次选择的动作获得多个不同的选择集 (setq ss1 (ssget)) ;选择集1:选中的所有对象 (sssetfirst nil ss1) ;ss1成为当前选择集 (sssetfirst) ;取消ss1的高亮 ;以上两句可用(command "select" ss "")替换 (setq ss2 (ssget "p" '((0 . "line"))));ss1中的所有LINE图元赋给ss2 (sssetfirst nil ss1) ;ss1成为当前选择集 (sssetfirst) ;取消ss1的高亮 ;以上两句可用(command "select" ss "")替换 (setq ss3 (ssget "p" '((0 . "circle"))));ss1中的所有CIRCLE图元赋给ss3 |