CAD二次开发（Vba）------鼠标与vba交互

1.使用utility方法

sub test1()

    Dim ptPick As Variant
    tPick =ThisDrawing. Utility. GetPoint （， " 指 定 点："）
    tbPtX = ptPick（0）
    tbPtY = ptPick（1）
    tbPtZ = ptPick（2）
    msgbox cstr(tbptx) & "," & cstr(tbpty) & "," & cstr(tbptz)

End Sub

 

 

2.使用selectonscreent方法

 

sub test2()    
    Dim tempset as Object
　  Dim obj as Object
　  Set tempset = acaddoc.SelectionSets.Add("newset") '建立新选择集
    tempset.SelectOnScreen　　 ‘用户在屏幕上选择
    Dim color As AcadAcCmColor
    Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." &                 
    Left(CStr(AcadApplication.Version), 2))
    color.SetRGB 80, 100, 244
　  For Each obj In tempset　 ‘遍历选择集中的实体
　　    obj.TrueColor = color　'亮显实体及获取实体信息并显示在你的控件中
　  Next
end sub

3.未完待续