Cze wszystkim
Czy można wybrać wszystkie wymiary poziome lub pionowe płaszczyzny za pomocą makra?
Z góry dziękujemy za Twoją opinię.
Yannicka
2020_07_03_11_36_45_window.png
Cze wszystkim
Czy można wybrać wszystkie wymiary poziome lub pionowe płaszczyzny za pomocą makra?
Z góry dziękujemy za Twoją opinię.
Yannicka
Interfejs API ma interfejs IDisplayDimension, który ma właściwość Type2 dla SwDimensionType_e wyliczeniowej.
SwDimensionType_e.swHorLinearDimension czy SwDimensionType_e.swVertLinearDimension wyglądają obiecująco :)
Witam
Spowoduje to wybranie wymiarów pionowych (lub w inny sposób poziomych) każdego widoku arkusza.
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swDispDim As SldWorks.DisplayDimension
Dim DisplayData As SldWorks.DisplayData
Dim swAnn As SldWorks.Annotation
Dim ArrowHeadPos1 As Variant
Dim ArrowHeadPos2 As Variant
Dim Reponse As Integer
Reponse = MsgBox("Selectionner les dimensions verticales?", vbYesNo)
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel.GetType <> swDocDRAWING Then
MsgBox "Veuillez ouvrir un dessin"
Exit Sub
End If
Set swDraw = swModel
swModel.ClearSelection2 True
Set swView = swDraw.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
Set DisplayData = swDispDim.GetDisplayData
If swDispDim.GetType = swDimensionType_e.swLinearDimension And DisplayData.GetArrowHeadCount = 2 Then
ArrowHeadPos1 = DisplayData.GetArrowHeadAtIndex2(0)
ArrowHeadPos2 = DisplayData.GetArrowHeadAtIndex2(1)
If Reponse = vbYes And Abs(ArrowHeadPos1(0) - ArrowHeadPos2(0)) < 0.0001 Then
Set swAnn = swDispDim.GetAnnotation
swAnn.Select3 True, Nothing
ElseIf Reponse <> vbYes And Abs(ArrowHeadPos1(1) - ArrowHeadPos2(1)) < 0.0001 Then
Set swAnn = swDispDim.GetAnnotation
swAnn.Select3 True, Nothing
End If
End If
Set swDispDim = swDispDim.GetNext5
Wend
Set swView = swView.GetNextView
Wend
End Sub
Dziękuję Jerome, to jest to, czego potrzebowałem. Czy znasz wiersz poleceń do integracji linii nieciągłości
Co masz na myśli mówiąc "integrować"?
Sprawdź zakładkę Linie podziału
Rozumiałem to. Ale nie to, co masz na myśli mówiąc "integrować".
Źle się wyraziłam, to weekend mam wymówkę ;0)
Czy masz na myśli zastosowanie opcji "przełamania" do każdego zaznaczonego wymiaru pionowego lub poziomego?
Tak, to wszystko
Niestety, ta opcja nie wydaje się być dostępna.