嘿，我懂这种移植代码时遇到的坑——VB6里好好的代码到VB.NET就报类型不匹配，尤其是AutoCAD的Interop接口，确实容易踩雷。咱们来拆解问题，一步步解决：

问题出在哪？ #

VB6是弱类型的“懒人友好”语言，AutoCAD的GetEntity返回的变体类型它能自动兜住，但VB.NET是强类型语言，对参数类型和传递方式要求严格得多。原来的VB6代码里隐式处理的变体转换和参数传递，到VB.NET里必须明确写出来。

具体修复步骤 #

1. 调整变量声明与参数传递 #

首先，GetEntity的第二个参数是用来返回拾取点的，VB.NET里必须用ByRef传递，而且得提前初始化这个变量。另外，接收实体的变量也要正确声明：

Dim ACADAPP As Object
Dim ACADDOC As Object
Dim select_object As Object
Dim pick_point As Object ' 用来存拾取点的变量，必须提前初始化
Dim operationStatus As Integer ' GetEntity返回的操作状态码

' 连接到活跃的AutoCAD实例
ACADAPP = System.Runtime.InteropServices.Marshal.GetActiveObject("AutoCAD.Application")
ACADDOC = ACADAPP.Documents.ActiveDocument

' 先初始化拾取点，用AutoCAD的Utility创建一个空点
pick_point = ACADDOC.Utility.CreatePoint(0, 0, 0)

' 调用GetEntity，注意参数的ByRef传递
operationStatus = ACADDOC.Utility.GetEntity(select_object, pick_point, "Select Object <Enter to Exit> : ")

2. 用强类型更严谨（推荐） #

如果你的项目里引用了AutoCAD的类型库（比如AutoCAD 202x Type Library），可以用强类型声明，避免Object类型的模糊性：

' 先添加引用：项目→添加引用→COM→找到AutoCAD 20xx Type Library
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports System.Runtime.InteropServices

Dim ACADAPP As AcadApplication
Dim ACADDOC As AcadDocument
Dim selectedEntity As AcadEntity
Dim pickPoint As AcadPoint
Dim operationStatus As Integer

' 转换为强类型的AcadApplication
ACADAPP = CType(Marshal.GetActiveObject("AutoCAD.Application"), AcadApplication)
ACADDOC = ACADAPP.ActiveDocument

' 初始化拾取点
pickPoint = ACADDOC.Utility.CreatePoint(0, 0, 0)

' 调用GetEntity，此时类型完全匹配
operationStatus = ACADDOC.Utility.GetEntity(selectedEntity, pickPoint, "Select Object <Enter to Exit> : ")

3. 别忘了处理返回状态 #

GetEntity返回的整数代表操作结果，别忽略它：

• 0：成功选中实体，可以继续处理selectedEntity
• 1：用户按下Enter取消了选择，此时selectedEntity可能为空，要跳过后续处理

为啥VB6里没问题？ #

VB6会自动处理变体类型的隐式转换，而且参数默认的传递方式刚好适配AutoCAD的API要求。但VB.NET为了类型安全，把这些“自动操作”都取消了，必须明确指定，所以直接搬代码就会触发类型不匹配错误。

内容的提问来源于stack exchange，提问作者Praveen Kumar s