在VB6中更改64 bi的代码

AlexB58 · 发表于 2022-7-6 11:38:16

你好：
如何从独立的VB6应用程序连接到64位Windows7（或Vista）上的AutoCAD？

为什么使用以下代码（或类似的简单过程，如ACADDOC.SendCommand…）在上述环境中产生“类型不匹配”错误。
“代码示例…”。。。。

公共ACADAPP作为AcadApplication
公开ACADDOC作为ACADDOC文档
私有子GetLength（）
设置ACADAPP=GetObject（，“Autocad.Application”）
设置ACADDOC=ACADAPP。活动文档
激活ACADAP。说明文字
MsgBox（ACADDOC.Utility.GetDistance（，vbCrLf和“Get Length:”））
末端接头

64位操作系统上AutoCAD VBA库的参考名称和位置是什么？
---
对于Windows XP 32位上的AutoCAD2010，它们是：
AutoCAD 2010类型库（64位是否不同？）
地方
C： \程序文件\通用文件\ Autodesk共享\ acadx18enu。tlb（64位是否不同？）
---
任何帮助都将不胜感激

亚历克斯

MSasu · 发表于 2022-7-6 12:23:37

首先，假设您已经安装了VBA Enabler for AutoCAD 2010，因为该版本本机不支持VBA Enabler。

其次，我认为还需要使用GetObject语句来指定AutoCAD版本：

copy

Set ACADAPP = GetObject(, "Autocad.Application[color=red].18[/color]")

或者使用CreateObject语句启动默认安装或您的工作站：

copy

Set ACADAPP = CreateObject(, "Autocad.Application")

当做

请尝试使用代码格式化程序（#按钮）来提高文章的可读性。

AlexB58 · 发表于 2022-7-6 12:50:01

不幸的是，添加。18岁没用
设置ACADAPP=GetObject（，“Autocad.Application.18”）不起作用。

亚历克斯

[编程交流] 在VB6中更改64 bi的代码

发表回复

精选推荐