New to SW.

Thanks to teh person that donated the code in a previous discussion. Using the code makes a sketch in mm not in inches. Have checked document properties and units is inch, etc.

1. Is ther a different system setting?

2. I didn't do the install but is there was a units setting question in that process?

Downloaded code (one of four possible buttons) :

=====================

Private Sub btnLines_Click()
    Dim swApp As SldWorks.SldWorks
    Dim Part As ModelDoc2
    Dim i As Integer
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
    If Part Is Nothing Then
        MsgBox "Please activate a part document before using this macro."
        Exit Sub
    End If
    If Part.GetType <> 1 Then
        MsgBox "Please activate a part document before using this macro."
        Exit Sub
    End If
    If Not Part.GetActiveSketch2 Is Nothing Then
        MsgBox "Please exit the sketch before running this macro."
        Exit Sub
    End If
   
    Part.ClearSelection2 True
    Part.Insert3DSketch
    Part.SetAddToDB True
   
    i = 2
    While Range("A" & i).Value <> ""
        Part.createline2 Range("A" & i - 1).Value / 1000, Range("B" & i - 1).Value / 1000, Range("C" & i - 1).Value / 1000, _
            Range("A" & i).Value / 1000, Range("B" & i).Value / 1000, Range("C" & i).Value / 1000
        i = i + 1
    Wend
   
    Part.SetAddToDB False
    Part.ClearSelection
    Part.Insert3DSketch
    Part.ClearSelection2 True
End Sub

=========================================