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

NetBee

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

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

2. Private Sub CommandButton1_Click()
3. Dim Point() As Double
4. Dim Radius As Double
5. Dim lop As Boolean
6. lop = True
8. ''关键是这里如何处理。。。。
9. '   Cmdv = CAD.GetVal("CMDACTIVE")
10. ' If Cmdv <> 0 Then
11. 'ThisDrawing.SendCommand vbCr
12. ' End If
13. Do While CAD.GetPoint(vbCrLf & "圆柱获取点<退出>:", , Point) = 1
14. Radius = Val(Dist.Text) / 2
15. CAD.Addcircle Point, Radius
16. Loop
17. Unload Me
18. End Sub

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

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

雪山飞狐_lzh

可以试下这样

循环运行时改变一个变量的值val1，并存储当前绘制的图形形状val2

点击按钮时如果检测到val1，只改变变量val2，不做循环

循环结束恢复变量val1

NetBee

终于搞定了，网上翻遍了也没有，真是。。。。。

不多说了，发上来大家看看吧。

 

CAD学习开发

function XML() {
    [native code]
}

chpmould

Thanks!

wylong

下载学习学习

kenny.bao

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

zz0147

看一下

学习了

zz0147

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

能详细介绍一下吗

yyzhan12

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78751