"SW-geslepen" eigenschappen in de lijst met gelaste onderdelen

Out of category
21

Hallo Twathle,
Terug voor mijn laatste bericht, hier is mijn tutorial voor informatie =>https://mycad.visiativ.com/contenu/ajout-la-masse-pour-chaque-corps-dun-mécanosoudé-dans-sa-liste-de-piéces-soudées?tuto
En hier is ook het model van de " Gelaste onderdelenlijst", maak er goed gebruik van!! OL. :wink:
EssaiListePiécesSoudée.zip (1,9 kB)

1 like
22

Hallo
Wat wel jammer is, is dat je voor elk item in de lijst met gelaste onderdelen de massa-eigenschap moet invullen. Dat gezegd hebbende, het werkt goed.
Een andere oplossing is om voor elk profiel de grondeigenschap in te voeren... :face_with_spiral_eyes:

1 like
23

Hallo Le_Bidule,

En ja, inderdaad, je moet informeren.
Het is mogelijk met een macro, maar ik weet niet hoe ik het moet doen ... @+.
AR.

24

Hallo;

Hier is een kleine macro om automatisch de eigenschap " Massa " toe te voegen aan alle mechanisch gelaste elementen (lijst met gelaste onderdelen):
=> Als specifieke materialen aan bepaalde elementen worden toegewezen, wordt hiermee rekening gehouden, anders blijft de dichtheid van het globale materiaal behouden...

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

Let op: het is mogelijk om de lijn aan te passen.
swCustPropMgr.Add3 " Mass ", swCustomInfoText, Chr(34) & " SW-Mass@@@ " & swFeat.Name & " @ " & FileName & Chr(34) & " Kg", 1

=> " Massa " is de naam van de aan te maken eigenschap
=> & " Kg " (optionele tekst)

Macro voor uitsluitend gebruik op Solidworks Parts-bestanden.

Vriendelijke groeten.

3 likes
25

@Cyril_f Ik heb je " Beste Antwoord " tijdelijk opgeschort om deze discussie ter sprake te brengen... Maar ik houd de waarde van uw antwoord in gedachten. :yum:

1 like
26

Ik jaag niet op de beste antwoorden :wink:

1 like