Níže můžete vidět kód, který vypíše a poté by měl také změnit směr odsazení plochy.
Kód by měl být správný, avšak po změně směru a zpětně po jeho vypsání, je dle výpisu směr "true or false"
jenže na modelu se obrácení směru nezmění! Prosím o radu, která by mi pomohla změnit směr odsazení plochy.
V případě zájmu mohu také s menšími problémy pomoci.
' Preconditions:
' (1) Model document is open.
' (2) Surface offset feature is selected.
' Postconditions: None
'-------------------------------------------------
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swSelData As SldWorks.SelectData
Dim swOffset As SldWorks.SurfaceOffsetFeatureData
Dim swFeat As SldWorks.Feature
Dim swFace As SldWorks.Face2
Dim swEnt As SldWorks.Entity
Dim vFace As Variant
Dim i As Long
Dim bRet As Boolean
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swSelData = swSelMgr.CreateSelectData
Set swFeat = swSelMgr.GetSelectedObject5(1)
Set swOffset = swFeat.GetDefinition
Debug.Print "File = " & swModel.GetPathName
Debug.Print " " & swFeat.Name
Debug.Print " Distance = " & swOffset.Distance * 1000# & " mm"
Debug.Print " FacesCount = " & swOffset.GetFacesCount
Debug.Print " Flip = " & swOffset.Flip
'Tady mění směr odsazení a poté jej vypíše
swOffset.Flip = True
swOffset.Flip = False
Debug.Print " Flip = " & swOffset.Flip
swOffset.ReleaseSelectionAccess
End Sub