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

liushengk

用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

mccad

必须先来个Me.Hide

liushengk

用userform1.hide语句已经隐藏了的,还是不行!直接在VB编辑器里运行是可以实现点拾取的,请帮忙再看看!!

雪山飞狐_lzh

代码呢?

liushengk

在开始执行LIsp时,通过语句 userform1.show窗口显示正常,通过按钮b1实现点拾取时便出错,b1的click代码如下:


dim pnt vairent


userform1.hide


pnt=thisdrawing.utility.getpoint(,"getpoint...")


userform1.show


end sub


直接在VB编辑器里运行userform1是可以在Cad中实现点拾取的,但用Lisp调用时便出错了!!

今晚打老虎

为什么不用VBA调用窗体呢？

雪山飞狐_lzh

userform1改成me

liushengk

改了还是不行！你们一般用什么方法调用VBA宏，哪位能再详细指点一下如何用Lisp调用VBA宏,感激！！

雪山飞狐_lzh

(command "-vbarun" "宏名")

liushengk

谢谢耐心讲解！再请问有单位格式（小数、角度、顺时针等）的环境变量吗？谢了先！