|
|
各位大侠好，我做个加工仿真的，刀具比较复杂，所以在别的软件中建立的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格式就可以了 |
|
置顶卡
