excel VBA 打开 NanoCAD 应用程序
excel VBA to open NanoCAD application
我想尝试在 NanoCAD 中自动生成多张图纸。有很多资源可以帮助使用 AutoCAD,但对 NanoCAD 的帮助并不多。
例如,有人可以给我下面的等效代码(我们可以用它来打开 Autocad)来打开 NanoCAD 吗?
我正确地参考了 NanoCAD 命令。就像我们为 Autocad 所做的那样。
Sub opencad()
Dim ACAD As AcadApplication 'Create ACAD variable of type AcadApplication
On Error Resume Next
Set ACAD = GetObject(, "AutoCAD.Application")
On Error GoTo 0
If ACAD Is Nothing Then
Set ACAD = New AcadApplication
ACAD.Visible = True
End If
ACAD.ActiveDocument.Utility.Prompt "ZOOM ALL "
End Sub
你必须使用这样的代码:
Dim app As nanoCAD.Application
Set app = GetObject("", "nanoCAD.Application")
另外不要忘记将 nanoCAD 类型库 (NCAuto.dll) 包含到您的项目中(菜单工具 - 参考..)
我花了一段时间才终于找到了一款与 AutoCAD 一样好用且易于使用的 CMS IntelliCAD 软件。我最欣赏的是我可以轻松编辑我的 .dwg 文件,它基本上提供了我习惯使用的所有功能。由于 CMS IntelliCAD 为我提供了免费试用选项,我也尝试使用其他软件(包括免费软件)来比较和了解哪个更适合我。到目前为止,在我尝试过的所有内容中,CMS IntelliCAD 绝对是各方面最好的。干得好。
我想尝试在 NanoCAD 中自动生成多张图纸。有很多资源可以帮助使用 AutoCAD,但对 NanoCAD 的帮助并不多。 例如,有人可以给我下面的等效代码(我们可以用它来打开 Autocad)来打开 NanoCAD 吗?
我正确地参考了 NanoCAD 命令。就像我们为 Autocad 所做的那样。
Sub opencad()
Dim ACAD As AcadApplication 'Create ACAD variable of type AcadApplication
On Error Resume Next
Set ACAD = GetObject(, "AutoCAD.Application")
On Error GoTo 0
If ACAD Is Nothing Then
Set ACAD = New AcadApplication
ACAD.Visible = True
End If
ACAD.ActiveDocument.Utility.Prompt "ZOOM ALL "
End Sub
你必须使用这样的代码:
Dim app As nanoCAD.Application
Set app = GetObject("", "nanoCAD.Application")
另外不要忘记将 nanoCAD 类型库 (NCAuto.dll) 包含到您的项目中(菜单工具 - 参考..)
我花了一段时间才终于找到了一款与 AutoCAD 一样好用且易于使用的 CMS IntelliCAD 软件。我最欣赏的是我可以轻松编辑我的 .dwg 文件,它基本上提供了我习惯使用的所有功能。由于 CMS IntelliCAD 为我提供了免费试用选项,我也尝试使用其他软件(包括免费软件)来比较和了解哪个更适合我。到目前为止,在我尝试过的所有内容中,CMS IntelliCAD 绝对是各方面最好的。干得好。