框选修改天正管径
刚刚接触lisp，试着写了一个修改天正管径的程序，不知道怎么能变成框选的(defun c:gj ()
(setq name (car (entsel)))
(setq ent (entget name))
(entmod (subst (cons 140 (getint "\n 输入管径")) (assoc 140 ent) ent ))
)
(defun c:gj (/ dia ent i name ss)
(setq ss(ssget)
dia (getint "\n 输入管径")
i 0
)
(repeat (sslength ss)
(setq name (ssname ss i)
ent(entget name)
)
(entmod
(subst (cons 140 dia) (assoc 140 ent) ent)
)
(setq i (1+ i))
)
(princ)
)
vectra 发表于 2013-10-4 16:51 static/image/common/back.gif
谢谢这正是我想要的可以节省很多工作
页:
[1]