| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| SolidCAM im Einsatz bei der August Weckermann KG |
Autor
|
Thema: Dateieigenschaften einer Zeichnung per VBA auswerten (598 mal gelesen)
|
cncustomz Mitglied
Beiträge: 7 Registriert: 12.11.2014 Solidworks 2017 SP5
|
erstellt am: 12. Feb. 2020 10:04 <-- editieren / zitieren --> Unities abgeben:
Folgende Aufgabe: Unser PDM System übergibt einen Zeichnungsstatus in Textform in die Dateieigenschaften der Zeichnung. Dieser Text soll per VBA/Makro ausgelesen und mittels einer IF Prüfung auf einen bestimmten Inhalt überprüft werden. Als Ergebnis wird eine neue Eigenschaft samt neuem Wert geschrieben. Mein Problem das ich gerade habe ist, dass ich mit der Get2 Methode nicht an die Werte komme. Gibt es für Zeichnungen eine eigene Methode? Code:
Dim swApp As Object Dim swModel As SldWorks.ModelDoc2 Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As LongDim Prop As Integer Dim FieldName As String Dim UseCached As Boolean Dim ValOut As String Dim ResolvedValOut As String Dim WasResolved As Boolean Sub main()
Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc FieldName = "Workflow" Prop = swModel.Get2(FieldName, ValOut, ResolvedValOut) If ValOut = "Frei" Then swModel.DeleteCustomInfo2 "", "Stempel" swModel.AddCustomInfo3 "", "Stempel", swCustomInfoText, "Freistempelung" End If End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Winni-two Mitglied Ing. Maschb.
Beiträge: 154 Registriert: 12.03.2010 SW 2021 SP5 Intel Xenon W2135 @3.7GHz Win 10 64 bit Graka: Nvidia Quadro P4000 32 GB Ram
|
erstellt am: 12. Feb. 2020 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für cncustomz
Hallo cncustomz, Versuch mal: Dim swApp As Object Dim swModel As SldWorks.ModelDoc2 Dim boolstatus As Boolean Dim FieldName As String Dim ResolvedValOut As String Dim ValOut As String Dim swModelDocExt As ModelDocExtension Dim swCustProp As CustomPropertyManager Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swModelDocExt = swModel.Extension Set swCustProp = swModelDocExt.CustomPropertyManager("") FieldName = "Workflow" boolstatus = swCustProp.Get4(FieldName, False, ValOut, ResolvedValOut) If ValOut = "Frei" Then boolstatus = swCustProp.Add3("Stempel", swCustomInfoText, "Freistempelung", swCustomPropertyDeleteAndAdd) End If
End Sub Gruss Winni
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Werkstudent im Bereich Entwicklung/Engineering (m/w/d) | Das Product Design Center der TK Elevator Innovation and Operations GmbH beschäftigt sich mit der Entwicklung von Productfeatures, harmonisierten globalen Produktplattformen sowie der Konzeption und Entwicklung ganzer Fahrtreppen-/ Fahrsteigtypen. In internationalen Teams, mit Kollegen der Entwicklungszentren in China und Spanien, entwickeln wir Innovationen für effiziente Fahrtreppen und Fahrsteige der Zukunft.... | Anzeige ansehen | Entwicklung |
|
cncustomz Mitglied
Beiträge: 7 Registriert: 12.11.2014 Solidworks 2017 SP5
|
erstellt am: 12. Feb. 2020 11:13 <-- editieren / zitieren --> Unities abgeben:
|