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

VBA中的编译错误

大家好,
 
我试图通过一个按钮/复选框将一个块插入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语句错误地声明了变量,因为不应该有空格,然后在代码中使用了不同的方法。这两条线应该相同。
 
Dim insertion point (0 to 2) as double
InsertionPnt(0) = 0 : insertionPnt(1) = 1 : insertionPnt(2) = 0

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

 
如果使用Option Explicit启动VBA模块,如果尝试使用尚未声明的变量,则会出现语法错误。这是一件好事。它会立即显示上述错误。
页: [1]
查看完整版本: VBA中的编译错误