批量修改园的大小

lixuedong · 发表于 2011-12-30 11:53

(defun c:CI2(/ wd txthig txtfac ss n s ht key q tscale )
(setq oerr *error* *error* nerr)
(prompt  "\n输入半径:" )
(setq ht (getreal))
(if (= ht nil)
(setq ht 100)
)
(prompt"\n选要改动的园:")
(setq ss (ssget))
(setq n (sslength ss))
(setq key 1 q 0)
(setq q 0)
(while (<= key n)
(setq s (entget (ssname ss q)))
(cond ((= "CIRCLE" (cdr(assoc 0 s)))
   (entmod (subst(cons 40 ht) (assoc 40 s) s))
   (setq key (1+ key))
   (setq q (1+ q))
   )
   (T (setq q (+ 1 q) key (+ 1 key)))
   )
)
(prompt"\n处理完毕!\n")
(setq *error* oerr)
(princ)
)

lixuedong · 发表于 2011-12-30 12:07

这是给一个给排水专业的人，写的，统一修改园的大小

chpmould · 发表于 2011-12-30 12:08

怎么最近的很多贴都是讨论了N遍的话题...

669423907 · 发表于 2011-12-30 16:21

改直径是不是更直观呢？

1993063 · 发表于 2011-12-31 14:56

本帖最后由 1993063 于 2011-12-30 20:57 编辑

这是以前在明经下的，不知是哪位高人写的：给你参考下
(defun c:yzj()
(setq newhh (getreal "新的圆半径尺寸:"))
(setq ss (ssget '((0 . "circle"))))
(if ss
   (chgdata_ss 40 newhh ss)
   (alert "什么也没选 :) ")
)
(prin1)
(alert (strcat "提醒：共" (itoa (sslength ss))  " 个圆被修改！"))
(prin1)

)
;********************************************************
(defun chgdata( g_num newval en)
(setq endata (entget en));
(setq oldlist( assoc g_num endata));
(setq newlist( cons g_num newval));
(setq endata(subst newlist oldlist endata));
(entmod endata);
)
;*********************************************************
(defun chgdata_ss (g_num newval #ss)
(setq i 0)
(repeat (sslength #ss)
   (chgdata g_num newval (ssname #ss i))
   (setq i (1+ i))
)
)
-----------------批量修改圆直径--------------------

669423907 · 发表于 2012-1-1 10:58

谢谢五楼提供源码！

『不言』 · 发表于 2012-7-31 21:03

针对上述代码，都有几点缺陷，第一，一个图面中通常有很多半径不同的圆，很多时候都是只改动其中某一半径的圆，而上面代码都是把所有不同半径的圆全部改为同一半径的圆。第二，不能在选择某一半径的圆时，同时在提示原来的半径值，以免改错。

账号		自动登录	找回密码
密码			注册

批量修改园的大小

点评

相关帖子