0 Replies Latest reply on Feb 17, 2017 5:37 PM by Eric Bunn

    is it possible to set a sketch segment equal to a feature so I can run GetBox Method (IFeature) on it. 

    Eric Bunn

      I can find plenty of code to find the end points, curve data, etc. for sketch segments but nothing to give me a bounding box type of a measurement.   Really just interested in a 2D bounding box measurement for a sketch segment for an application I am working on.


      Stops at Set swFeat = swCurve with a Type Mismatch




      Sub main()

           Dim swApp                       As SldWorks.SldWorks
           Dim swModel                     As SldWorks.ModelDoc2
           Dim swModelDocExt               As SldWorks.ModelDocExtension
           Dim swSelMgr                    As SldWorks.SelectionMgr
           Dim swFeat                      As SldWorks.Feature
           Dim swFace                      As SldWorks.Face2
           Dim swCurve As SldWorks.Curve
           Dim BoxFeatureArray             As Variant
           Dim BoxFaceArray                As Variant
           Dim swSketchMgr                 As SldWorks.SketchManager
           Dim swSketchPt(8)               As SldWorks.SketchPoint
           Dim swSketchSeg(12)             As SldWorks.SketchSegment
           Dim swSkSeg             As SldWorks.SketchSegment
           Dim status                      As Boolean
           Dim errors                      As Long
           Dim warnings                    As Long
           Dim fileName                    As String
           Set swApp = Application.SldWorks
           Set swModel = swApp.ActiveDoc
           ' Select feature
           Set swModelDocExt = swModel.Extension
           Set swSelMgr = swModel.SelectionManager
           Set swSkSeg = swSelMgr.GetSelectedObject6(1, -1)
           Set swCurve = swSkSeg.GetCurve
           Set swFeat = swCurve
           ' Get selected feature's bounding box
           status = swFeat.GetBox(BoxFeatureArray): Debug.Assert status

      End Sub