De eigenschap laslengte ophalen

3D Design Sheet Metal / Machine Welded
1

Hallo
In één assemblage heb ik de functie " lasnaad " gebruikt.
Ik wil de waarde van de eigenschap " totale laslengte " ophalen in mijn aangepaste eigenschappen.
Maar ik weet niet hoe ik de eigenschap " LENGTH " die deze waarde zou moeten verhogen, op de juiste manier moet aanroepen.
Capture d’écran 2024-07-18 122628

Is er een document dat in detail uitlegt hoe u de Property Manager moet gebruiken?

Alvast bedankt voor je feedback!

2

Hallo tdubedout,
Welkom op het forum, hier is wat ik je kan brengen, in de hoop een beetje te hebben geholpen, Lol.

soudure
Soldeer1017×775 101 KB

Succes.
@+.
AR.

5 likes
4

Hallo, bedankt voor deze feedback, maar ik zou deze informatie graag willen krijgen zonder een plan te doorlopen.
Ik ga door met mijn onderzoek!

5

Hallo

Normaal gesproken kunt u stuklijsten ook in assemblages weergeven zonder de tekening door te nemen. Het wordt weergegeven in de 3D-foto op de pc

image
Afbeelding2016×1512 1.27 MB

1 like
6

Hallo tdubedout,
U kunt deze macro proberen:

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
3 likes
7

Hallo Hiëronymus,
Bedankt voor deze macro, het is geweldig.
Ik heb een paar regels aangepast zodat het de lengtes van de verschillende lasmaten bij elkaar optelt.
Nu moet ik deze waarde koppelen aan een aangepaste eigenschap van het SolidWorks-model.
Is er een lexicon dat de verschillende " objecten " bevat die op VBA in SolidWorks kunnen worden aangeroepen, de " functies " die ermee verbonden zijn en ook de verschillende soorten variabelen?

8

Voor de verschillende objecten is er deze lijst, maar een Google-zoekopdracht is sneller.
Als u een aangepaste eigenschap wilt lezen, gebruikt u Get4
Als u een aangepaste eigenschap wilt schrijven , gebruikt u Add3

3 likes