在CAD中调出窗体
比如我在CAD中画个圆,当我双击它时会跳出个事先做好的窗体。用VBA怎么做。请高手帮帮忙。先谢谢了。 在ThisDrawing模块的双击事件里做Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
On Error Resume Next
If PickfirstSelectionSet.Count1 Then Exit Sub
Select Case PickfirstSelectionSet.Item(0).ObjectName
Case "AcDbBlockReference"
Case "AcDbLine"
.............
Set DoubleClickLineObj = PickfirstSelectionSet.Item(0)
.........
Case Else
End Select
End Sub 不好意思,我是初学者,我还不知道在哪里编辑这段代码。不好意思 。请多指教。
页:
[1]