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

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

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

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

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

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

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

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

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

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

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

成功了，太谢谢朋友了。

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

<p>CAD技术交流群（高级群）</p><p>群号：60680152 </p><p>欢迎加入！！！ </p>
页: [1]
查看完整版本: 怎样把一部分点（几百个）变为圆，就是以这些点为圆心变为圆。