求修改程序单选改批量修改

ymcui

能否改成批量改属性

2. (defun c:tt()
   
3. (SETQ K1  (GETDIST "\n请输入厚度:"))
   
4. (SETQ K2  (GETDIST "\n请输入长度:"))
   
5. (SETQ K3  (GETDIST "\n请输入宽度:"))
   
6. (setq rev (strcat (rtos k1 2 1) " x "(rtos K2 2 1)" x "(rtos K3 2 1)))
   
7.    (SETQ ENT (ENTGET (CAR (ENTSEL)))
   
8.          ENT1 ENT)
   
9.    (setq SS (Cdr (Assoc -1 ent1)))
   
10.     (IF (/= "SEQEND" (cdr (assoc 0 ENT)))
    
11.           (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1)))))))
    
12. 
    
13. "ATTRIB")
    
14.             (cond
    
15.               ((= (CDR (ASSOC 2 ENT1)) "零件规格")
    
16.                (SETQ ENT1 (SUBST (CONS 1 REV) (ASSOC 1 ENT1) ENT1))
    
17.                   (ENTMOD ENT1))
    
18.               )
    
19.             )
    
20.           )
    
21.   (entdel SS)
    
22.   (entdel SS)
    
23.   (setvar "cmdecho" 1)
    
24.   (setvar "osmode" 247)
    
25. )

(defun c:tt()<br /> (SETQ K1  (GETDIST "\n请输入厚度:"))<br /> (SETQ K2  (GETDIST "\n请输入长度:"))<br /> (SETQ K3  (GETDIST "\n请输入宽度:"))<br /> (setq rev (strcat (rtos k1 2 1) " x "(rtos K2 2 1)" x "(rtos K3 2 1)))<br />    (SETQ ENT (ENTGET (CAR (ENTSEL)))<br />          ENT1 ENT)<br />    (setq SS (Cdr (Assoc -1 ent1)))<br />     (IF (/= "SEQEND" (cdr (assoc 0 ENT)))<br />           (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) <br /> <br /> "ATTRIB")<br />             (cond<br />               ((= (CDR (ASSOC 2 ENT1)) "零件规格")<br />                (SETQ ENT1 (SUBST (CONS 1 REV) (ASSOC 1 ENT1) ENT1))<br />                   (ENTMOD ENT1))<br />               )<br />             )<br />           )<br />   (entdel SS)<br />   (entdel SS)<br />   (setvar "cmdecho" 1)<br />   (setvar "osmode" 247)<br /> )

ymcui

求各位大神帮帮忙,谢谢

429014673

基础命令不熟悉

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

ymcui

ZZXXQQ 发表于 2014-5-28 07:55
[/post]

谢谢ZZXXQQ 的回复,程序还有一点问题显示:; 错误: 参数太少

ymcui

再顶等好人帮忙谢谢.