请教！！！

z26j10

我在图中有很多的矩形和多边形，请问怎样快速地在这些矩形和多边形的夹点上加上圆？？

先谢了！！！

小雨点儿

画一个圈，打开对象捕捉，复制。

z26j10

先谢了，

可是我要复制这个圈的话要复制　N　万个，有没有自动生成的办法？

xyp1964

2.   (load "xyp_lib.vlx") ;版本 V.20051204
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. |;
15. ;;;多边形夹点上画圆
16. (defun c:test ()
17.   (CMDLA0)
18.   (setq rad (UREAL 7 "" "\n圆半径" rad)
19. ss  (ssget '((0 . "*POLYLINE")))
20. i   -1
21.   )
22.   (while (setq s1 (ssname ss (setq i (1+ i))))
23.     (setq ptn (xyp-get-Vertexs s1 1))
24.     (foreach pt ptn (command "circle" pt rad))
25.   )
26.   (CMDLA1)
27. )

  (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屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;多边形夹点上画圆 (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) )

cheerylee

这个问题太复杂了，我也不知道了，看看有没有高手来指点一下！我也期待！

黄其辉

先点这个命令然后输入Ｍ

9831LAOYIN

有时间把图传上来看看