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
=========================================
SolidworksApi macros