VBA中的编译错误

Bladezy · 发表于 2022-7-6 22:20:08

大家好，

我试图通过一个按钮/复选框将一个块插入autocad。
我的代码如下：-

私人子公司
OptionButton1\u点击（）
将插入点（0到2）调整为双精度
Dim blockrefobj作为AcadBlockReference
插入PNT（0）=0：插入PNT（1）=1：插入PNT（2）=0
'插入块
'根据您的系统需要修改图形和路径名称。
设置blockrefobj=ThisDrawing。纸张空间。InsertBlock（insertionPnt，“C:\Users\bladest\Desktop\vba\new block1345.dwg”，1，1，1，0））
'在r14中，不需要Z刻度
Zoomall（）
'在r14中，使用此图形。ActiveViewport。动物园购物中心

末端接头

我得到一个“语法错误”，“需要标识符”，后跟“语句在命名空间中无效”

谁能帮我解决这个问题？非常感谢

显然，一旦我让这段代码工作起来，我就能将其应用到多个块？我这样说对吗？

干杯论坛。

dbroada · 发表于 2022-7-6 23:57:03

首先，你会因为没有使用代码标签而被一位版主斥责。点击#工具，将代码行放在标记之间。。

接下来，您用Dim语句错误地声明了变量，因为不应该有空格，然后在代码中使用了不同的方法。这两条线应该相同。

copy

Dim insertion point (0 to 2) as double
InsertionPnt(0) = 0 : insertionPnt(1) = 1 : insertionPnt(2) = 0

copy

Dim [color=red]InsertionPnt[/color] (0 to 2) as double
[color=red]InsertionPnt[/color](0) = 0 : [color=red]insertionPnt[/color](1) = 1 : [color=red]insertionPnt[/color](2) = 0

如果使用Option Explicit启动VBA模块，如果尝试使用尚未声明的变量，则会出现语法错误。这是一件好事。它会立即显示上述错误。

[编程交流] VBA中的编译错误

发表回复

精选推荐