[求助]：ssget用法疑问

pxt2001

(setq ss (ssget '((0 . "TEXT"))))如何过滤掉(不选择)已锁定的对象

aeo

A All
B Box
C Crossing
CP Crossing Polygon
:D Duplicates OK
:E Everything in aperture
F Fence
G Groups
I Implied
L Last
:L Rejects locked layers
M Multiple
:N Nested
P Previous
:P Rejects Viewport
:S Force single object selection only
W Window
WP Window Polygon
X Extended search (search whole database)

gysjy

可考虑用select命令。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn(/ s1)
   
5. (setq ss (ssget) s1(ssget "p" '((0 . "TEXT"))))
   
6. (command "select" ss "r" s1 "")
   
7. (setq ss (ssget "p"))
   
8.     (princ)
   
9. )
   
10. 
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn(/ s1)<br /> (setq ss (ssget) s1(ssget "p" '((0 . "TEXT"))))<br /> (command "select" ss "r" s1 "")<br /> (setq ss (ssget "p"))<br />     (princ)<br /> ) <br /> <br />   [/FONT]<br />