vb调用DWG格式
各位大侠好,我做个加工仿真的,刀具比较复杂,所以在别的软件中建立的DWG格式的三维实体模型,我想在VB中调用,我这总是出现类型不匹配,,,该怎样在VB中将DWG格式的实体图转变成VB中可以用的实体?例如我做了个实体旋转有错误,高手帮忙看下呀,请写下程序感激不尽我的是这样的
Public Sub mochi()
Dim solid1 As acad3dsolid
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
pt1(0) = 0: pt1(1) = 1: pt1(2) = 0
pt2(0) = 0: pt2(1) = 0: pt2(2) = 0
Set solid1 = ThisDrawing.Application.Documents.Open("c:\wogan.dwg")
solid1.Rotate3D pt1, pt2, 3.14 / 10
End Sub
最终是想把导入的实体旋转下,大侠们看看呀,,,实体可以随便建,保存DWG格式就可以了 自己顶一下,急求高手解决下
页:
[1]