【转帖】一次改变所有圆半径到指定大小
 

一次改变所有圆半径到指定大小
www.dimcax.com
一次改变所有圆半径到指定大小
加载后输入bj回车,选择现在所有的圆,再输入想要的半径就可以.
69

对于冲模设计有用啊，

后来发现通过修改特性可以集体改变园半径,又何必写程序呢.

对,有用的,不是每个人都是一样,

每个东西,一定有他的用处,虽然我现在用不上,但还是很欣赏楼的精神,顶了!

这个程序很实用,就可以修改一些画错的圆的了.

(defun c:dc (/ ss1 count emax e #ent bb et1 ed) ; sbb1)
;;;__________________________
(defun ddcc ()
(setq count 0)
(setq emax (sslength ss1))
(while (< count emax)
(setq en (ssname ss1 count))
(vla-put-radius (vlax-ename->vla-object en) e)
(setq count (1+ count))
)
)
;;;__________________________
(setvar "cmdecho" 0)
(prompt "\n 请选取欲改变直径的圆:....")
(if (setq ss1 (ssget (list (cons 0 "circle,arc"))))
(progn
(setq e (getdist "\n 请输入直径值:...."))
(if (null e)
(progn
(setq #ent (car (entsel "\n 请点取参考园:..")))
(if (or
(= "acdbcircle"
(vla-get-objectname (vlax-ename->vla-object #ent))
)
(= "acdbarc"
(vla-get-objectname (vlax-ename->vla-object #ent))
)
)
(setq e (vla-get-radius (vlax-ename->vla-object #ent)))
(prompt "\n 所选实体不是园")
)
)
(setq e (* 0.5 e))
)
(if e
(ddcc)
)
) ;progn
(prompt "\n no section:...")
)
(prompt
"__园类直径变化程序 ok!.前生作品."
)
(princ)
)
万事莫如杯在手，
人生几见月当头!
ourscad@21cn.com

一次改变所有圆半径到指定大小

选择所有要修改的圆,修改特性可以集体改变园半径,又何必写程序呢

非常感谢 应该多支持

我看二楼的办法好