框选修改天正管径

bloodtempt

刚刚接触lisp，试着写了一个修改天正管径的程序，不知道怎么能变成框选的


(defun c:gj ()
(setq name (car (entsel)))
(setq ent (entget name))
(entmod (subst (cons 140 (getint "\n 输入管径")) (assoc 140 ent) ent ))
)

vectra

1. (defun c:gj (/ dia ent i name ss)
   
2.   (setq        ss  (ssget)
   
3.         dia (getint "\n 输入管径")
   
4.         i   0
   
5.   )
   
6. 
   
7.   (repeat (sslength ss)
   
8.     (setq name (ssname ss i)
   
9.           ent  (entget name)
   
10.     )
    
11.     (entmod
    
12.       (subst (cons 140 dia) (assoc 140 ent) ent)
    
13.     )
    
14.     (setq i (1+ i))
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    

(defun c:gj (/ dia ent i name ss)<br />   (setq        ss  (ssget)<br />         dia (getint "\n 输入管径")<br />         i   0<br />   )<br /> <br />   (repeat (sslength ss)<br />     (setq name (ssname ss i)<br />           ent  (entget name)<br />     )<br />     (entmod<br />       (subst (cons 140 dia) (assoc 140 ent) ent)<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br /> <br />

bloodtempt

vectra 发表于 2013-10-4 16:51

谢谢  这正是我想要的  可以节省很多工作