能不能用com的方式实现,不用arx实现,以前我在vb或者vba中可以很轻松的用1楼所示代码解决这个问题,不过换了vb.net后就实现不料了。有没有人可以帮忙实现下。
下面是以前完整的代码,可以在不打开cad的情况下,读取cad中的线。大家可以做一个有几根线的MyLINE.dwg文件,放在D盘下,然后打开一个空白的cad,随意写一个vba的sub,将下面的代码复制进去,执行单步运行,即可以看到效果。
Dim objDBX
Set objDBX = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
objDBX .Open "D:\MyLINE.dwg"
Dim ent As AcadEntity
For Each ent In objDBX.ModelSpace
If TypeOf ent Is IAcadLWPolyline Then
'要做的操作代码
endif
next