[求助]：能否用引线标注的时候，直接标注出块名？

逸舟

这样可以少打好多字。
谁能帮忙。

zxq0220

试一下程序，不知能否满足楼主的要求。

2. 
   
3. (DEFUN C:MLE ()
   
4. (IF (SETQ SS (ENTSEL "\nPlease Select Block(s) 请选择插入的图块 :")) (PROGN
   
5.   (SETQ PT (CADR SS) SS (CAR SS))
   
6.   (REDRAW SS 3)
   
7.   (SETQ ENT (ENTGET SS)
   
8.         EN  (CDR (ASSOC 0 ENT)))
   
9.   (IF (= EN "INSERT") (PROGN
   
10.    (SETQ OLDOS (GETVAR "OSMODE"))
    
11.    (SETVAR "OSMODE" 0)
    
12.    (SETQ BLOCKNAME (CDR (ASSOC 2 ENT)))
    
13.    (COMMAND "LEADER" PT PAUSE "" BLOCKNAME "")
    
14.    (REDRAW SS 4)
    
15.    (SETVAR "OSMODE" OLDOS)
    
16.   ))
    
17. ))
    
18. (PRINC)
    
19. )
    

<br /> (DEFUN C:MLE ()<br /> (IF (SETQ SS (ENTSEL "\nPlease Select Block(s) 请选择插入的图块 :")) (PROGN<br />   (SETQ PT (CADR SS) SS (CAR SS))<br />   (REDRAW SS 3)<br />   (SETQ ENT (ENTGET SS)<br />         EN  (CDR (ASSOC 0 ENT)))<br />   (IF (= EN "INSERT") (PROGN<br />    (SETQ OLDOS (GETVAR "OSMODE"))<br />    (SETVAR "OSMODE" 0)<br />    (SETQ BLOCKNAME (CDR (ASSOC 2 ENT)))<br />    (COMMAND "LEADER" PT PAUSE "" BLOCKNAME "")<br />    (REDRAW SS 4)<br />    (SETVAR "OSMODE" OLDOS)<br />   ))<br /> ))<br /> (PRINC)<br /> )<br />

egos

可以  引线标注的文字大小不能自动控制