Hallo
Ich mache es über den Visualisierungswürfel.
OBI WAN und ac cobra 427, all dies funktioniert gut für alle Körper außer dem Blatt...
Mit dem Visualisierungswürfel werden die Abmessungen des gefalteten und nicht abgewickelten Teils ermittelt .
Gut... Die Methode, die ich in der Zwischenzeit verwenden werde, besteht darin, diesen Ausdruck in das Feld "Beschreibung" zu kopieren:
Blechstärke "SW-Dicke von tôlerie@@@SW-CutListItemName@SW-Dateiname(Dateiname)"... "SW-Flankenlänge tôle@@@SW-CutListItemName@SW-Dateiname(Dateiname)"x"SW-Flankenbreite tôle@@@SW-CutListItemName@SW-Dateiname(Dateiname)"
Ideal wäre es, es in dem Feld kopieren zu können, das normalerweise von "Sheet" belegt wird (siehe pj), aber wie max59 sagte, gibt es keine Möglichkeit, dort ein Sonderzeichen zu kopieren ...
2019-02-27_14h33_20.png
1 „Gefällt mir“
Ich behalte die Idee des Makros bei,
Persönlich habe ich ein Makro für die Aufnahme, das Folgendes tut:
- Dimetrische Ansicht
- Zoom von Ihrer besten Seite
-Ankunft
=> alles mit einer "S"-Taste verbunden, was bedeutet, dass das Modell durch Drücken von S dreht, bestenfalls heranzoomt und speichert.
=> Es ist möglich, das Makro, das die Variablen injiziert, in ein Routinemakro wie dieses zu integrieren, es wird die Variablen bei jedem Datensatz erneut einfügen, aber zumindest werden sie da sein!
Ich benutze dieses System und da ich mir angewöhnt habe, nur über das Makro aufzunehmen, ist es viel flexibler, man kann damit machen, was man will, es funktioniert für neue und alte Teile.
Ich habe in meinem Makro ein Löschen von Variablen hinzugefügt, ein Hinzufügen von neuen und es funktioniert großartig!
1 „Gefällt mir“
Ich kenne mich mit Makros nicht sehr gut aus, aber ich habe den Eindruck, dass ich das durchgehen muss.
Michael, ich werde Ihren Code testen, wenn ich etwas Zeit habe.
Ich halte Sie auf dem Laufenden.
Hallo, vielleicht noch ein Lead.watch bei 23min 23 s
https://www.youtube.com/watch?v=Pjqi1XSLY5A
Möge die Macht mit euch sein.
Michael DELACOTE, könnten wir Ihrem Makro die Tatsache hinzufügen, dass es die Bezeichnung nur auf Körperschaften mit dem Namen Tole und nicht auf Profile anwendet:
Und wenn ja, was ist der Code, der geändert/hinzugefügt werden soll?
Vielen Dank im Voraus!
Hallo
Hier ist der geänderte Code, der Cutlist-Artikel muss mit "Tole" beginnen , sonst funktioniert er nicht.
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 „Gefällt mir“
Ausgezeichnet! Es funktioniert ;-)
Danke Michael
2 „Gefällt mir“
Vielen Dank, Michael, für Ihr Makro!
Hallo
Ich bin neu in der Gruppe. Hier ist die Lösung, die ich verwende.
durch Erstellen eines benutzerdefinierten Eigenschaftsformulars für Blech.
PL. "SW-Dicke von tôlerie@@@PLAQUE@Pièce1.SLDPRT" X "SW-Breite von tôle@@@PLAQUE@Pièce1.SLDPRT" X "SW-Länge von tôle@@@PLAQUE@Pièce1.SLDPRT"
Ich mag die Idee des Makros zu Michael DELACOTE.
Schönen Tag!
propriete_piece_de_tolerie.pptx