在CAD中调出窗体

zxg007

比如我在CAD中画个圆，当我双击它时会跳出个事先做好的窗体。用VBA怎么做。请高手帮帮忙。先谢谢了。

雪山飞狐_lzh

在ThisDrawing模块的双击事件里做

zhuxuhong

Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)

On Error Resume Next

If PickfirstSelectionSet.Count <> 1 Then Exit Sub

Select Case PickfirstSelectionSet.Item(0).ObjectName
Case "AcDbBlockReference"
Case "AcDbLine"

.............

Set DoubleClickLineObj = PickfirstSelectionSet.Item(0)
.........

Case Else
End Select

End Sub

zxg007

不好意思，我是初学者，我还不知道在哪里编辑这段代码。不好意思 。请多指教。