---

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

---

Dateieigenschaften.jpg

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

---

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

---

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

---

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