新手请教程序代码运行问题

ycpyxl

请教高手以下代码实现不了变直径功能，请帮忙指出不对之处，谢谢

(defun c:TY()
  (setq new_rad(getreal "请求输入圆的新半径值："))
  (prompt "\n<<框选欲更新半径的圆>>")
  (setq ss(ssget))
  (setq n 0 k 0)
  (repeat(sslength ss)
  (setq en(ssname ss n))
  (setq endata(entget en))
  (setq entype (cdr (assoc 0 endata)))
  (if (=entype "CIRCLE")
    (sub_upd_rad)
    )
  (setq n (1+n))



(princ(strcat "\n共有<" (itoa k) ">个圆更新半径=" (rtos new_rad)))
(prin1)
)
(defun sub_upd_rad()
  (setq 40_list(assoc 40 endata))
  (setq new_40_list (cons 40 new_rad))
  (setq endata(subst new_40_list 40 list endata))
  (entmod endata)
  (setq k (1+k))
  )

(prin1)
)

aws

1. (defun c:TY(/ en endata entype k n new_rad ss sub_upd_rad)
   
2.   (setq new_rad(getreal "请求输入圆的新半径值："))
   
3.   (prompt "\n<<框选欲更新半径的圆>>")
   
4.   (setq ss(ssget))
   
5.   (setq n 0 k 0)
   
6.   (repeat(sslength ss)
   
7.                 (setq en(ssname ss n))
   
8.                 (setq endata(entget en))
   
9.                 (setq entype (cdr(assoc 0 endata)))
   
10.                 (if(= entype "CIRCLE")
    
11.                         (progn
    
12.                                 (setq 40_list(assoc 40 endata))
    
13.                                 (setq new_40_list (cons 40 new_rad))
    
14.                                 (entmod(subst new_40_list 40_list endata))
    
15.                         )
    
16.     )
    
17.                 (setq n (1+ n))
    
18.                 (setq k (1+ k))
    
19.                 (prin1)
    
20.         )
    
21.         (princ(strcat "\n共有<" (itoa k) ">个圆更新半径=" (rtos new_rad)))
    
22.         (prin1)
    
23. )

(defun c:TY(/ en endata entype k n new_rad ss sub_upd_rad)<br />   (setq new_rad(getreal "请求输入圆的新半径值："))<br />   (prompt "\n<<框选欲更新半径的圆>>")<br />   (setq ss(ssget))<br />   (setq n 0 k 0)<br />   (repeat(sslength ss)<br />                 (setq en(ssname ss n))<br />                 (setq endata(entget en))<br />                 (setq entype (cdr(assoc 0 endata)))<br />                 (if(= entype "CIRCLE")<br />                         (progn<br />                                 (setq 40_list(assoc 40 endata))<br />                                 (setq new_40_list (cons 40 new_rad))<br />                                 (entmod(subst new_40_list 40_list endata))<br />                         )<br />     )<br />                 (setq n (1+ n))<br />                 (setq k (1+ k))<br />                 (prin1)<br />         )<br />         (princ(strcat "\n共有<" (itoa k) ">个圆更新半径=" (rtos new_rad)))<br />         (prin1)<br /> )

sbwdx

(defun c:TY ()
  (setq new_rad (getreal "请求输入圆的新半径值："))
  (prompt "\n<<框选欲更新半径的圆>>")
  (setq ss (ssget))
  (setq n 0 k 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq endata (entget en))
    (setq entype (cdr (assoc 0 endata)))
    (if (= entype "CIRCLE")
      (sub_upd_rad)
    )
    (setq n (1+ n))
  )
  (princ (strcat "\n共有<" (itoa k) ">个圆更新半径=" (rtos new_rad)))
  (prin1)
)

(defun sub_upd_rad ()
  (setq 40_list (assoc 40 endata))
  (setq new_40_list (cons 40 new_rad))
  (setq endata (subst new_40_list 40_list endata))
  (entmod endata)
  (setq k (1+ k))
)

(prin1)

aws

1. (defun c:gg(/ en n new-r ss)
   
2.         (setq ss(ssget '((0 . "CIRCLE"))));直接选取圆
   
3.         (setq new-r(getreal "设置新半径："))
   
4.         (setq n(sslength ss))
   
5.         (print(strcat "共计修改了"(rtos n 2 0)"个圆！半径为"(rtos new-r 2 0)))
   
6.         (repeat n
   
7.                 (setq en(ssname ss(setq n(1- n))))
   
8.                 (entmod(subst(cons 40 new-r)(assoc 40(entget en))(entget en)))
   
9.         )
   
10.         (princ)
    
11. )

(defun c:gg(/ en n new-r ss)<br />         (setq ss(ssget '((0 . "CIRCLE"))));直接选取圆<br />         (setq new-r(getreal "设置新半径："))<br />         (setq n(sslength ss))<br />         (print(strcat "共计修改了"(rtos n 2 0)"个圆！半径为"(rtos new-r 2 0)))<br />         (repeat n<br />                 (setq en(ssname ss(setq n(1- n))))<br />                 (entmod(subst(cons 40 new-r)(assoc 40(entget en))(entget en)))<br />         )<br />         (princ)<br /> )

这样简洁一些

ycpyxl

aws 发表于 2024-10-14 14:02

谢谢高手不令赐教

xyp1964

1. (defun c:tt ()
   
2.   (defun SubUpd(e c v)(entmod(subst(cons c v)(assoc c(entget e))(entget e)))(entupd e))
   
3.   (setq rr (getreal "\n请求输入圆的新半径值: ")
   
4.         i  -1
   
5.   )
   
6.   (if (setq ss (ssget '((0 . "circle"))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (SubUpd s1 40 rr)
   
9.     )
   
10.   )  
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   (defun SubUpd(e c v)(entmod(subst(cons c v)(assoc c(entget e))(entget e)))(entupd e))<br />   (setq rr (getreal "\n请求输入圆的新半径值: ")<br />         i  -1<br />   )<br />   (if (setq ss (ssget '((0 . "circle"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (SubUpd s1 40 rr)<br />     )<br />   )  <br />   (princ)<br /> )

弥勒

xyp1964 发表于 2024-10-14 22:01

写得真好！