双击修改块属性

zlg258369

2. (DEFUN C:hua ( / e o attval);剖面花修改
   
3.   (if (and (setq e (ssname (ssget) 0))
   
4.      (OR (= (cdr (assoc 2 (entget e))) "sxsy") (= (cdr (assoc 2 (entget e))) "DWGNO-M"))
   
5.            (setq o (vlax-Ename->vla-Object e)))
   
6.       (mapcar
   
7.            '(lambda (Att)
   
8.                     (if (setq AttVal (cdr (assoc (vla-get-TagString Att) '(("JD-XN" . "03")))));'(("A" . "1") ("JD-XN" . "03"))
   
9.                         (vla-put-TextString Att (if (= (strlen (setq str (GETSTRING "\n请输入新值："))) 1 )
   
10.               (strcat "JD-0" str)
    
11.               (strcat "JD-" STR)))
    
12.                     )
    
13.             )
    
14.             (vlax-invoke O "GetAttributes")
    
15.       )
    
16.   
    
17.       (command "eattedit" e)
    
18.   )
    
19. )

(DEFUN C:hua ( / e o attval);剖面花修改<br />   (if (and (setq e (ssname (ssget) 0))<br />      (OR (= (cdr (assoc 2 (entget e))) "sxsy") (= (cdr (assoc 2 (entget e))) "DWGNO-M"))<br />            (setq o (vlax-Ename->vla-Object e)))<br />       (mapcar<br />            '(lambda (Att)<br />                     (if (setq AttVal (cdr (assoc (vla-get-TagString Att) '(("JD-XN" . "03")))));'(("A" . "1") ("JD-XN" . "03"))<br />                         (vla-put-TextString Att (if (= (strlen (setq str (GETSTRING "\n请输入新值："))) 1 )<br />               (strcat "JD-0" str)<br />               (strcat "JD-" STR)))<br />                     )<br />             )<br />             (vlax-invoke O "GetAttributes")<br />       )<br />   <br />       (command "eattedit" e)<br />   )<br /> )

判断是否是自己需要的属性块并修改，在双击立面改一下就好了。


该贴已经同步到 zlg258369的微博

daidong013

坐个沙发！~