在CAD中调出窗体

zxg007 · 发表于 2004-10-26 19:06:00

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

雪山飞狐_lzh · 发表于 2004-10-26 22:43:00

在ThisDrawing模块的双击事件里做

zhuxuhong · 发表于 2004-10-27 22:10:00

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 · 发表于 2004-10-30 13:16:00

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

在CAD中调出窗体

发表回复

精选推荐