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

在CAD中调出窗体

比如我在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.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

zxg007 发表于 2004-10-30 13:16:00

不好意思,我是初学者,我还不知道在哪里编辑这段代码。不好意思 。请多指教。
页: [1]
查看完整版本: 在CAD中调出窗体