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

关于捕捉点

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:53

me.hide, 先把自己窗体隐藏起来才能对acad进行操作。
页: [1]
查看完整版本: 关于捕捉点