关于捕捉点

yu-gn

Dim Pnt As Variant

' 在没有提示参考点的情况下获取第一个点
Pnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "指定基点: ")

Me.TextBox6.Text = CInt(Pnt(0))
Me.TextBox7.Text = CInt(Pnt(1))

上面这段代码放在图纸下就ok
放在窗体下就显示cad主窗口不可见
应怎样修改？

mikewolf2k

me.hide, 先把自己窗体隐藏起来才能对acad进行操作。