|
经典图书 Sub SelectDim()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwDispDim As DisplayDimension, SwDim As Dimension, SwAnn As Annotation
''
Set SwDispDim = SwSelMgr.GetSelectedObject5(1)
Debug.Print SwDispDim.GetDimension.Name
Stop
''
With SwDispDim
Set SwDim = .GetDimension
If .GetType = 5 Then
.CenterText = True
.BrokenLeader = False
.ShortenedRadius = True
''
If SwDim.FullName Like "*Dn*" Then
.SetBrokenLeader2 False, swDisplayDimensionLeaderText_e.swBrokenLeaderAlignedText
Else
.SetBrokenLeader2 False, swDisplayDimensionLeaderText_e.swBrokenLeaderHorizontalText
End If
''
ElseIf .GetType = 2 Then
Set SwDim = .GetDimension
.CenterText = True
.BrokenLeader = True
.SetBrokenLeader2 False, swDisplayDimensionLeaderText_e.swBrokenLeaderAlignedText
Else
.CenterText = False
.BrokenLeader = False
.SetBrokenLeader2 False, swDisplayDimensionLeaderText_e.swSolidLeaderAlignedText
End If
Set SwDim = .GetDimension
.SetDual True
.ShowParenthesis = False
Set SwAnn = .GetAnnotation
SwAnn.Layer = "尺寸线"
Set SwDispDim = .GetNext
End With
End Sub |
|