实现设置预选/响应预选实体的代码

;test 实现设置预选/响应预选实体的代码------------------------------------无痕.2004.2
(defun c:test ()   ;ssget方法，只对选取并获取的实体有效.
   (or (setq ss (ssget "I"))(setq ss (ssget filter)))
   (princ (strcat "\n共选择" (itoa (sslength ss)) "个实体."))
   (princ)
)(defun c:test0 ()   ;ssgetfirst方法，对选取的实体有效.
   (or (setq ss (car(ssgetfirst)))(setq ss (ssget filter)))
   (princ (strcat "\n共选择" (itoa (sslength ss)) "个实体."))
   (princ)
);;;;设置预选.
(defun c:test2 ()
   (setq ss (ssget))
   (sssetfirst ss ss)
)
(defun c:test3 ()
   (setq ss (ssget))
   (sssetfirst nil ss)
)
(defun c:test4 ()
   (setq ss (ssget))
   (sssetfirst ss nil) ;对test 无效.对test0有效.
)
;|
(sssetfirst gripset [pickset])
       此函数将用来设定哪一个图形要被选取与获取。gripset 参数将用来指定只要获取的图形选择。
       pickset参数则用来指定要获取也要选取的图形选择集。如果这两个参数均有指定,
       则sssetfirst仅获取并选择经过pickset参数所指定的选择集。若只指定 gripset 参数,
       则此函数将获取经过 gripset 参数所指定的选择。
       sssetfirst 函数将返回选择集的两个变量。
|;