反选择对象程序，顺序可 以反过来吗

龙龙仔

(defun POSELECT2 (SS1 SS2 / SS)
  (command "_.select" SS1 "a" SS2 "r" SS1 "")
  (setq SS (ssget "P"))
)

(defun SELECTSS2 ()
  (setq SS2 (ssget))
  (if (= SS2 NIL)
    (setq SS2 (ssget "all"))
  )
  SS2
)

;;;先選被篩對像再選大範圍
(defun HERO_F-SELECT-OBJECT ()
  (if (setq SS1 (ssget))
    (progn
      (princ "提示：空選即為全選，中斷用ESC!")
      (SELECTSS2)
      (setq 反選 (POSELECT2 SS1 SS2))
      (sssetfirst NIL 反選)
    )
  )
)

w245272914

龙龙仔 发表于 2008-8-26 15:57
(defun POSELECT2 (SS1 SS2 / SS)  (command "_.select" SS1 "a" SS2 "r" SS1 "")  (setq SS (ss ...

版主，该程序的命令是什么啊。我只会command 编程。所以~~~~