VBA非模式对话框测试：仿天正即时交互功能(功能已经完善)

NetBee · 发表于 2009-9-24 16:06:00

VBA非模式对话框测试：仿天正即时交互功能

15ostrq2xp5.gif

在开始后一命令过程中无法对前一命令进行取消操作，以至于命令嵌套，多来几下就CAD崩溃。
注意：测试时不要打开其他文件，可能随时会CAD崩溃。
就是不知如何解决，不让命令嵌套，直接中断原有GETXXX


Private Sub CommandButton1_Click()
Dim Point() As Double
Dim Radius As Double
Dim lop As Boolean
lop = True''关键是这里如何处理。。。。
'   Cmdv = CAD.GetVal("CMDACTIVE")
' If Cmdv  0 Then
'ThisDrawing.SendCommand vbCr
' End If
Do While CAD.GetPoint(vbCrLf & "圆柱获取点:", , Point) = 1
Radius = Val(Dist.Text) / 2
CAD.Addcircle Point, Radius
Loop
Unload Me
End Sub

三楼的程序已经完善了，没有命令嵌套的BUG

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

NetBee · 发表于 2018-6-2 10:21:00

目前这个思路我一直在用，AutoCAD的版本更新太夸张，这个不用频繁更新版本，兼容性很好。

雪山飞狐_lzh · 发表于 2009-9-25 07:43:00

可以试下这样
循环运行时改变一个变量的值val1，并存储当前绘制的图形形状val2
点击按钮时如果检测到val1，只改变变量val2，不做循环
循环结束恢复变量val1

NetBee · 发表于 2009-9-25 22:38:00

终于搞定了，网上翻遍了也没有，真是。。。。。
不多说了，发上来大家看看吧。

su5mc222vmf.gif

CAD学习开发 · 发表于 2009-9-26 07:48:00

function XML() {
[native code]
}

chpmould · 发表于 2009-9-26 11:22:00

Thanks!

wylong · 发表于 2009-9-26 12:56:00

下载学习学习

kenny.bao · 发表于 2009-9-29 17:00:00

对于你的代码：鼠标在UserForm1上操作时，UserForm1获得焦点；鼠标释放后，UserForm1又失去焦点了啊。跟天正像插入图库时的交互操作很不一样啊，天正是鼠标在CAD和插图块窗口随便切换的。我的VBA代码通过API函数枚举获得窗体（CAD内窗体没hwnd，只能这样），效果跟天正一样。

zz0147 · 发表于 2009-9-30 20:07:00

看一下
学习了

zz0147 · 发表于 2009-9-30 20:15:00

登录/注册后可看大图

对于你的代码：鼠标在UserForm1上操作时，UserForm1获得焦点；鼠标释放后，UserForm1又失去焦点了啊。跟天正像插入图库时的交互操作很不一样啊，天正是鼠标在CAD和插图块窗口随便切换的。我的VBA代码通过API函数枚举获得窗体（CAD内窗体没hwnd，只能这样），效果跟天正一样。
能详细介绍一下吗

VBA非模式对话框测试：仿天正即时交互功能(功能已经完善)

发表回复

精选推荐