---

Hi, ich stehe vor einem kleinen Problem.

Ich habe nur rudimentäre Kenntnisse vom VBA & Makro Programmieren will aber folgendes machen:

In den KONFIGURATIONSSPEZIFISCHEN Dateigenschaften von SW steht z.B.:
"PART.NO" = Platte

Ich müsste jetzt den Wert "Platte" auslesen und bei "BENENNUNG"  unter den normalen BENUTZERDEFINIERTEN Eigenschaften eintragen lassen.
Ich müsste ansonsten hunderte von Datenbankeinträgen händisch ändern.
Optimalerweise kennt jemand ein Makro in dem man die Namen eintragen kann und es wird alles automatisch in die vorgegebenen Felder transportiert.

PS: Alle sonstigen Änderungen habe ich schon mit Hilfe von Stefan Berlitz seinen Makros bewerkstelligen können. UŽs sind unterwegs..... 

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

---

Die DPS Job Box sollte das (ohne eigenes Makro) können.

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

---

Hallo

Angelehnt an das Makro von Deepak Gupta

Code:

---

Option Explicit

Dim swApp              As SldWorks.SldWorks
Dim swModel            As SldWorks.ModelDoc2
Dim swConfigMgr        As SldWorks.ConfigurationManager
Dim swConfig            As SldWorks.Configuration
Dim swCustPropMgr      As SldWorks.CustomPropertyManager
Dim itemval            As String
Dim resolveditemval    As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   
    Set swConfigMgr = swModel.ConfigurationManager
    Set swConfig = swConfigMgr.ActiveConfiguration
    Debug.Print "Name of this configuration:          " & swConfig.Name

    Set swCustPropMgr = swConfig.CustomPropertyManager
 
    'Copy the value for specified Configuration property.
    swCustPropMgr.Get2 "PART.NO", itemval, resolveditemval
 
    'Delets the specified Configuration property.
    'swCustPropMgr.Delete "Description"
   
    'Add specified Custom property.
    swModel.DeleteCustomInfo2 "", "BENENNUNG"
    swModel.AddCustomInfo3 "", "BENENNUNG", swCustomInfoText, itemval
   
    swModel.ForceRebuild3 False
    swModel.Save2 True
   
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hey, vielen Dank!!!
Exakt das was ich brauche. Ich werde versuchen das noch so umzubauen, dass ich mehrere Eigenschaften auf einmal machen kann und ab gehts!
Dazu sollte ich mich wohl in Zukunft auch ein wenig mit VBA auseinandersetzen.

DPS Job Box wäre auch Interessant, haben wir aber leider nicht im Haus....

U`s sind unterwegs!

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