[求助]：菜鸟求助:如何去掉块上的数字？以改图可见

duangf

如图：批量去掉如：C1215；M2423；M0721等，最好能一次性去掉所有的。

                               
登录/注册后可看大图

块打散后数字自动没有了，不过一个一个去打散好麻烦的哈。另：三楼的好有趣：）

782150yhm

如图看不到.

yi.gao

皇帝的新装一件又一件。

会飞的狐狸

对，看不到。

nore

如果块是同一个的话，编辑块就可以了

刘守银

炸开掉,去掉文字后,然后再创建成块.

HLB_Konan

如果块内那些文字是独立一个层的话 就好办了  
如果不是 只能一个一个修改了块内文字属性
等楼下的好办法吧:)

CADHUA

第一、你可以用FIND查找替换，例如：查找C1615，然后在替换一行里空白，这样此文件中所有C1615的文字都会被删除，以此方法去替换别的块文字。
第二、还可以用快速选择的方法，然后在属性栏里最下边会出现属性块里的文字原始代码，后面的框里的文字显示为空，就可以同时去掉同一块名称里的块属性文字...建议用这种方法，平时我也是这么做的，快速简便。

gysjy

最初由 duangf 发布
[B]如图：批量去掉如：C1215；M2423；M0721等，最好能一次性去掉所有的。
块打散后数字自动没有了，不过一个一个去打散好麻烦的哈。 [/B]

这些是块的属性，可以关闭它们。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn(/ ss n sn en e1 y1 );属性开关
   
5.   (setvar "cmdecho" 0)
   
6.   (setq ss (ssget '((0 . "INSERT")))                     
   
7.         n 0
   
8.   )
   
9.   (if ss
   
10.     (progn
    
11.       (repeat (sslength ss)
    
12.         (setq sn (ssname ss n) en (entget sn) n (1+ n)
    
13.               e1 (entget (entnext (cdr (car en))))
    
14.               y1 (cdr (assoc 70 e1)) y1 (if (= y1 1) 0 1)            
    
15.               e1 (subst (cons 70 y1)(assoc 70 e1) e1)
    
16.         )
    
17.         (entmod e1)
    
18.         (entmod en)
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn(/ ss n sn en e1 y1 );属性开关<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget '((0 . "INSERT")))                      <br />         n 0 <br />   )<br />   (if ss<br />     (progn<br />       (repeat (sslength ss)<br />         (setq sn (ssname ss n) en (entget sn) n (1+ n)<br />               e1 (entget (entnext (cdr (car en)))) <br />               y1 (cdr (assoc 70 e1)) y1 (if (= y1 1) 0 1)            <br />               e1 (subst (cons 70 y1)(assoc 70 e1) e1)<br />         )<br />         (entmod e1)<br />         (entmod en)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

装入后，执行nn即可。