Właściwości "SW-GROUND" na liście części spawanych

Out of category
21

Witaj Twathle,
Wracając do mojej ostatniej wiadomości, oto mój samouczek dla informacji =>https://mycad.visiativ.com/contenu/ajout-la-masse-pour-chaque-corps-dun-mécanosoudé-dans-sa-liste-de-piéces-soudées?tuto
A oto również model " Listy części spawanych ", dobrze z niego wykorzystaj!! OL. :wink:
EssaiListePiécesSoudée.zip (1.9 KB)

1 polubienie
22

Witam
Niefortunne jest to, że musisz wypełnić właściwość masy dla każdej pozycji na liście części spawanych. To powiedziawszy, działa dobrze.
Innym rozwiązaniem jest wprowadzenie właściwości gruntu dla każdego profilu... :face_with_spiral_eyes:

1 polubienie
23

Witaj Le_Bidule,

I tak, rzeczywiście musisz poinformować.
Jest to możliwe za pomocą makra, ale nie wiem, jak to zrobić ... @+.
AR.

24

Witam;

Oto małe makro do automatycznego dodawania właściwości " Masa " do wszystkich elementów spawanych mechanicznie (Lista części spawanych):
=> Jeśli określone materiały są przypisane do określonych pierwiastków, zostaną one wzięte pod uwagę, w przeciwnym razie gęstość materiału globalnego jest zachowywana...

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

Uwaga: istnieje możliwość dostosowania linii.
swCustPropMgr.Add3 " Mass ", swCustomInfoText, Chr(34) & " SW-Mass@@@ " & swFeat.Name & " @ " & FileName & Chr(34) & " Kg", 1

=> " Masa " to nazwa właściwości, która ma zostać utworzona
=> & " Kg " (tekst opcjonalny)

Makro do użytku wyłącznie w plikach części Solidworks.

Pozdrowienia.

3 polubienia
25

@Cyril_f Tymczasowo zawiesiłem twoją " Najlepszą odpowiedź ", aby wywołać tę dyskusję... Pamiętam jednak o wartości pańskiej odpowiedzi. :yum:

1 polubienie
26

Nie gonię za najlepszymi odpowiedziami :wink:

1 polubienie