[求助]：编程时如何过滤掉其他实体，只选择性地删除文字或标注？

lemonx

如题

Underway

(command "_.Erase" (ssget "X" '((0 . "*TEXT,DIMENSION"))))

lemonx

我是指运行命令后，在选择时不会选择到其他实体

xyp1964

2. [FONT=courier new](command "_.Erase" (ssget '((0 . "*TEXT,DIMENSION"))))[/FONT]

[FONT=courier new](command "_.Erase" (ssget '((0 . "*TEXT,DIMENSION"))))[/FONT]

lemonx

为何选择之后要两次回车才能结束命令呢？

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun c:et ()
   
6. (command "_.Erase" (ssget '((0 . "*TEXT"))))
   
7. )
   
8. 
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> <br /> (defun c:et ()<br /> (command "_.Erase" (ssget '((0 . "*TEXT"))))<br /> )<br /> <br />   [/FONT]<br />

Underway

Command: (command "_.Erase" (ssget '((0 . "*TEXT"))) "" "")
_.Erase
Select objects: Specify opposite corner: 2 found
Select objects: Specify opposite corner: 2 found, 4 total
Select objects: Specify opposite corner: 2 found, 6 total

Select objects:
Select objects:   6 found
Select objects:

lemonx

终于搞定，选择性删除文字

2. 
   
3. (defun c:et ()
   
4. (if (setq x (ssget '((0 . "TEXT"))))
   
5.     (command "._erase" x "")
   
6. )
   
7. )
   

<br /> (defun c:et ()<br /> (if (setq x (ssget '((0 . "TEXT"))))<br />     (command "._erase" x "")<br /> )<br /> )<br />