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

<DIV><BR>Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)<BR>                       <BR>       On Error Resume Next<BR>                       <BR>       If PickfirstSelectionSet.Count &lt;&gt; 1 Then Exit Sub<BR>                       <BR>       Select Case PickfirstSelectionSet.Item(0).ObjectName<BR>                                       Case "AcDbBlockReference"<BR>                                                                                       Case "AcDbLine"</DIV>
<DIV>                                                                                       .............</DIV>
<DIV><BR>                                                                                       Set DoubleClickLineObj = PickfirstSelectionSet.Item(0)<BR>                                                                                               .........</DIV>
<DIV>                                                                              Case Else<BR>       End Select<BR>                        <BR>                       <BR></DIV>
<DIV>End Sub</DIV>

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

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