AnsweredAssumed Answered

part.insertcoordinatesystem()  from point that was just created

Question asked by Kelly Hoffman on Jun 11, 2018
Latest reply on Jun 11, 2018 by Kelly Hoffman

very simple task


User pre-selects a face

Macro creates a point at midpoint of surface and then create a coordinate system at that point. This is what I have so far:


Dim swApp As Object



Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long



Sub main()



Set swApp = Application.SldWorks



Set Part = swApp.ActiveDoc

Dim myModelView As Object

Set myModelView = Part.ActiveView

myModelView.FrameState = swWindowState_e.swWindowMaximized

Dim vRefPointFeatures As Variant

vRefPointFeatures = Part.FeatureManager.InsertReferencePoint(4, 0, 0.01, 1)

Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("Point5", "DATUMPOINT", 0, 0, 0, False, 1, Nothing, 0)

boolstatus = Part.InsertCoordinateSystem(False, False, False)

Part.ClearSelection2 True

End Sub




*I know that my "Point5" part is incorrect. I need to save the previous point somewhere and then call it?