Bonjour,
moi je le fait via le cube de visualisation.
OBI WAN et ac cobra 427, tout ça fonctionne bien pour tous les corps sauf les Sheet...
Avec le cube de visualisation on obtient les dimensions de la pièce pliée et non pas dépliée.
Bon... la méthode que je vais utiliser en attendant mieux c'est de copier cette expression dans le champ "Description":
Tôle ép."SW-Epaisseur de tôlerie@@@SW-CutListItemName@SW-Nom de fichier(FileName)"..."SW-Longueur du flanc de tôle@@@SW-CutListItemName@SW-Nom de fichier(FileName)"x"SW-Largeur du flanc de tôle@@@SW-CutListItemName@SW-Nom de fichier(FileName)"
L'idéal serait de pouvoir la copier dans le champs occupé normalement par "Sheet" (voir pj), mais comme le disait max59, pas moyen d'y copier un caractère spécial...
2019-02-27_14h33_20.png
1 « J'aime »
Je maintien l'idée de la Macro,
Personnellement j'ai une macro pour l'enregistrement qui fait :
- Vue Dimétrique
- Zoom au mieux
- Enregistrement
=> le tout relié à une touche "s" ce qui fait qu'en pressant S le modèle tourne, zoom au mieux et s'enregistre.
=> Il est possible d'intégrer la macro qui injecte les variables à une macro routinière comme celle ci, ca réinjectera les variables à chaque enregistrement mais au moins elles seront là !
J'utilise ce système et ayant pris l'habitude de n'enregistrer que via la macro, c'est bien plus flexible on peut en faire ce qu'on veux, ça marche pour les nouvelles pièces et les anciennes.
J'ai ajouté dans ma macro une suppression de variables, un ajout de nouvelles et ça marche au top !
1 « J'aime »
Je ne suis pas hyper familier des macros, mais j'ai effectivement l'impression qu'il faudra que je passe par là.
Michael, je testerai ton code quand j'aurai un peu de temps.
Je vous tiendrai au courant.
Bonjour, peut être une autre piste.regarder à 23min 23 s
https://www.youtube.com/watch?v=Pjqi1XSLY5A
que la force soit avec toi.
Michael DELACOTE, pourrais-on ajouter a ta macro le fait que ca n'applique la désignation qu'aux corps qui se nomme Tole et non pas aux profils :
Et si oui, quel est le bout de code a modifier/rajouter ?
Merci d'avance !
Salut,
Ci après le code modifié, il faut que l'article de la Cutlist commence bien par "Tole" sinon ça ne marchera pas.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim NF As String
Dim Liste As String
Dim Final As String
Dim st As String
Dim swBodyFolder As SldWorks.BodyFolder
Dim swBody As Body2
Dim vBody As Variant
Dim i As Integer
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
NF = swModel.GetTitle() & ".SLDPRT"
st = """"
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If swFeat.GetTypeName() = "CutListFolder" Then
Liste = swFeat.Name
Set swBodyFolder = swFeat.GetSpecificFeature2
swBodyFolder.UpdateCutList
Final = st & "SW-Longueur du flanc de tôle@@@" & Liste & "@" & NF & st & "x" & st & "SW-Largeur du flanc de tôle@@@" & Liste & "@" & NF & st
If Liste Like "Tole*" Then
Set swCustPropMgr = swFeat.CustomPropertyManager
swCustPropMgr.Add3 "Dimension", swCustomInfoText, Final, 1
End If
End If
Set swFeat = swFeat.GetNextFeature
Loop
End Sub
3 « J'aime »
Excellent ! Ca marche ;-)
Merci Michael
2 « J'aime »
Merci Michael pour ta macro!
Bonjour,
Je suis nouveau sur le groupe. Voici la solution que moi j'utilise.
en créent un formulaire de propriété personnaliser pour la tôlerie.
PL. "SW-Epaisseur de tôlerie@@@PLAQUE@Pièce1.SLDPRT" X "SW-Largeur du flanc de tôle@@@PLAQUE@Pièce1.SLDPRT" X "SW-Longueur du flanc de tôle@@@PLAQUE@Pièce1.SLDPRT"
j'aime l'idée du macro à Michael DELACOTE.
Bonne journée!
propriete_piece_de_tolerie.pptx