VBA AutoCAD 2008至2011

ramanusu · 发表于 2022-7-6 22:19:54

大家好，
任何人都可以帮我解决问题，我有VBA代码，它在AutoCAD 2008中运行良好。但在AutoCAD 2011中，这并不是灾难。隐藏表单后，我无法获取cad scr。谢谢你的帮助。

Tyke · 发表于 2022-7-6 22:31:52

当您从调试窗口启动宏时，有时会发生这种情况。尝试从AutoCAD启动它。

ramanusu · 发表于 2022-7-6 22:32:29

谢谢你的回复。它不起作用了。我使用get point Foundion从用户那里获取点。隐藏表单后。用户无法访问AutoCAD

Tyke · 发表于 2022-7-6 22:40:57

在无法访问图形屏幕之前，请尝试在调试窗口中单步执行代码。然后在代码中张贴问题区域，以便我们可以查看。

ramanusu · 发表于 2022-7-6 22:46:18

我无法从计算机辅助设计中领会要点。使用以下代码。

请参阅下一篇文章。

SLW210 · 发表于 2022-7-6 22:54:25

请阅读代码发布指南，并编辑您的帖子以包含代码标签。

ramanusu · 发表于 2022-7-6 23:00:27

请参阅下面的代码。

copy

 
Private Sub CommandButton5_Click()
On Error GoTo ErrHandler
Pump_curve_main.Hide
ThisDrawing.Activate
Call pick_point
TextBox11.text = CStr(Round(scale_pt(0), 0))
TextBox12.text = CStr(Round(scale_pt(1), 0))
ThisDrawing.Activate
Pump_curve_main.Show
Exit Sub
ErrHandler:
MsgBox "Please Pick a Point Error: " & _
Err.Description, vbDefaultButton1, "Pump Curve Creator"
Pump_curve_main.Show
Exit Sub
End Sub
Sub pick_point()
scale_pt = ThisDrawing.Utility.GetPoint(, "Pick a Scale origin point:")
End Sub