---

Hallo SW-Profis,

ich habe ein "kleines" Problem bei SW 2006 mit SP4.

Ein ähnliches Problem wurde hier schonmal angesprochen, jedoch nicht genau dieses und auch für SW2000.

Also, einige unserer Praktikanten haben bei einer Konstruktion die Standardformatvorlage für 3D Teile benutzt. Es muss aber zwingend die Vorlage des Kunden verwendet werden.

Nun meine Frage, wie kann ich die Formatvorlage bei 3d Teilen ändern. Bei Zeichnungen ist es ja relativ einfach, jedoch funktioniert es so beo 3D Parts nicht. Neu konsturieren ist eine schlechte Lösung, da es sich schon um eine recht große Anzahl von Teilen handelt.

Grüße Mathias Raimann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mathias,

das einzige was bei den Kundenvorlagen anders sein kann sind Dokumenteigenschaften und Dateieigenschaften. Die Dokumenteigenschaften kannst Du mit einem Excel-Makro (von Stefan Berlitz freundlichenweise auf seiner Webseite zur Verfügung gestellt) übertagen. ( http://solidworks.cad.de/mm_08.htm  )

Die Dateieigenschaften entweder direkt im SolidWorks, mit dem SolidWorks-Explorer einem selbst definierten Makro oder mit der Superstückliste von Andreas Müller übertragen. ( http://solidworks.cad.de/mm_boerse.htm  , Nummer 5.)

HTH& bis demnäx,
Ralf

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf,

danke für die Antwort, leider hat es nicht zum gewünschten Ergebnis geführt.

Grüße Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mathias,

wo liegen denn die Unterschiede zwischen euren und den Kundenvorlagen??? Normalerweise kann es nur an den Dokumentenvorlagen liegen, wenn der Hintergrund eine andere Farbe hat (hatten wir auch schon einmal) dann muß man sich die Arbeit machen und es Stück f. Stück unter den Optionen alle Kundeneinstellungen in die erzeugte Teiledaten einzupflegen. Bei uns war's nur der Hintergrund, aber die wollten es nicht selber Ändern.

Gruß Mc Fly

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also wenn ich dich richtig verstanden hab dann leg doch einfach in dem Zielordner der Dokumentenvorlage einen Ordner mit dem Kundennamen an und erstelle dort die Vorlagen?!

Wenn dann jemand einen Falschen Reiter(Karteikarte) bei den Vorlagen auswählt, naja...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo nochmal,

wo die Unterschiede liegen weis ich jetzt nicht genau, bin halt nicht in der Firma.
Ich glaube der größte Unterschied lag in umfangreich vordefinierten Eigenschaften (Dateiinformationen), die dann automatisch in die Zeichnung übernommen werden. Auch einige fürs arbeiten weniger erfreuliche Dinge wie standardtmäßig ausgeblendete Ebenen...!?

Es ist halt ein sehr spezieller Kunde, so dass wir die Vorlagen zwingend verwenden müssen.

Die Kundenvorlagen sind ja schon vorhanden und werden verwendet. Für die meisten Teile halt. Aber wie Du schon sagst, wenn jemand die falsche Vorlage wählt...

Grüße Mathias

[Diese Nachricht wurde von Mathias Raimann am 06. Nov. 2006 editiert.]

[Diese Nachricht wurde von Mathias Raimann am 06. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Ich habe genau das selbe Problem. Mit dem obem erwähnten Makro werden nur die Dateioptionen übertragen, nicht aber die Dateieigenschaften.
Gibt es ein Makro um die Dateiegenschaften eines 3D-Teils zu übertragen?
Danke.

Gruss
David

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mathias,

vielleicht hilft das weiter:
http://ww3.cad.de/foren/ubb/Forum2/HTML/007656.shtml

Gruß Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gibt es den Property-Manager von solidline nicht mehr?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn es ganz schnell gehen soll:
1. in den SWX-Optionen als Standard-Vorlage die des Kunden auswählen
2. Modell als Parasolid exportieren
3. Parasolid importieren (dabei wird dann die Kundenvorlage gewählt)
4. Dateieigenschaften prüfen

Das Teil hat zwar keine Features mehr, aber wenigstens die Eigenschaften 

HTH!

------------------
Johannes Anacker
Sales Support
SolidLine AG
SolidLine AG - Supportportal

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich hatte mal vor langer Zeit für einen Kunden von mir ein Makro geschrieben, was er in seinen Prozess einbinden konnte, dass per Steuerdatei alles mögliche mit Dateieigenschaften machen konnte:

Code:

---

; Testdatei zum Kopieren von Werten der benutzerdefinierten
; Eigenschaften. Konfigurationsspezifischen Eigenschaften
; werden nicht berücksichtigt, nur globale Eigenschaften
; vom Typ Text werden berücksichtigt
;
; Alle Zeilen, die mit ; beginnen sind Kommentarzeilen
;
; Aufbau: Schlüsselwort Parameter 1 [Parameter2 ...]
;
; COPYVALUE Quelleigenschaft Zieleigenschaft
;    kopiert Wert der Quelle nach Ziel
; COPYVALUEMAX Anzahl Quelleigenschaft Zieleigenschaft
;    kopiert Wert der Quelle nach Ziel, aber maximal Anzahl Zeichen
; ADDPROP Name [Wert der neuen Eigenschaft]
;    erzeugt neue Eigenschaft mit Namen Name und leerem Inhalt
; DELPROP
;    löscht Eigenschaft Name ohne Rückfrage
; UPDATEVALUE Zieleigenschaft [Neuer Wert]
;    aktualisiert Eigenschaft mit neuem Wert
;
;
COPYVALUEMAX 8 Filename EK_D_DOK-NR
COPYVALUE Identity_Number EK_D_MAT-NR
COPYVALUE PWDB_created_at EK_D_ERST-DAT
COPYVALUE PWDB_created_by EK_D_ERST-NAME
COPYVALUE PWDB_changed_at EK_D_LBEA-DAT
COPYVALUE PWDB_changed_by EK_D_LBEA-NAME
COPYVALUE Desc1 EK_D_MKTXT-D
COPYVALUE Desc2 EK_D_MKTXT-E
COPYVALUE Field1 EK_D_MAT-ROH
COPYVALUE PWDB_scale1 EK_D_MASST
COPYVALUE Weight EK_P_GEWICHT
;
; Beispiel für die restlichen Kommandos
;ADDPROP Ansprechpertner William T. Riker
;ADDPROP Warpfaktor 9.1 und darüber
;DELPROP Warpfaktor
;UPDATEVALUE  Ansprechpartner Jean-Luc Picard

---

Aber ich verstehe nicht genau, wie du damit meinst, die Dateieigenschaften zu "kopieren", dazu müssten die ja irgendwie zwischengespeichert werden, danach das "Zieldokument" aufgerufen werden und die dort dann drangeklebt bzw. überbügelt werden.

Oder geht es einfach nur darum eine Reihe von leeren Dateieigenschaften an dem Dokument schon mal zu erzeugen, dass man sich das Tippen der Namen sparen kann?

Dann hilft dieses Makro:

Code:

---

' **********************************************************************
' Makro erzeugt Dateieigenschaften ohne Wert
' Wenn konfigurationsspezifische Werte eingetragen werden sollen den
' Parameter "AllConfigs" auf 1 setzen.
'
' ACHTUNG:
' * ggf. vorhandene Attribute werden NICHT überschrieben
' * alle Dateieigenschaften werden als Typ Text angelegt
'
' 17.11.2006 Stefan Berlitz
'            http://solidworks.cad.de
'            http://swtools.cad.de
' **********************************************************************
' diese folgenden Werte können editiert werden
'
' AllConfigs steuert, ob das Dokument die Dateieigenschaften als konfigurations
' spezifische Eigenschaften erstellt oder auf Dateiebene
Const AllConfigs = 1
'
' unten noch die Properties eintragen!
'
' NICHT MEHR AB HIER EDITIEREN, es sei denn Sie wissen was sie tun ;-)
' **********************************************************************

' Definitions of typenames are consistent as in swconst.bas
Option Explicit
Const swDocPART = 1
Const swDocASSEMBLY = 2
Const swDocDRAWING = 3

Public Enum swCustomInfoType_e
    swCustomInfoUnknown = 0
    swCustomInfoText = 30   '  VT_LPSTR
    swCustomInfoDate = 64   '  VT_FILETIME
    swCustomInfoNumber = 3  '  VT_I4
    swCustomInfoYesOrNo = 11    '  VT_BOOL
End Enum

Sub Main()

    Dim swApp As Object
    Dim ModelDoc As Object
    Dim ConfigCount As Long
    Dim ConfigNames As Variant
    Dim PropConfigs As New Collection
    Dim PropNames As New Collection
    Dim Prop As Variant
    Dim Config As Variant

    Dim PropType As Long
    Dim PropText As String
    Dim i As Long

    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc = swApp.ActiveDoc

    If ModelDoc Is Nothing Then
        ' Call MsgBox("Keine Datei geöffnet", vbOKOnly, "Information")
        Exit Sub
    End If
    '
    ' **********************************************************************
    ' diese folgenden Werte können editiert werden
    '
    ' die gewünschten Properties mal sammeln, ggf. einfach erweitern
    PropNames.Add "StefansProperty-1"
    PropNames.Add "Einen-fuer-Mama"
    PropNames.Add "Einen-fuer-Papa"
    PropNames.Add "und-einen"
    PropNames.Add "fuer-die-liebe-Oma"
   
    ' jetzt besser nicht mehr editieren ;)
    ' **********************************************************************
   
    ' alle Dateieigenschaften aus der Konfiguration holen
    ConfigCount = ModelDoc.GetConfigurationCount
    ConfigNames = ModelDoc.GetConfigurationNames
   
    ' dann die Coolection vorbereiten mit den Namen der Konfigs bzw. "" wenn auf Datei
    If AllConfigs = 0 Then
        PropConfigs.Add ""
    Else
        For i = 0 To ConfigCount - 1
            PropConfigs.Add ConfigNames(i)
        Next i
    End If
   
    For Each Config In PropConfigs
        For Each Prop In PropNames
            ' als Dateieigenschaft wieder einsetzen
            ' und neu hinzufügen; falls schon vorhanden passiert nix
            Debug.Print ModelDoc.AddCustomInfo3(Config, Prop, swCustomInfoText, "bitte ausfüllen")
        Next
    Next

End Sub

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Member of CAD.de BOINC Team  -   | Seti@Home | CPDN | Einstein@Home

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,

ich wollte nochmal kurz den Stand der Dinge verlauten lassen.

Wir konnten eines Deiner Scripts auf unsere Bedürfnisse anpassen.

Somit hast Du uns ne ganze Menge Arbeit erspart.

Riesen Dank dafür

Grüße Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das freut mich zu hören 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Member of CAD.de BOINC Team  -   | Seti@Home | CPDN | Einstein@Home

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So, nun hab ichs auch noch geschafft.
Grossen Dank an Stefan. Deine Makrobeispiele haben bestens geholfen!

Gruss
David

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,

dein Code funktioniert wunderbar, aber wie von dir ausgewiesen: "Wenn bereits vorhanden passiert nichts"...

Gibt es keine Möglichkeit, die vorhandenen Dateieigenschaften "rücksichtslos" zu überschreiben?

Ziel ist es übrigens, den Zeichnungskopf automatisch mit den richtigen Daten aus einer Datenbank zu füllen...
Ich kann bereits die Daten "ins Macro" importieren und entsprechenenden Variablen zuweisen... Danach sollen diese Variablen in den Dateieigenschaften landen und dadurch auch im Zeichnungskopf/Blattformat.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo mafab,

Zitat:

---

Original erstellt von mafab:
dein Code funktioniert wunderbar, aber wie von dir ausgewiesen: "Wenn bereits vorhanden passiert nichts"...

Gibt es keine Möglichkeit, die vorhandenen Dateieigenschaften "rücksichtslos" zu überschreiben?

---

Ja, wie auf deine Frage im Thread Dateieigenschaften aus Vorlage überbügeln schon geschrieben, kannst du entweder vorher überprüfen, ob die Dateieigenschaft da ist und die dann ggf. per ModelDoc::CustomInfo2 mit deinem Wert aktualisieren, oder einfach "blind" vorher die vorhandene Dateieigenschaft mit ModelDoc:: DeleteCustomInfo2 löschen, dann klappt es auch mit dem AddCustomInfo3 wieder.

In meinem Schriftfeldmakro auf http://solidworks.cad.de/mm_09.htm ist auch Codebeispiel drin.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja jetzt hab ich es endlich hinbekommen, hatte ein paar kleine "Ausdrucksfehler"...

Vielen Dank für die schnelle Hilfe!

Grüße,
Max

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP