AutoCAD VBA学习_2015.7.13晚

标签：

1.VBA工程常用到三种INSERT：窗体、模块还有一个VBA自带的ThisDrawing

• 窗体，很简单，学过VB都懂
• 模块就好像一个仓库，为窗体、ThisDrawing的代码区提供丰富的函数、过程
• ThisDrawing，通过小量的实践，我把他当作VBA的入口，相当于C的main函数（如有不对请纠正）,在这个代码区输入：

就可以在程序刚开始运行的时候启动窗体了。

Option Explicit
Sub Start()
    UserForm1.Show ‘窗体名
End Sub

2.获取鼠标在CAD中的坐标

这个功能用到了Utility函数：

Private Sub CommandButton2_Click()
    Dim ptPick As Variant
    UserForm1.Hide
    ptPick = ThisDrawing.Utility.GetPoint(, "指定点 ptPick")
    
    ptX = ptPick(0)
    ptY = ptPick(1)
    ptZ = ptPick(2)
    
    pxbox.Text = ptX
    pybox.Text = ptY
    pzbox.Text = ptZ
    
    UserForm1.Show
    
End Sub

结果：

今天有点晚了，学的东西有点少，明天加油~！

AutoCAD VBA学习_2015.7.13晚

标签：

原文地址：http://www.cnblogs.com/minemine/p/4644112.html