[求助]：请问xyp1964,斑竹，你给我的反选程序为什么会自动取消选择？

gcb998 · 发表于 2005-12-16 23:06:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:TEST ()
  (princ "\n选择 : ")
  (setq ss1 (ssget "X")
ss2 (ssget)
n -1
  )
  (command "select" ss1 "r" ss2 "")
  (setq ss (ssget "P"))
  (while (setq s1 (ssname ss (setq n (1+ n))))
(redraw s1 3)
  )
  ss
)

如何才能既反选又不把选择的程序取消，谢谢帮助！

WHGF · 发表于 2005-12-17 09:11:32

SS1中是你选择的全部对象，只要对它进行操作就可以了！

jx_jimmy · 发表于 2006-1-3 20:50:17

good

xyp1964 · 发表于 2006-1-3 21:36:24

可根据实际需要对选择集!ss进行操作。

[FONT=courier new](defun c:TEST (/ ss1 ss2 n s1)
(princ "\n选择 : ")
(setq ss1 (ssget "X")
ss2 (ssget)
n -1
)
(command "select" ss1 "r" ss2 "")
(setq ss (ssget "P"))
(while (setq s1 (ssname ss (setq n (1+ n))))
(redraw s1 3)
)
(princ "\n反选选择集名 : !SS")
(princ)
)[/FONT]

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请问xyp1964,斑竹，你给我的反选程序为什么会自动取消选择？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子