[求助]如何使用vba将面域的边界顶点坐标提取出来？

sdxylijian

各位朋友：

请教一下：现在有一个CAD图形，共有多个面域，而且边界重合，现准备逐个将每一个面域的边界顶点坐标提取出来，形成对应的的多边形顶点坐标？要使用VB或vba编程处理，手工太麻烦了，每个面域的顶点个数很多。

查找很久没有什么资料，所以请大家帮忙出谋献策，谢谢了。

wyj7485

返回多段线顶点坐标的代码

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57344&replyID=&skin=1

sdxylijian

谢谢wyj7485版主，但是我现在图形中只有多个面域，如何才能将多个面域转化为多个封闭的多段线呢。我可不想手工一个个处理，很痛苦的。呵呵……

wyj7485

面域炸开就是多段线,建立选择集处理

sdxylijian

谢谢，我试试看。