社区 › Auto Lisp › VBA AutoCAD 2008至2011

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

VBA AutoCAD 2008至2011

大家好，
任何人都可以帮我解决问题，我有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

请参阅下面的代码。
 

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

Tyke 发表于 2022-7-6 23:04:40

我试过你的代码，效果很好，我可以选择一个点，取整后的坐标显示在两个文本框中。
 
我在你的代码中没有看到变量“scale\u pt”的声明。我将其声明为变体
检查变量的声明，注意声明中没有括号{（）}。

ramanusu 发表于 2022-7-6 23:09:38

当使用该点时，我试图画一条线，它给出了一个错误
 
“调用的对象已与客户端断开连接”

Tyke 发表于 2022-7-6 23:14:47

要画一条线，你至少需要两点。您需要将拾取的点保存在一个变量中，然后重复拾取点并将该点保存在另一个变量中。然后你可以用这两点来画线。
 
顺便问一下，你的代码成功了吗？

查看完整版本: VBA AutoCAD 2008至2011