1.问:什么版本能用VBA?
答:3DMine软件2011.6版本以上的都能用。
2.问:怎么打开vba?
答:首先得安装vba程序,安装完成后,打开3DMine软件,启动工具—宏—VBA编辑器,则可开始写代码。
3.问:如何运行已经写好的宏?
答:工具—宏—运行宏,选择要运行的宏,点击运行即可。
4.问:如何找到3DMine的函数?
答:打开视图—对象浏览器,基本上3dmine的函数都能在VisualMine里找到。
5.如何在代码中添加注释?
答:直接添加注释符 (')。这个符号告诉 Visual Basic,忽略该符号后面的内容。注释可以和语句在同一行并写在语句的后面,也可占据一整行。您可以通过选中两行或多行代码并在“编辑”工具栏上通过选择“注释块”或“删除注释块”按钮来对该代码块添加或删除注释符号。
6.问:如何引用其他应用程序的类型库?
答:工具—引用,找到需要引用的类型库在前打勾,点击确定即可。
7.问:如何创建点?
答:Sub 创建点()
Dim pointAs MineDPoint
Set point= Library.CreatePoint(1, 2, 3)
ThisDrawing.ModelSpace.AddPointEntity point
EndSub
8.问:如何创建一根直线?
答:Sub 创建线()
Dimpoly As Mine3DPolyline
Dimpointss As MineDPoints
Setpointss = Library.CreatePoints ‘创建点集
pointss.Add2, 3, 4, 0
pointss.Add5, 6, 7, 0
Setpoly = ModelSpace.Add3DPoly(pointss)
End sub
9.问:如何创建圆?
答:Sub 创建圆()
Dimpt1 As MineDPoint, pt2 As MineDPoint
Setpt1 = Library.CreatePoint (1, 2, 3)
Dimcir As MineCircle
Setcir = ModelSpace.AddCircle (pt1, 2)
Endsub
10.问:如何创建单行文字?
答:Sub 创建单行文字()
DimtextObj As MineSText
Dim point As MineDPoint
Set point =ThisDrawing.Library.CreatePoint(1, 2, 3)
Set textObj =ThisDrawing.ModelSpace.AddSText("hello, welcome to 3dmine", point,0.5)
End Sub
11.问:如何创建多行文字?
答: Sub 创建多行文字()
Dimdhwz As MineMText
Dimpoint As MineDPoint
Setpoint = ThisDrawing.Library.CreatePoint(1, 2, 3)
Setdhwz = ThisDrawing.ModelSpace.AddMText(point, 0.5, "hello the world")
End Sub
12.问:如何创建面?
答: Sub 创建面1()
Dim face As Mine3DFace
Dim pt As MineDPoints
Set pt = Library.CreatePoints
pt.Add 1, 2, 3, 0
pt.Add 12, 5, 9, 0
pt.Add 4, 15, 7, 0
pt.Add 8, 8, 14, 0
Dim fList(0 To 7) '定义数组
fList(0) = 3
fList(1) = 0
fList(2) = 1
fList(3) = 2
fList(4) = 3
fList(5) = 0
fList(6) = 1
fList(7) = 3
Set face =ThisDrawing.ModelSpace.Add3DFace(pt, fList) 'flist为数组
face.Color = 255
face.Update
End Sub
13.问:如何写出对话框?
答:在VBA编辑器中,插入—用户窗体,然后按照需求在窗体中插入书签,文字框,复合框,命令按钮等。
14.问:如何获取打开的数据库?
答:Dim dbs As MineDrillHoleDbs
Set dbs = ThisDrawing.DrillHoleDbs 注意:这里的数据库可以是多个数据库。
15.问:如何获取加载的块体模型?
答:Dim blk As MineBlockModel
Set blk = BlockModel 注意:这里的块体模型只能是一个。
16.问:3DMine中基本的对象有哪些?
答:有:点(MinePointEntity)、线(Mine3DPolyline)、面(Mine3DFace)、圆(MineCircle)、圆弧(MineArc)、单行文字(MineSText)、多行文字(MineMText)、图层(MineLayer)、填充(MineHatch)、数据库(MineAcGeDrillDb)、块体模型(MineBlockModel)。
17.问:3DMine常用的VBA接口有哪些?
答:有:MineApplication、MineLibrary、MineModelSpace、MineUtility、Drawing
18.问:能否在VBA里读写txt,word,excel等格式?
答:可以的。