求一个块名标注插件

l982414

求高手做一款块名标注插件1.执行插件命令后，点击块，出来一条引线，然后引线上有块名文字。如下图

sh_h

1. ;;; 获取块名并引线标注
   
2. ;;; Alisp
   
3. (defun c:ttt (/ blk blk_data blk_name blk_pti)
   
4.   (setvar "cmdecho" 0)                       ; 命令执行过程不响应
   
5.   (setq blk (car (entsel "\n请选择一个图块: "))) ; 要求点选一个图块
   
6.   (setq blk_data (entget blk))
   
7.   (setq blk_pti (cdr (assoc 10 blk_data))) ; 取得块的插入点
   
8.   (setq blk_name (cdr (assoc 2 blk_data))) ; 取得块名
   
9.   (command "._leader" blk_pti pause "" blk_name "")
   
10.   (setvar "cmdecho" 1)
    
11.   (prin1)
    
12. )
    
13. ;;; Vlisp
    
14. (defun c:ttt (/ blk_name blk_pti vobj)
    
15.   (setvar "cmdecho" 0)                       ; 命令执行过程不响应
    
16.   (setq vobj (vlax-ename->vla-object (car (entsel "\n请选择一个图块: ")))) ; 取得块的插入点
    
17.   (setq blk_pti (Vlax-SafeArray->List (Vlax-Variant-Value
    
18.                                                           (vla-get-InsertionPoint vobj)
    
19.                                       )
    
20.                 )
    
21.   )
    
22.   (setq blk_name (vla-get-Name vobj))  ; 取得块名
    
23.   (command "._leader" blk_pti pause "" blk_name "")
    
24.   (setvar "cmdecho" 1)
    
25.   (prin1)
    
26. )
    
27. 
    

;;; 获取块名并引线标注<br /> ;;; Alisp<br /> (defun c:ttt (/ blk blk_data blk_name blk_pti)<br />   (setvar "cmdecho" 0)                       ; 命令执行过程不响应<br />   (setq blk (car (entsel "\n请选择一个图块: "))) ; 要求点选一个图块<br />   (setq blk_data (entget blk))<br />   (setq blk_pti (cdr (assoc 10 blk_data))) ; 取得块的插入点<br />   (setq blk_name (cdr (assoc 2 blk_data))) ; 取得块名<br />   (command "._leader" blk_pti pause "" blk_name "")<br />   (setvar "cmdecho" 1)<br />   (prin1)<br /> )<br /> ;;; Vlisp<br /> (defun c:ttt (/ blk_name blk_pti vobj)<br />   (setvar "cmdecho" 0)                       ; 命令执行过程不响应<br />   (setq vobj (vlax-ename->vla-object (car (entsel "\n请选择一个图块: ")))) ; 取得块的插入点<br />   (setq blk_pti (Vlax-SafeArray->List (Vlax-Variant-Value<br />                                                           (vla-get-InsertionPoint vobj)<br />                                       )<br />                 )<br />   )<br />   (setq blk_name (vla-get-Name vobj))  ; 取得块名<br />   (command "._leader" blk_pti pause "" blk_name "")<br />   (setvar "cmdecho" 1)<br />   (prin1)<br /> )<br /> <br />

jiangnanemail

可以帮你一下！

l982414

非常谢谢，

qianzhufeng

sh_h 发表于 2017-9-20 08:43

获取块名并引线标注

最后在cad里如何输入命令

l982414

ttt就是命令