求大神帮忙改一下这个改属性块的程序

e719

求各位大神帮忙弄一下，
现在只能改一个选一下，我想一下子改完。

2. (defun hs-tukuangmc ()
   
3.   "M")
   
4. (defun c:h9 ()   ;修改命令
   
5.   
   
6.   (setq A (SSGET))
   
7.   ( LMSSK "零件件号" "D0-1" )
   
8.   ( LMSSK  "零件名称" "入子" )
   
9.   ( LMSSK  "零件材质" "SKH-9" )
   
10.   ( LMSSK  "零件热处理" "60~62HRC%%D" )
    
11.   ( LMSSK  "零件数量" "1 PCS" ))
    
12. 
    
13. 
    
14. 
    
15. (defun LMSSK   (bq cz / ss i  s1 )
    
16.   (princ "\n请选择图框:")
    
17.   (setq        ss (ssget                        ;"_C" pt1 pt2
    
18.                     (list (cons -4 "<or") (cons 2 (hs-tukuangmc)) (cons -4 "OR>"))
    
19.                   )
    
20.   )
    
21.   (setq i 0)
    
22.   (repeat (sslength ss)
    
23.     (setq s1 (ssname ss i))
    
24.     (setq i (1+ i))
    
25.     (hs-sxtx bq cz s1)
    
26.   )
    
27. )
    
28. 
    
29. (defun hs-sxtx ( pn text s1 / aa a1 x bb)
    
30.   (setq        aa (vlax-safearray->list
    
31.                     (vlax-variant-value
    
32.                       (vla-GetAttributes (vlax-ename->vla-object s1))
    
33.                     )
    
34.                   )
    
35.   )
    
36.   (setq        a1 (mapcar '(lambda (x)
    
37.                              (cons (vla-get-Tagstring x) x)
    
38.                            )
    
39.                     aa
    
40.                   )
    
41.   )
    
42.   (setq bb (cdr (assoc pn a1)))
    
43.   (vla-put-textstring bb text)
    
44. )

(defun hs-tukuangmc ()<br />   "M") <br /> (defun c:h9 ()   ;修改命令<br />   <br />   (setq A (SSGET))<br />   ( LMSSK "零件件号" "D0-1" )<br />   ( LMSSK  "零件名称" "入子" )<br />   ( LMSSK  "零件材质" "SKH-9" )<br />   ( LMSSK  "零件热处理" "60~62HRC%%D" )<br />   ( LMSSK  "零件数量" "1 PCS" ))<br /> <br /> <br /> <br /> (defun LMSSK   (bq cz / ss i  s1 )<br />   (princ "\n请选择图框:")<br />   (setq        ss (ssget                        ;"_C" pt1 pt2<br />                     (list (cons -4 "<or") (cons 2 (hs-tukuangmc)) (cons -4 "OR>"))<br />                   )<br />   )<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq s1 (ssname ss i))<br />     (setq i (1+ i))<br />     (hs-sxtx bq cz s1)<br />   )<br /> )<br /> <br /> (defun hs-sxtx ( pn text s1 / aa a1 x bb)<br />   (setq        aa (vlax-safearray->list<br />                     (vlax-variant-value<br />                       (vla-GetAttributes (vlax-ename->vla-object s1))<br />                     )<br />                   )<br />   )<br />   (setq        a1 (mapcar '(lambda (x)<br />                              (cons (vla-get-Tagstring x) x)<br />                            )<br />                     aa<br />                   )<br />   )<br />   (setq bb (cdr (assoc pn a1)))<br />   (vla-put-textstring bb text)<br /> )

ssyfeng

试试这个行不行

e719

ssyfeng 发表于 2022-9-27 08:58
试试这个行不行

好了，十分感谢

zhangcan0515

留个脚印，方便日后学习