求助属性块点选编号问题

yansu

求助属性块点选编号问题，块内有多个属性，能否点击某个属性即可数字部分加1（属性有字母前缀）。谢谢

xyp1964

;; 需要e派工具箱的支持

2. (defun c:tt ()
   
3.   (setq        e1 (nentsel "\n选择: ")
   
4.         s1 (car e1)
   
5.   )
   
6.   (if (= (xyp-get-dxf 0 s1) "ATTRIB")
   
7.     (if        (setq a (distof (xyp-get-dxf 1 s1)))
   
8.       (xyp-SubUpd s1 1 (rtos (+ a 1)))
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   (setq        e1 (nentsel "\n选择: ")<br />         s1 (car e1)<br />   )<br />   (if (= (xyp-get-dxf 0 s1) "ATTRIB")<br />     (if        (setq a (distof (xyp-get-dxf 1 s1)))<br />       (xyp-SubUpd s1 1 (rtos (+ a 1)))<br />     )<br />   )<br />   (princ)<br /> )

yansu

谢谢，我下了e工具箱，连同tt文件一起加载了，运行tt按提示选择了图块，回车后退出了。现将图块文件上传，请帮忙看看。

xyp1964

2. (defun c:tt ()
   
3.   (setq e1 (nentsel "\n选择: ")
   
4. s1 (car e1)
   
5.   )
   
6.   (if (= (xyp-get-dxf 0 s1) "ATTRIB")
   
7.     (progn
   
8.       (setq tx (xyp-get-dxf 1 s1)
   
9.      lst (xyp-Get-HzEngNum tx 0)
   
10.       )
    
11.       (if (setq a (distof (cadr lst)))
    
12. (xyp-SubUpd s1 1 (strcat (car lst) (rtos (+ a 1) 2 0)))
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    

(defun c:tt ()<br />   (setq e1 (nentsel "\n选择: ")<br /> s1 (car e1)<br />   )<br />   (if (= (xyp-get-dxf 0 s1) "ATTRIB")<br />     (progn<br />       (setq tx (xyp-get-dxf 1 s1)<br />      lst (xyp-Get-HzEngNum tx 0)<br />       )<br />       (if (setq a (distof (cadr lst)))<br /> (xyp-SubUpd s1 1 (strcat (car lst) (rtos (+ a 1) 2 0)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

yansu

十分感谢。