Sub main() 'LineTypeEnum 'https://forums.autodesk.com/t5/inventor-customization/linetype-value-for-layers-in-export-flat-pattern-to-dxf/td-p/5786579 ' Dim oIDW As DrawingDocument oIDW = ThisApplication.ActiveDocument ' Dim oBaseLayer As Layer ' oBaseLayer = oIDW.StylesManager.Layers.Item(68) oBaseLayer = oIDW.StylesManager.Layers.Item("Title (ISO)") Dim oNewLayer As Layer oNewLayer_Name = "RTW001" Try oNewLayer = oBaseLayer.Copy(oNewLayer_Name) Catch MessageBox.Show("New layer, " & oNewLayer_Name & ": Exists", "Title") End Try ThisDrawing.Document.StylesManager.Layers(oNewLayer_Name).Visible = True ThisDrawing.Document.StylesManager.Layers(oNewLayer_Name).Plot = False Dim brownColor As Color brownColor = ThisApplication.TransientObjects.CreateColor(165, 42, 42) ' the attributes of the layer to use the color, ' have a solid line type, and a specific width. oNewLayer.Color = brownColor oNewLayer.LineType = kDoubleDashedChainLineType oNewLayer.LineWeight = 0.002 End Sub