华夏土地论坛 » AutoCad » 分类提取

fanghl 发表于 2007-7-18 09:28

分类提取

请问怎样用vb在cad文件的modelspace中分类得到点，线，园之类的图元属性啊？

liuqianada 发表于 2007-7-18 09:28

可以由它的objectname的到它的类型，在新建一个该类型的图元，用它的objectid ，使用objectIDToObject(object.id) 将它的属性值都付给新的图元


For Each entry In moSpace '对图形对象的处理
    Dim entryname As String
    Dim cadobject As AcadObject
    entryname = entry.ObjectName
    Dim mycad2dline As AcadPolyline
             If entryname = "AcDbPolyline" Then
                 Set mycadline = cadfile.ObjectIdToObject(entry.ObjectID)     '获取选到的线
             end if
next

hisum 发表于 2007-7-18 09:58

用select方法，加上filter条件就可以了

fanghl 发表于 2007-7-18 10:20

这样不行~~只能得到名字之类的共有属性
无法得到线的节点坐标之类的图元的特殊属性

fanghl 发表于 2007-7-18 15:22

大家帮帮忙吧！！

fanghl 发表于 2007-7-18 17:45

有人吗？急死了
我一直在线等啊·~~

ym691026 发表于 2007-7-19 16:51

呵呵！不错不错！感谢分享！！

hisum 发表于 2007-7-20 11:30

可以得到顶点坐标，用属性coordinate就可以，你再看看VBA的联机帮助

查看完整版本: 分类提取