Hi,
I am trying to clear any dimension on a specific drawing view. I tried with outline to get the bounding box of the view then
swApp.SetSelectionFilter 14, and then using the SketchBoxSelect to select the dimensions. However, it always deletes the view with it even if the filter is on!
Any idea how to approach this is welcome!
thanks!
Thanks that worked!
In case someone needs it here is the code.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swDispDim As SldWorks.DisplayDimension
Dim swSelData As SldWorks.SelectData
Dim delDim As SldWorks.Annotation
Dim swAnn As Variant
Dim i As Long
Sub main()Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDocSet swSelMgr = swModel.SelectionManager
Set swSelData = swSelMgr.CreateSelectData
Set swDraw = swModel'set the view name "Iso-TopRightView"
bRet = swDraw.Extension.SelectByID2("Iso-TopRightView", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
Set swView = swSelMgr.GetSelectedObject6(1, -1)swAnn = swView.GetDisplayDimensions
For i = 0 To UBound(swAnn)
Set swDispDim = swAnn(i)
Set delDim = swDispDim.GetAnnotation
delDim.Select3 False, Nothing
swDraw.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed
Next i
End Sub
Just put a bit of checking in to make sure that at least one dimension exists, otherwise your macro will crash. And if you select all the dimensions in one go, you only need to delete once:
swModel.ClearSelection2 True
If Not IsEmpty(swAnn) Then
For i = 0 To UBound(swAnn)
Set swDispDim = swAnn(i)
Set delDim = swDispDim.GetAnnotation
delDim.Select3 True, Nothing
Next
swDraw.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed
End If
Great, will add those changes. I accidentally started this as a discussion instead of a question (can't convert it) and not able to mark you answer as correct.
Anyway thanks for your help and quick response!
Just use IView.GetDisplayDimensions to get all the dimensions in a view.
Then for each DisplayDimension in the list, call GetAnnotation to get an IAnnotation object.
Finally call IAnnotation.Select3
Then you can delete the selected dimensions.