在VB6中更改64 bi的代码
你好：如何从独立的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位是否不同？）
---
任何帮助都将不胜感激
亚历克斯 首先，假设您已经安装了VBA Enabler for AutoCAD 2010，因为该版本本机不支持VBA Enabler。
其次，我认为还需要使用GetObject语句来指定AutoCAD版本：
Set ACADAPP = GetObject(, "Autocad.Application.18")
或者使用CreateObject语句启动默认安装或您的工作站：
Set ACADAPP = CreateObject(, "Autocad.Application")
当做
请尝试使用代码格式化程序（#按钮）来提高文章的可读性。 不幸的是，添加。18岁没用
设置ACADAPP=GetObject（，“Autocad.Application.18”）不起作用。
亚历克斯
页:
[1]