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进行操作。
页: [1]
查看完整版本: 关于捕捉点