关于捕捉点

yu-gn · 发表于 2018-9-29 15:26:00

Dim Pnt As Variant
' 在没有提示参考点的情况下获取第一个点
Pnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "指定基点: ")
Me.TextBox6.Text = CInt(Pnt(0))
Me.TextBox7.Text = CInt(Pnt(1))
上面这段代码放在图纸下就ok
放在窗体下就显示cad主窗口不可见
应怎样修改？

mikewolf2k · 发表于 2018-9-29 16:41:00

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

关于捕捉点

发表回复

精选推荐