Ik loop tegen het volgende probleem aan.
Op m'n vorige computer windows xp 32 bits had ik een vba programma staan, waarmee ik een laag aanmaakte en de goede kleur en vervolgens een block insert.
Op m'n nieuwe computer windows 7 64 bits krijg ik een foutmelding :
run-time error '429':
Active x component can't craete object
Het programma stopt bij het deel dat ik een kleur voor de laag aanmaak.
zie hieronder het stukje code :
Dim currLayer As AcadLayer
Dim newLayer As AcadLayer
Dim activateLayer As AcadLayer
Dim AcadLayerColor As AcadAcCmColor
Dim LayerColor As Long
Set currLayer = ThisDrawing.ActiveLayer
Set newLayer = ThisDrawing.Layers.Add("K03")
Set AcadLayerColor = New AcadAcCmColor
AcadLayerColor.ColorMethod = acColorMethodByRGB
LayerColor = CLng(117)
AcadLayerColor.ColorIndex = LayerColor
Set activateLayer = ThisDrawing.Layers("K03")
activateLayer.TrueColor = AcadLayerColor
ThisDrawing.ActiveLayer = activateLayer
Nu kwam ik op internet het onderstaande stukje tegen wat zou moeten helpen tegen dit probleem, ik kom er alleen niet uit.
Set col = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.18")
Iemand anders hier ervaring mee?? Of weet iemand hoe dit op te lossen is?
Groetjes Martijn