AutoCAD 2010、VB的问题

inner · 发表于 2022-7-6 11:39:34

我在vb6中有很多DLL，从autocad 2004到autocad 2009，它们的工作非常有魅力

但是现在我在使用AutoCAD 2010时遇到了很多问题

所有VB6 DLL的架构为

初始化类

在vbModal中显示窗体（如果我尝试无模式执行，则窗体不会显示）

按运行命令按钮，隐藏表单，向autocad发送提示，并尝试在屏幕上进行选择

但随后AutoCAD被阻止，选择光标出现在屏幕上，但我无能为力，必须从windows任务管理器中终止AutoCAD

当我从没有窗体的vb6 dll中进行屏幕选择时，不会出现此问题

谁知道AutoCAD 2010发生了什么？不想重写网络中的所有代码

ReMark · 发表于 2022-7-6 11:52:42

32位还是64位版本？

我们说的是VB 6.0和Service Pack 5，对吗？

inner · 发表于 2022-7-6 11:59:16

32位

VB6 SP6

像这样的东西只是在我的计算机中阻止autocad 2010
测验拉链

ReMark · 发表于 2022-7-6 12:08:55

我很清楚，AutoCAD 2010和VB 6.0都是32位的，对吗？

inner · 发表于 2022-7-6 12:12:18

对

这太奇怪了，因为它在调试dll时工作得很好，但在编译dll后就不行了

我这样修改了代码

私有子命令1\u Click（）
Dim objSelset作为AcadSelectionSet
错误转到错误控制
':::::::::::::::::::::::::::::::::::
我隐藏
林匹亚迪布
设置xAcad=GetObject（，“AutoCAD.Application.18”）
设置ThisDrawing=xAcad。活动文档
设置objSelset=ThisDrawing。选择集。添加（“SS2”）
对象集。在屏幕上选择
MsgBox对象集。计数
出口：
我显示
出错时继续下一步
此图纸。选择集。项目（“SS2”）。删除：Set objSelset=Nothing
犯错误清楚的
出口接头
错误控制：
MsgBox“菜单测试错误。”&犯错误数字（“&Err.Description&”）de“&Err。源，vbCritical，“错误”
犯错误清楚的
继续退出
末端接头