这个代码错哪了啊？检查了很多遍都找不到原因

xyp1964

1. (defun c:tt ()
   
2.   (defun SubUpd(e dxf val)
   
3.     (entmod (subst (cons dxf val)(assoc dxf (entget e))(entget e)))
   
4.     (entupd e)
   
5.   )
   
6.   (if (and (setq rr (getreal "\n输入新半径: "))
   
7.            (setq p1 (getpoint "\n选择基点: "))
   
8.            (setq p2 (getcorner p1 "\n对角点: "))
   
9.            (setq ss (ssget "C" p1 p2 '((0 . "circle"))))           
   
10.            (setq i -1)
    
11.       )
    
12.     (while (setq s1 (ssname ss (setq i (1+ i))))(SubUpd s1 40 rr))
    
13.   )
    
14.   (princ)
    
15. )
    

(defun c:tt ()<br />   (defun SubUpd(e dxf val)<br />     (entmod (subst (cons dxf val)(assoc dxf (entget e))(entget e)))<br />     (entupd e)<br />   )<br />   (if (and (setq rr (getreal "\n输入新半径: "))<br />            (setq p1 (getpoint "\n选择基点: "))<br />            (setq p2 (getcorner p1 "\n对角点: "))<br />            (setq ss (ssget "C" p1 p2 '((0 . "circle"))))           <br />            (setq i -1)<br />       )<br />     (while (setq s1 (ssname ss (setq i (1+ i))))(SubUpd s1 40 rr))<br />   )<br />   (princ)<br /> )<br />

bonny

2. (defun c:tt (/ r)
   
3.         (if (and (setq r (getdist "\n输入或量取新半径:"))
   
4.                                 (ssget '((0 . "CIRCLE")))                               
   
5.                         )
   
6.                 (vlax-for e (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-acad-object)))
   
7.                         (vla-put-Radius e r)
   
8.                 )
   
9.         )
   
10. )

(defun c:tt (/ r)<br />         (if (and (setq r (getdist "\n输入或量取新半径:"))<br />                                 (ssget '((0 . "CIRCLE")))                                <br />                         )<br />                 (vlax-for e (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-acad-object)))<br />                         (vla-put-Radius e r)<br />                 )<br />         )<br /> )

bonny

hhh454 发表于 2023-11-3 23:29
批量更新圆的半径
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=188850&fromuid=363233
(出处: 明 ...

打只苍蝇，不需要研发量子炮吧

xyp1964

1. (defun c:tt ()  "批量更新圆或圆弧的半径"
   
2.   (setq r (Ureal 7 "" "新半径" r))
   
3.   (while(setq s(ssget'((0 . "CIRCLE,ARC"))))(xyp-SubUpd s 40 r))
   
4.   (princ)
   
5. )

(defun c:tt ()  "批量更新圆或圆弧的半径"<br />   (setq r (Ureal 7 "" "新半径" r))<br />   (while(setq s(ssget'((0 . "CIRCLE,ARC"))))(xyp-SubUpd s 40 r))<br />   (princ)<br /> )