要用VB对CAD二次开发‘语句用文献里复制的,但每次在VB里运行都出现问题,跪求求高手解答。 我确实是VB文
DimAeadAppAsAcadApplication’在窗体代码声明段定义AeadApp变量类型PrivateSubForm—Load()’加载窗体时,自动启动Auto...
Dim AeadApp As AcadApplication’在窗体代码声明段定义AeadApp变量类型
Private Sub Form— Load()’加载窗体时,自动启动AutoCAD
On Error Resume Next
Set AeadApp GetObject(,”AutoCAD.Applic.
ation”)’已启动AutoCAD时执行本指令
If El1r Then
Err.Clear
Set AcadApp= CreateObject(”AutoCAD.A—
pplieation”)’未启动运行AutoCAD时执行本指令
End If
AcadApp.Visible=True’显示AutoCAD界面
End Sub 展开
Private Sub Form— Load()’加载窗体时,自动启动AutoCAD
On Error Resume Next
Set AeadApp GetObject(,”AutoCAD.Applic.
ation”)’已启动AutoCAD时执行本指令
If El1r Then
Err.Clear
Set AcadApp= CreateObject(”AutoCAD.A—
pplieation”)’未启动运行AutoCAD时执行本指令
End If
AcadApp.Visible=True’显示AutoCAD界面
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询