"SW-Ground"-Eigenschaften in der Liste der geschweißten Teile

Out of category
21

Hallo Twathle,
Zurück zu meiner letzten Nachricht, hier ist mein Tutorial zur Information = >https://mycad.visiativ.com/contenu/ajout-la-masse-pour-chaque-corps-dun-mécanosoudé-dans-sa-liste-de-piéces-soudées?tuto
Und hier ist auch das Modell der " Welded Parts List", nutzen Sie es gut!! OL. :wink:
EssaiListePiécesSoudée.zip (1,9 KB)

1 „Gefällt mir“
22

Hallo
Unglücklicherweise müssen Sie die Masseneigenschaft für jedes Element in der Liste der geschweißten Teile ausfüllen. Das heißt, es funktioniert gut.
Eine andere Lösung besteht darin, die Bodeneigenschaft für jedes Profil einzugeben... :face_with_spiral_eyes:

1 „Gefällt mir“
23

Hallo Le_Bidule,

Und ja, man muss in der Tat informieren.
Es ist mit einem Makro möglich, aber ich weiß nicht, wie ich es machen soll ... @+.
AR.

24

Hallo;

Hier ist ein kleines Makro, um die Eigenschaft " Masse " automatisch auf alle mechanisch geschweißten Elemente zu übertragen (Liste der geschweißten Teile):
=> Wenn bestimmten Elementen bestimmte Materialien zugeordnet sind, werden diese berücksichtigt, ansonsten wird die Dichte des globalen Materials beibehalten...

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim FileName As String

Sub main()
On Error Resume Next

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

If swModel Is Nothing Then
MsgBox "Pas de fichier Pièce Solidworks actif..."
End
End If

If swModel.GetType <> 1 Then
MsgBox "Pas de fichier Pièce Solidworks actif..."
End
End If

'swModel.Save

FileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)

Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If swFeat.GetTypeName() = "CutListFolder" Then
Set swCustPropMgr = swFeat.CustomPropertyManager
swCustPropMgr.Add3 "Masse", swCustomInfoText, Chr(34) & "SW-Mass@@@" & swFeat.Name & "@" & FileName & Chr(34) & " Kg", 1
End If
Set swFeat = swFeat.GetNextFeature
Loop
End Sub

Hinweis: Es ist möglich, die Linie anzupassen.
swCustPropMgr.Add3 " Masse ", swCustomInfoText, Chr(34) & " SW-Mass@@@ " & swFeat.Name & " @ " & FileName & Chr(34) & " Kg", 1

=> " Masse " ist der Name der Immobilie, die erstellt werden soll
=> & " Kg " (optionaler Text)

Makro zur ausschließlichen Verwendung in Solidworks Parts-Dateien.

Herzliche Grüße.

3 „Gefällt mir“
25

@Cyril.f Ich habe Ihre " Beste Antwort " vorübergehend ausgesetzt, um diese Diskussion anzustoßen... Aber ich behalte den Wert Ihrer Antwort im Hinterkopf. :yum:

1 „Gefällt mir“
26

Ich jage nicht den besten Antworten hinterher :wink:

1 „Gefällt mir“