lihezhou 发表于 2014-2-10 19:37:59

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

为了通用到所有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 发表于 2014-2-11 21:14:00

直接使用下面的代码行吗？
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 发表于 2014-2-12 20:40:52

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

lihezhou 发表于 2014-2-12 20:41:29

我已经知道了。不过还是谢谢你。为什么VBA好像这样不行的！！
页: [1]
查看完整版本: 为了通用到所有CAD版本，我封装了一个设置对象颜色的函数：