Hallo
In einer Baugruppe habe ich die Funktion " Schweißnaht " verwendet.
Ich möchte den Wert der Eigenschaft " Gesamtschweißlänge " in meinen benutzerdefinierten Eigenschaften abrufen.
Aber ich weiß nicht, wie ich die Eigenschaft " LENGTH " richtig aufrufen soll, die diesen Wert anzeigen soll.
Gibt es ein Dokument, das die Verwendung des Property Managers im Detail erklärt?
Vielen Dank im Voraus für Ihr Feedback!
Hallo tdubedout,
Willkommen im Forum, hier ist, was ich Ihnen bringen kann, in der Hoffnung, ein wenig geholfen zu haben, Lol.
Hallo, vielen Dank für dieses Feedback, aber ich möchte diese Informationen erhalten, ohne einen Plan zu durchlaufen.
Ich werde weiter recherchieren!
Hallo
Normalerweise können Sie Stücklisten auch in Baugruppen anzeigen, ohne die Zeichnung zu durchlaufen. Es wird in 3D angezeigt, siehe Foto auf dem PC
Hallo tdubedout,
Sie können dieses Makro ausprobieren:
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swWeldFolder As SldWorks.CosmeticWeldBeadFolder
Dim swFeat As SldWorks.Feature
Dim swSubFeat As SldWorks.Feature
Dim Msg As String
Msg = ""
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then MsgBox "Ouvrir un assemblage": Exit Sub
If swModel.GetType <> swDocumentTypes_e.swDocASSEMBLY Then MsgBox "Ouvrir un assemblage": Exit Sub
Set swFeat = swModel.FirstFeature
While Not swFeat Is Nothing
If swFeat.GetTypeName2 = "CosmeticWeldCutList" Then
Set swSubFeat = swFeat.GetFirstSubFeature
While Not swSubFeat Is Nothing
Set swWeldFolder = swSubFeat.GetSpecificFeature2
Msg = Msg & swWeldFolder.TotalNumber & " cordon de longueur totale: " & Round(swWeldFolder.TotalLength) & "mm" & vbCrLf
Set swSubFeat = swSubFeat.GetNextSubFeature
Wend
End If
Set swFeat = swFeat.GetNextFeature
Wend
MsgBox Msg
End Sub