| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| FMB |
Autor
|
Thema: Dateieigenschaft per VBA einfügen (2631 mal gelesen)
|
RalphRX8 Mitglied Kontruktionsbüro
Beiträge: 333 Registriert: 17.11.2004 Swx2011
|
erstellt am: 23. Okt. 2012 12:35 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich suche verzweifelt die Syntax um bei einem part oder einer asm eine benutzerdefinierte Eigenschaft hinzuzufügen. Ich hab das Modell bereits am Haken. Ich denke dass es da ja was geben muß mit "Add" oder so. Kann mir jemand helfen? Vorab vielen Dank. Viele Grüße Ralph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lueghi Mitglied Admin für alle Systeme ....
Beiträge: 416 Registriert: 01.07.2005 CAD...: SWX2022 SP5, ACAD 2019, Tacton / LINO PDM...: PRO.FILE 8.6 ERP...: proAlpha 6.2e / 7.1 BS....: Win10, HP ZBook G5
|
erstellt am: 23. Okt. 2012 12:49 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
Beispiel aus einem Makro: Code: ' einfügen der neuen Dateieigenschaften retval = Part.AddCustomInfo2("ZSL-Artikel", 30, "799-")
Dabei ist ZSL-Artikel der Name der Eigenschaft und 799- der Wert. Was die 30 bedeuten, weiß ich nicht mehr ... .------------------ Gruß Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 23. Okt. 2012 12:53 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
Hallo Ralph, such mal in der API-Hilfe nach CustomInfo2 damit kannst du Eigenschaften hinzufügen bzw. werte eintragen wenn diese schon vorhanden sind. Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 23. Okt. 2012 12:59 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
Oder besser noch das Beispiel wie es über den Property Manager gemacht wird. Add and Get Custom Properties Example (VBA) aus der API-Hilfe. Gruß Bernd
------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 23. Okt. 2012 13:02 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
Code: Was die 30 bedeuten, weiß ich nicht mehr ...
Zur Info die 30 ist der Eigenschaftstyp sprich 30 = Text, 63 = Datum, 3 = Anzahl und 11 = Ja/nein. Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
THSEFA Mitglied Konstrukteur/CAD-Admin
Beiträge: 1141 Registriert: 27.11.2002 SWX 2020 SP5.0 Premium Windows 10 Pro 64Bit Citrix VM Intel(R) XEON(R) Gold 6146 CPU @ 3.20GHz 24 GB Ram<P>Windows 10 Pro 64Bit
|
erstellt am: 23. Okt. 2012 13:30 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
|
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 23. Okt. 2012 17:02 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
Als Alternative bietet sich auch der CustomPropertyManager an! In der API - Hilfe: "Add and Get Custom Properties Example (VBA)" Code: Dim swApp As SldWorks.SldWorks Dim Part As ModelDoc2 Dim SelMgr As Object Sub main() Dim MyExt As ModelDocExtension Dim MyPropMan As CustomPropertyManager Dim MyError As Long, MyWarn As Long Dim myPrice As String Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager Set MyExt = Part.Extension Set MyPropMan = MyExt.CustomPropertyManager("") myPrice = InputBox("Bitte den Preis eingeben", "Preisabfrage") retval = MyPropMan.Add2("Preis", swCustomInfoText, myPrice) If retval = 1 Then Call MsgBox("Eintragung erfolgreich", vbOKOnly) Else Call MsgBox("Eintragung fehlgeschlagen", vbOKOnly) End If Part.Save3 0, MyError, MyWarn End Sub
GrüßeTobias ------------------ Besucht mich doch mal in meiner Tischlerei "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 23. Okt. 2012 17:32 <-- editieren / zitieren --> Unities abgeben: Nur für RalphRX8
[ironie]Pöser Tobias, jetzt hast du ihm auch noch die arbeit abgenommen die API-Hilfe zu benutzen [/ironie] Zitat: Oder besser noch das Beispiel wie es über den Property Manager gemacht wird.Add and Get Custom Properties Example (VBA) aus der API-Hilfe.
Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RalphRX8 Mitglied Kontruktionsbüro
Beiträge: 333 Registriert: 17.11.2004 Swx2011
|
erstellt am: 26. Okt. 2012 12:41 <-- editieren / zitieren --> Unities abgeben:
|