[VBA]请教getpoint作用于对象IAcadUtility时失败

toosimple

“用LISP和VBA联合实现VBA的快揭运行，但是在userform1中的pnt=thisdrawing.utility.getpoint(,"getpoint...")语句执行时，Cad绘图窗口无光标，命令行无显示，按任何键无反应，按下Esc时报错“getpoint作用于对象IAcadUtility时失败”！谢了先！！”

对啊，我也遇到了这个问题，大家有什么好的解决方法吗，谢谢

fangmin723

把窗体的showmodal改成false
或者前后加Me.Hide和Me.show

1. Private Sub Pickwidhig_Click()
   
2.     Me.Hide
   
3.     Dim P1 As Variant, P2 As Variant, P3 As Variant, zwdoc As ZcadDocument
   
4.     Set zwdoc = ZWCAD.ZcadApplication.ActiveDocument
   
5.     P1 = zwdoc.Utility.GetPoint(, "请指定列宽起始点：")
   
6.     P2 = zwdoc.Utility.GetPoint(P1, "请指定行高起始(列宽结束)点：")
   
7.     P3 = zwdoc.Utility.GetPoint(P2, "请指定行高结束点：")
   
8. '    colwid.Text = Abs(P2(0) - P1(0))
   
9. '    rowhig.Text = Abs(P3(1) - P2(1))
   
10.     Me.show
    
11. End Sub

Private Sub Pickwidhig_Click()<br />     Me.Hide<br />     Dim P1 As Variant, P2 As Variant, P3 As Variant, zwdoc As ZcadDocument<br />     Set zwdoc = ZWCAD.ZcadApplication.ActiveDocument<br />     P1 = zwdoc.Utility.GetPoint(, "请指定列宽起始点：")<br />     P2 = zwdoc.Utility.GetPoint(P1, "请指定行高起始(列宽结束)点：")<br />     P3 = zwdoc.Utility.GetPoint(P2, "请指定行高结束点：")<br /> '    colwid.Text = Abs(P2(0) - P1(0))<br /> '    rowhig.Text = Abs(P3(1) - P2(1))<br />     Me.show<br /> End Sub