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

无痕

2. ;test 实现设置预选/响应预选实体的代码------------------------------------无痕.2004.2
3. (defun c:test ()   ;ssget方法，只对选取并获取的实体有效.
4.    (or (setq ss (ssget "I"))(setq ss (ssget filter)))
5.    (princ (strcat "\n共选择" (itoa (sslength ss)) "个实体."))
6.    (princ)
7. )(defun c:test0 ()   ;ssgetfirst方法，对选取的实体有效.
8.    (or (setq ss (car(ssgetfirst)))(setq ss (ssget filter)))
9.    (princ (strcat "\n共选择" (itoa (sslength ss)) "个实体."))
10.    (princ)
11. );;;;设置预选.
12. (defun c:test2 ()
13.    (setq ss (ssget))
14.    (sssetfirst ss ss)
15. )
16. (defun c:test3 ()
17.    (setq ss (ssget))
18.    (sssetfirst nil ss)
19. )
20. (defun c:test4 ()
21.    (setq ss (ssget))
22.    (sssetfirst ss nil) ;对test 无效.对test0有效.
23. )
24. ;|
25. (sssetfirst gripset [pickset])
26.        此函数将用来设定哪一个图形要被选取与获取。gripset 参数将用来指定只要获取的图形选择。
27.        pickset参数则用来指定要获取也要选取的图形选择集。如果这两个参数均有指定,
28.        则sssetfirst仅获取并选择经过pickset参数所指定的选择集。若只指定 gripset 参数,
29.        则此函数将获取经过 gripset 参数所指定的选择。
30.        sssetfirst 函数将返回选择集的两个变量。
31. |;

;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 函数将返回选择集的两个变量。 |;