求大神帮帮忙，把这个程序改成可以框选使用。

e719

1. ;;功能：属性块中属性文字的修改
   
2. ;;作者 zml84
   
3. ;;参数：
   
4. ;;      EN -----包含属性的块的图元名称
   
5. ;;      AttName -----属性名称
   
6. ;;      int -----修改的组码编号
   
7. ;;      Value -----修改为的值
   
8. 
   
9. 
   
10. ;;用法示例:
    
11. ;;(ZL-INSERT-SETATT entname "TEST1" 1 "WG-4/TL")，即修改图元名为entname的TEST1属性值为"WG-4/TL"
    
12. 
    
13. ;;int为2时可以修改属性名(即标记)的值
    
14. 
    
15. (DEFUN ZL-INSERT-SETATT        (EN ATTNAME INT VALUE / RETURN E FLAG ENT)
    
16.   (SETQ E EN RETURN NIL FLAG T)
    
17.   (WHILE (AND FLAG (SETQ E (ENTNEXT E)))
    
18.     (SETQ ENT (ENTGET E))
    
19.     (COND
    
20.       ((NOT (= (CDR (ASSOC '0 ENT)) "ATTRIB")) (SETQ FLAG NIL))
    
21.       ((= "SEQEND" (CDR (ASSOC '0 ENT))) (SETQ FLAG NIL))
    
22.       ((= (CDR (ASSOC '2 ENT)) ATTNAME)
    
23.        (IF (ASSOC INT ENT)
    
24.          (SETQ ENT (SUBST (CONS INT VALUE) (ASSOC INT ENT) ENT))
    
25.          (SETQ ENT (CONS (CONS INT VALUE) ENT))
    
26.        )
    
27.        (ENTMOD ENT)
    
28.        (ENTUPD EN)
    
29.        (SETQ RETURN T)
    
30.       )
    
31.     ) ;_结束COND
    
32.   )
    
33.   ;;返回RETURN
    
34. )
    
35. 
    
36. 
    
37. ;;(ZL-INSERT-SETATT (car(entsel)) "TEST1" 2 "ATT1")
    
38. ;;(ZL-INSERT-SETATT (car(entsel)) "TEST2" 1 "WG-4/TL")
    
39. (DEFUN C:1QA ()
    
40.   (ZL-INSERT-SETATT (car(entsel)) "图纸编号" 1 "66")
    
41.   (ZL-INSERT-SETATT (car(entsel)) "页码" 1 "A-15")
    
42.   (PRINC)
    
43. )

复制代码

程序是论坛里找到的。我想改成框选两个以上不同图框的可以使用。谢谢老铁们.

start4444

弄清楚自定义函数的用法就很简单了，就像给了你个工具，你想整哪个就整哪个

自贡黄明儒

1. (DEFUN C:1QA (/ E N SS)
   
2.   (while (setq ss (ssget ":S" '((0 . "INSERT"))))
   
3.     (repeat (setq n (sslength ss))
   
4.       (setq e (ssname ss (setq n (1- n))))
   
5.       (ZL-INSERT-SETATT e "图纸编号" 1 "66")
   
6.     )
   
7.   )
   
8.   (PRINC)
   
9. )

(DEFUN C:1QA (/ E N SS)<br />   (while (setq ss (ssget ":S" '((0 . "INSERT"))))<br />     (repeat (setq n (sslength ss))<br />       (setq e (ssname ss (setq n (1- n))))<br />       (ZL-INSERT-SETATT e "图纸编号" 1 "66")<br />     )<br />   )<br />   (PRINC)<br /> )