Propriétés "sw-masse" dans la liste de pièce soudées

Out of category
21

Hello Twathle,
De retour pour mon dernier message, voici mon tuto pour information =>https://mycad.visiativ.com/contenu/ajout-la-masse-pour-chaque-corps-dun-mécanosoudé-dans-sa-liste-de-piéces-soudées?tuto
Et voici également le model de la « Liste Pièces Soudées », fais s’en bon usage !!! L’OL. :wink:
EssaiListePiécesSoudée.zip (1,9 Ko)

1 « J'aime »
22

Bonjour,
ce qui est dommage c’est qu’il faille renseigner la propriété de masse pour chaque article de la liste des pièces soudées. Cela dit cela fonctionne bien.
Autre solution c’est de renseigner la propriété de masse pour chaque profilé… :face_with_spiral_eyes:

1 « J'aime »
23

Bonjour Le_Bidule,

Et oui effectivement il faut renseigner.
C’est possible avec une macro, mais là je ne sais pas faire … @+.
AR.

24

Bonjour;

Voici une petite macro pour ajouter automatiquement la propriété « Masse » sur tous les éléments mécanosoudé (Liste de pièce soudées):
=> Si des matériaux spécifiques sont affectés sur certains éléments ils seront pris en compte, sinon on conserve la densité du matériau Global…

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

Nota : il est possible de personnalisé la ligne.
swCustPropMgr.Add3 « Masse », swCustomInfoText, Chr(34) & « SW-Mass@@@ » & swFeat.Name & « @ » & FileName & Chr(34) & " Kg", 1

=> « Masse » est le Nom de la propriété à créer
=> & " Kg" (texte optionnel)

Macro à utiliser exclusivement sur les fichiers Pièces Solidworks.

Cordialement.

3 « J'aime »
25

@Cyril.f J’ai temporairement suspendu ton « Meilleur réponse » pour remonter cette discussion…mais je garde bien en tête la valeur de ta réponse. :yum:

1 « J'aime »
26

Je ne cours pas après les meilleurs réponses :wink:

1 « J'aime »