| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | SOLIDWORKS PDM Professional im Einsatz bei Wölfle, ein Anwenderbericht |
Autor
|
Thema: eifenschaften von modell auf zeichnung uebertragen (2570 mal gelesen)
|
degogo Mitglied Leiter IT | Netzwerkadministrator
Beiträge: 111 Registriert: 31.03.2006 Intel Core i7-5820K X99-UD4-CF Kingston 9905598-006.A00G 32 GB (4x8 GB) NVIDIA GeForce GTX 960 Windows 10 Pro (x64) SolidWorks 2019 (SP = immer das neuste)
|
erstellt am: 26. Okt. 2006 13:22 <-- editieren / zitieren --> Unities abgeben:
hallo zusammen, da steh ich wiedereinmal vor einem problem und weiss nich so wirklich wie ich das loesen kann. Und zwar moechte ich die eigenschaften aus dem modell, welche ausgefuellt sind, auf die dazugehoerige zeichnung, welche noch keinerlei eigenschaften hat, uebertragen. das ganze soll gemacht werden, weil der schriftkopf und auch die datenkarte in pdmwe nach den eigenschaften der zeichnung ausgefuellt werden sollen. und die eigenschaften stehen ja schon einmal im modell. ich weiss, dann hat man sie doppelt, im modell und der zeichnung, das ist aber so gewollt. die eigenschaften in der zeichnung sollen auch nicht immer wieder neu ueberschrieben werden, nur beim ersten erstellen der zeichnung (zeichnungsvorlage hat keine eigenschaftswerte). kann mir jemand sagen ob und wenn wie das realisierbar ist? gruss, degogo ------------------ rechtschreib- und grammatikfehler sind gewollt und dienen zur erheiterung... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 26. Okt. 2006 13:58 <-- editieren / zitieren --> Unities abgeben: Nur für degogo
Guck mal bitte da nach ----> Bei den Eigenschaften kannst Du wählen zwischen denen des aktuellen (Zeichnungs-)Dokumentes und denen aus dem abgebildeten Modell... ------------------ Lutz Federbusch Mein Gästebuch Der Mensch, Herr oder Sklave der Technik? [Diese Nachricht wurde von Lutz Federbusch am 26. Okt. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ralf Blokscha Mitglied Konstrukteur
Beiträge: 175 Registriert: 10.07.2000
|
erstellt am: 26. Okt. 2006 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für degogo
Hallo degogo, stand vor dem gleichen Problem seit der anbindung an SAP/PLM. habe das mit einem Speicherntool gelöst das jeder User nutzen muss. Auszug aus dem Tool: Sub DatEigCopy()
Dim DrawingDoc As Object Dim View As Object Dim ModName As String Dim Zeichnung As String Dim errors As Long Dim Bezeichnung_1 As String Dim Bezeichnung_2 As String Dim Description_1 As String Dim Description_2 As String Dim ZeichnungsNr As String Dim Version As String Dim Labor As String Dim TeilDok As String Dim BearbName As String Dim dummy Set swApp = CreateObject("SldWorks.Application") swApp.Visible = True Set Model = swApp.ActiveDoc If (Model.GetType() = swDocDRAWING) Then Set DrawingDoc = swApp.ActiveDoc Set View = DrawingDoc.GetFirstView Set View = View.GetNextView If View Is Nothing Then keinModell Screen.MousePointer = vbDefault Exit Sub End If ModName = View.GetReferencedModelName() Zeichnung = Model.GetPathName() If Zeichnung = Empty Then Model.Save2 False 'saveAktion ModName = View.GetReferencedModelName() Zeichnung = Model.GetPathName() Screen.MousePointer = vbDefault 'Exit Sub End If Set Model = swApp.ActivateDoc2(ModName, True, errors) Bezeichnung_1 = Model.CustomInfo("Bezeichnung_1") Bezeichnung_2 = Model.CustomInfo("Bezeichnung_2") Description_1 = Model.CustomInfo("Description_1") Description_2 = Model.CustomInfo("Description_2") ZeichnungsNr = Model.CustomInfo("DokumentenNr") Version = Model.CustomInfo("Version") Labor = Model.CustomInfo("Labor_Buero") TeilDok = Model.CustomInfo("Teil_Dok") BearbName = Model.CustomInfo("Bearb_Name") swApp.CloseDoc Model.GetTitle() Set Model = swApp.ActivateDoc2(Zeichnung, True, errors) Model.Visible = True Model.DeleteCustomInfo ("Bezeichnung_1") Model.DeleteCustomInfo ("Bezeichnung_2") Model.DeleteCustomInfo ("Description_1") Model.DeleteCustomInfo ("Description_2") Model.DeleteCustomInfo ("DokumentenNr") Model.DeleteCustomInfo ("Version") Model.DeleteCustomInfo ("Labor_Buero") Model.DeleteCustomInfo ("Teil_Dok") Model.DeleteCustomInfo ("Bearb_Name") dummy = Model.AddCustomInfo("Bezeichnung_1", "Text", Bezeichnung_1) dummy = Model.AddCustomInfo("Bezeichnung_2", "Text", Bezeichnung_2) dummy = Model.AddCustomInfo("Description_1", "Text", Description_1) dummy = Model.AddCustomInfo("Description_2", "Text", Description_2) dummy = Model.AddCustomInfo("DokumentenNr", "Text", ZeichnungsNr) dummy = Model.AddCustomInfo("Version", "Text", Version) dummy = Model.AddCustomInfo("Labor_Buero", "Text", Labor) dummy = Model.AddCustomInfo("Teil_Dok", "Text", TeilDok) dummy = Model.AddCustomInfo("Bearb_Name", "Text", BearbName) 'If Not ModelCustomInfo("Blattformat") = LoadResString(2000) Then 'MsgBox LoadResString(106), vbOKOnly, "Information" 'End If End If End Sub Gruß Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
degogo Mitglied Leiter IT | Netzwerkadministrator
Beiträge: 111 Registriert: 31.03.2006 Intel Core i7-5820K X99-UD4-CF Kingston 9905598-006.A00G 32 GB (4x8 GB) NVIDIA GeForce GTX 960 Windows 10 Pro (x64) SolidWorks 2019 (SP = immer das neuste)
|
erstellt am: 27. Okt. 2006 06:59 <-- editieren / zitieren --> Unities abgeben:
da bin ich wieder... danke fuer die schnellen antworten, aber ich musste gestern "leider" frueher schluss machen... @lutz federbusch: das man sich im schriftfeld auf das in der zeichnung abgebildete modell beziehen kann weiss ich, aber es geht darum das die eigenschaften aus dem modell in die zeichnung geschrieben werden... auch die benutzerdefiierten @ralf: wenn ich nu noch wuesste was ich damit machen muss (hab leider keinerlei basic kenntnisse), dann waere das wahrscheinlich genau das was ich suche... gibt es dazu vielleicht eine "erweiterung" fuer in pdmwe? gruss, degogo ------------------ rechtschreib- und grammatikfehler sind gewollt und dienen zur erheiterung... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lutz Federbusch Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 3094 Registriert: 03.12.2001 alle SW seit 97+ AutoCAD2016-2022 ERP ProAlpha + CA-Link Intel Core i7-7820K 32GB Win10x64 Quadro K5000 SpacePilot
|
erstellt am: 27. Okt. 2006 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für degogo
Das Makro von Ralf liest aus der geöffneten Zeichnung das referenzierte Modell aus, aktiviert es, holt sich dann den Inhalt der Dateieigenschaften (z.B. Bezeichnung_1 = Model.CustomInfo("Bezeichnung_1")...) und aktiviert dann wieder die Zeichnung, löscht dort genau diese Eigenschaften ( Model.DeleteCustomInfo ("Bezeichnung_1")) und schreibt sie neu mit den ausgelesenen Inhalten ( dummy = Model.AddCustomInfo("Bezeichnung_1", "Text", Bezeichnung_1)). Du müßtest also nur den ganzen Makrotext in ein neues Makro kopieren, die Namen der Eigenschaften anpassen und dann das Makro auf Deine Zeichnung loslassen! ------------------ Lutz Federbusch Mein Gästebuch Der Mensch, Herr oder Sklave der Technik? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|