怎样同时缩放多个对象
画了很多个圆,需要同时变大,怎么办呀,谢了 SC缩放,选中所有对象一起放大回复 #2 飞渡 的帖子
那位置就变了吧,我想位置不变的 找一个公共的点!!!!!!!!! 如果圆的直径是一样大,可以在特性里面改半径或直径圆的直径不一样就不知道怎么办了 楼主的意思是同一比例缩放所有圆,而且是以各自的圆心为基点进行缩放...............
估计cad还没有这个能力实现 CAD目前还没有这个功能吧1!~~~
我是没发现 我也经常用到
吧书都翻烂了·~~~没找到~·
上网查也没又·~ 写一个程序就可以实现呀,很简单呀 给你一个人家写的,放到cad安装目录下加载后可用,命令为bj
;;可改圆的半径或比例缩放
(defun C:bj (/ SSET SC SC1 SSLEN NT)
(while (= SSET NIL)
(prompt "\n选择要修改的圆:")
(setq SSET (ssget '((0 . "CIRCLE"))))
)
(setq SC (getstring "\n输入半径(R)/<缩放比例>: "))
(if (= SC "")
(setq SC (getreal "\n缩放比例: "))
(setq SC1 (getreal "\n输入半径: "))
)
(setq SSLEN (sslength SSET))
(while (> SSLEN 0)
(setq ENT (entget (ssname SSET (setq SSLEN (1- SSLEN)))))
(if (= SC1 NIL)
(setq NT (* SC (cdr (assoc 40 ENT))))
(setq NT SC1)
)
(entmod (subst (cons 40 NT) (assoc 40 ENT) ENT))
)
(princ)
) 做成块,然后用属性刷~ 学习中,路过看看! 不知道你放大的作用是什么,不过你可以试试鼠标滚轮。 高手,果然有高手.这事有意义.....
回复 #9 luyu9635 的帖子
不错..不过..不太行啊.只能对其中一个圆有用... 学习一下啊!还是有高人
页:
[1]