批量更新圆的属性

beneman

(defun c:aa()
   (setq d1 (getpoint "输入第一点"))
   (setq d2 (getpoint "输入第二点"))
   (setq xj1 (ssget "w" d1 d2);为什么只需要(setq ss(ssget)),难道默认是框选？
   (setq xj2 (ssget "x" (list(cons 0 "cricle"))))
   (setq a 0)
   (setq cs (sslength xj1))
   (setq xsx (cons 40 2000)) ;不需要是(list (cons))了
(repeat (cs)
   (setq b (ssname xj2 a))
   (setq c (entget b))
   (setq d (assoc 40 c))
   (setq c (subst xsx d c))
   (entmod c)
   (setq a (1+ a));不是(+ 1 a)
  )
  )
不知道哪里问题呢？？

xyp1964

2. (defun c:tt ()
   
3.   (if (and (setq d1 (getpoint "输入第一点: "))
   
4.            (setq d2 (getcorner d1 "输入第二点: "))
   
5.            (setq ss (ssget "w" d1 d2 '((0 . "circle"))))
   
6.       )
   
7.     (progn
   
8.       (setq a  0
   
9.             rr '(40 . 2000)
   
10.       )
    
11.       (repeat (sslength ss)
    
12.         (setq c (entget (ssname ss a))
    
13.               c (subst rr (assoc 40 c) c)
    
14.               a (1+ a)
    
15.         )
    
16.         (entmod c)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt ()<br />   (if (and (setq d1 (getpoint "输入第一点: "))<br />            (setq d2 (getcorner d1 "输入第二点: "))<br />            (setq ss (ssget "w" d1 d2 '((0 . "circle"))))<br />       )<br />     (progn<br />       (setq a  0<br />             rr '(40 . 2000)<br />       )<br />       (repeat (sslength ss)<br />         (setq c (entget (ssname ss a))<br />               c (subst rr (assoc 40 c) c)<br />               a (1+ a)<br />         )<br />         (entmod c)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

邹锋

找老猫去,训练下

xyp1964

;; 简码

2. (defun c:tt ()
   
3.   (if (setq ss (ssget '((0 . "circle"))))
   
4.     (xyp-SubUpd ss 40 2000)
   
5.   )
   
6.   (princ)
   
7. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "circle"))))<br />     (xyp-SubUpd ss 40 2000)<br />   )<br />   (princ)<br /> )