求助，加载错误

zwq8629

(defun C:PJ (/ ss n s1)
  (prompt "\n选择 : ")
  (setq        ss  (ssget '((0 . "CIRCLE")))
        rad (getreal "请输入新的半径 : ")
        n   -1
  )
  (if (/= ss nil)
    (progn
      (repeat (sslength ss)
              (setq s1 (ssname ss (setq n (1+ n))))
              (sub_upd s1 40 rad)
      )
    )
  )
  (princ)
)
;用新值替换旧值（对象、群码、新值）
(defun sub_upd (ename code newvalue)
  (entmod (subst (cons code newvalue) (assoc code (entget ename))(entget ename)))(新半径子列表、原半径子列表、对象属性列表)
  (entupd ename)
)

(prompt "\n ***** <PJ> ***** 更新圆半径")
(princ)




能不能改成先输入孔径，然后再改圆大小

andyding

zwq8629 发表于 2023-6-30 08:11
能不能改成先输入孔径，然后再改圆大小

  (setq   ss  (ssget '((0 . "CIRCLE")))
    rad (getreal "请输入新的半径 : ")
    n   -1
  )

改成
  (setq    rad (getreal "请输入新的半径 : ")
             ss  (ssget '((0 . "CIRCLE")))   
    n   -1
  )

czb203

1. (defun C:PJ (/ ss n s1)
   
2.   (prompt "\n选择 : ")
   
3.   (setq   ss  (ssget '((0 . "CIRCLE")))
   
4.     rad (getreal "请输入新的半径 : ")
   
5.     n   -1
   
6.   )
   
7.   (if (/= ss nil)
   
8.     (progn
   
9.       (repeat (sslength ss)
   
10.         (setq s1 (ssname ss (setq n (1+ n))))
    
11.         (sub_upd s1 40 rad)
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. ;用新值替换旧值（对象、群码、新值）
    
18. (defun sub_upd (ename code newvalue)
    
19.   (entmod (subst (cons code newvalue) (assoc code (entget ename))(entget ename)));(新半径子列表、原半径子列表、对象属性列表)
    
20.   (entupd ename)
    
21. )
    
22. 
    
23. (prompt "\n ***** <PJ> ***** 更新圆半径")
    
24. (princ)
    

(defun C:PJ (/ ss n s1)<br />   (prompt "\n选择 : ")<br />   (setq   ss  (ssget '((0 . "CIRCLE")))<br />     rad (getreal "请输入新的半径 : ")<br />     n   -1<br />   )<br />   (if (/= ss nil)<br />     (progn<br />       (repeat (sslength ss)<br />         (setq s1 (ssname ss (setq n (1+ n))))<br />         (sub_upd s1 40 rad)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;用新值替换旧值（对象、群码、新值）<br /> (defun sub_upd (ename code newvalue)<br />   (entmod (subst (cons code newvalue) (assoc code (entget ename))(entget ename)));(新半径子列表、原半径子列表、对象属性列表)<br />   (entupd ename)<br /> )<br /> <br /> (prompt "\n ***** <PJ> ***** 更新圆半径")<br /> (princ)<br />

zwq8629

czb203 发表于 2023-6-29 22:48

能不能改成先输入孔径，然后再改圆大小

水洗可口可乐

czb203 发表于 2023-6-29 22:48

修改成直径，要动哪个字符？

andyding

水洗可口可乐 发表于 2023-6-30 10:51
修改成直径，要动哪个字符？

前面输直径的话，把下面这行改一下就行。
(sub_upd s1 40 rad)---》(sub_upd s1 40 (* rad 0.5))

水洗可口可乐

andyding 发表于 2023-6-30 11:08
前面输直径的话，把下面这行改一下就行。
(sub_upd s1 40 rad)---》(sub_upd s1 40 (* rad 0.5))

修改成了，谢谢你

zwq8629

andyding 发表于 2023-6-30 11:22
(setq   ss  (ssget '((0 . "CIRCLE")))
    rad (getreal "请输入新的半径 : ")
    n   -1

谢谢

如果要输入直径后，点一个圆改一个圆（不要框选后一起改）要改哪里？

andyding

zwq8629 发表于 2023-6-30 18:13
谢谢

如果要输入直径后，点一个圆改一个圆（不要框选后一起改）要改哪里？

2. (defun C:PJ (/ ss n s1 rad)
   
3.   (setq rad (getreal "\n请输入新的半径 : "))
   
4.   (while (setq ss (ssget '((0 . "CIRCLE"))))
   
5.     (setq n 0)
   
6.     (repeat (sslength ss)
   
7.       (setq s1 (ssname ss n))
   
8.       (sub_upd s1 40 rad)
   
9.       (setq n (1+ n))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    
14. 
    
15. ;;;用新值替换旧值（对象、群码、新值）
    
16. (defun sub_upd (ename code newvalue)
    
17.   (entmod (subst (cons code newvalue)
    
18.                  (assoc code (entget ename))
    
19.                  (entget ename)
    
20.           )
    
21.   );;;(新半径子列表、原半径子列表、对象属性列表)
    
22.   (entupd ename)
    
23. )
    
24. (prompt "\n ***** <PJ> ***** 更新圆半径")
    
25. (princ)

(defun C:PJ (/ ss n s1 rad)<br />   (setq rad (getreal "\n请输入新的半径 : "))<br />   (while (setq ss (ssget '((0 . "CIRCLE"))))<br />     (setq n 0)<br />     (repeat (sslength ss)<br />       (setq s1 (ssname ss n))<br />       (sub_upd s1 40 rad)<br />       (setq n (1+ n))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;;用新值替换旧值（对象、群码、新值）<br /> (defun sub_upd (ename code newvalue)<br />   (entmod (subst (cons code newvalue)<br />                  (assoc code (entget ename))<br />                  (entget ename)<br />           )<br />   );;;(新半径子列表、原半径子列表、对象属性列表)<br />   (entupd ename)<br /> )<br /> (prompt "\n ***** <PJ> ***** 更新圆半径")<br /> (princ)