请教！！！
<P><FONT size=2>我在图中有很多的矩形和多边形，请问怎样快速地在这些矩形和多边形的夹点上加上圆？？</FONT></P><P><FONT size=2>先谢了！！！</FONT></P> 画一个圈，打开对象捕捉，复制。 <P>先谢了，</P>
<P>可是我要复制这个圈的话要复制 N 万个，有没有自动生成的办法？</P> (load "xyp_lib.vlx") ;版本 V.20051204
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
|;
;;;多边形夹点上画圆
(defun c:test ()
(CMDLA0)
(setq rad (UREAL 7 "" "\n圆半径" rad)
ss(ssget '((0 . "*POLYLINE")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (xyp-get-Vertexs s1 1))
(foreach pt ptn (command "circle" pt rad))
)
(CMDLA1)
)
这个问题太复杂了，我也不知道了，看看有没有高手来指点一下！我也期待！ 先点这个命令然后输入Ｍ <P>有时间把图传上来看看</P>
<P> </P>
页:
[1]