AutoCAD crashes

[Anonymous]

Hey everyone,

I added this part to my perfectly working code, and for some reason now it crashes every time I want to run it. Can someone help me?

public sub
  
'add new layer
On Error Resume Next
    Dim Lay As AcadLayer
    Dim Color As AcadAcCmColor
    Set Color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.22")
    Color.SetRGB 80, 100, 244
    
    Set Lay = ThisDrawing.Layers.Add("AnkersControle")
    With Lay
        .TrueColor = Color
        .Freeze = False
        .Lineweight = acLnWt009
    End With
On Error GoTo 0
    
'set new layer as current
ThisDrawing.SendCommand "_-layer _make PCLayer" & vbCr & vbCr
  
               
End Sub

[grobnik · Accepted solution]

Hi @Anonymous the procedure hangs on 

.TrueColor = Color

 Seems that the color application has some problems.

In order to set the TrueColor correct by cad versione I'm suggesting to apply

Dim color As AcadAcCmColor
    Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & Left(CStr(AcadApplication.Version), 2))
    color.SetRGB 80, 100, 244

Le us know

[Anonymous]

Hi again @grobnik !

Thank you very much for the speedy answer (again)!
It works perfectly!