|
|
在CAD中用以下VBA代码
Sub test()
num = ThisDrawing.Utility.GetInteger("请输入多边形的边数：")
fpnt = ThisDrawing.Utility.GetPoint(, "请选择多边形的起点：")
End Sub
分别获取数字和点位置，当输入完数字回车后，CAD中鼠标指针显示是一个等待输入的十字叉形状，如下图所示
但是如果把这两句代码修改后在VB6中实现，
Private Sub Command1_Click()
Set Acad = GetObject(, ".APPLICATION")
Set Adoc = Acad.ActiveDocument
num = Adoc.Utility.GetInteger("请输入多边形的边数：")
fpnt = Adoc.Utility.GetPoint(, "请选择多边形的起点：")
End Sub
当输入完数值回车后，鼠标指针是下面这样的，是带有拾取框的，不清楚的还以为是命令已经结束了呢。
这个时候必须移动一下鼠标，指针才会变成十字叉的形状。这样编出来的程序使用起来有点别扭。
请问这是怎么回事？有什么解决办法吗？
|
|
置顶卡
