为了通用到所有CAD版本，我封装了一个设置对象颜色的函数：

lihezhou

为了通用到所有CAD版本，我封装了一个设置对象颜色的函数：
  '设置对象的颜色
    Public Sub SetOBJColor(ByVal Ent As Object, ByVal CIndex As Integer)
        On Error Resume Next
        Dim C As Object
        C = Ent.TrueColor
        C.ColorIndex = CIndex
        Ent.TrueColor = C
    End Sub

这个函数我用VB封装DLL是没有问题的。但是不知道为什么用到VB。NET封装后就报警说什么对象没有设置！和COM类型数据转什么东东。看不懂！！！！
哪位哥哥帮我玩玩！！！谢谢

cdinten

直接使用下面的代码行吗？
Public Sub SetEntityColor(ByVal Ent As Entity, ByVal CIndex As Integer)
        On Error Resume Next
        Ent.ColorIndex= CIndex
End Sub
然后你可能需要打开事务，修改颜色，提交事务才能生效。到.NET之后我就不怎么用VB了，现在都忘记的差不多了，VB.NET不是强类型语言，灵活但是容易出错

lihezhou

我已经知道了。不过还是谢谢你。为什么VBA好像这样不行的！！

lihezhou

我已经知道了。不过还是谢谢你。为什么VBA好像这样不行的！！