怎样把一部分点（几百个）变为圆，就是以这些点为圆心变为圆。

wayi2002 · 发表于 2009-2-5 09:26:00

tcy200489 · 发表于 2009-2-5 10:03:00

把点的样式改成圆,并按绝对单位设置大小

wayi2002 · 发表于 2009-2-5 10:37:00

本帖最后由作者于 2009-2-5 10:47:22 编辑

这只是点的样式变化，不是真正的圆。

phoenixdjq · 发表于 2009-2-5 13:16:00

(defun c:op()
(setq bj (getreal "\n 请输入圆半径:"))
(setvar "osmode" 0)
(setq ss (ssget '((0 . "point"))))
(setq len (sslength ss))
(setq n 0)
(command "undo" "begin")
(repeat len
(setq ent (ssname ss n))
(setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1))
(command "circle" yuanxin bj)
(setq n (+ 1 n))
)
(command "undo" "end")
)

wayi2002 · 发表于 2009-2-5 16:17:00

成功了，太谢谢朋友了。

ddx88716 · 发表于 2009-2-5 16:43:00

CAD技术交流群（高级群）

群号：60680152

欢迎加入！！！

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