---

Hallo zusammen,
Weiß zufällig jemand, wie man zum Beispiel die Länge
(D1@Basis-Linear austragen)eines Teils über ein Makro, aus einem aktiven Dokument, auslesen kann und gleichzeitig in die Datei/Eigenschaft (CustomInfo) eintragen lassen kann?

Vielen Dank, Grize

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

---

Hallo Grize,

Parameter auslesen, deren Namen du kennst, kannst du am einfachsten über Parameter(Name).SystemValue, eintragen in Dateieigenschaft mit AddCustomInfo3, DeleteCustomInfo und CustomInfo2. Als Beispiel für deinen Fall:

Code:

---

Dim swApp As SldWorks.SldWorks
Dim ModelDoc As SldWorks.ModelDoc2

Dim configname As String
Dim wert As Double

Const swCustomInfoText = 30

Sub main()

    Set swApp = Application.SldWorks
    Set ModelDoc = swApp.ActiveDoc
   
    ' den Wert auslesen; Achtung ist in Metern
    ' hier im Beispiel immer der Parameter D1@Skizze1
    wert = ModelDoc.Parameter("D1@Skizze1").SystemValue

    ' eintragen in konfigspezifische Eigenschaft, dazu brauchen
    ' wir den Namen der aktiven Konfiguration
    configname = ModelDoc.GetActiveConfiguration.Name
   
    ' mit CustomInfo2 funktioniert es nur, wenn die Eigenschaft
    ' auch vorhanden ist; deswegen vorher alte Eigenschaft löschen
    ' und dann einfach diese neu erzeugen; im Beispiel heißt die
    ' Eigenschaft "MeinWert"
    ModelDoc.DeleteCustomInfo2 configname, "MeinWert"
    ' und neu erzeugen
    ModelDoc.AddCustomInfo3 configname, "MeinWert", swCustomInfoText, wert
   
End Sub

---

Ich hoffe damit kommst du etwas weiter.

Ciao,
Stefan

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

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

---

Hallo Grize,

ich betrachte Deinen Beitrag mal im Zusammenhang mit Deinem vorherigen 
Wenn es Dir darum geht z.B. die Rohabmessungen Deiner Teile aus dem Teil auszulesen, dann in die Dateiinfo und anschließend in die Stückliste, geht auch folgender Weg:

1. Modellieren eines Würfels mit HxBxT
2. Übernehmen der Maße D1@Skizze1, D2@Skizze2 & D1@Feature1 in die Dateiinfo
3. Alles als Vorlage abspeichern
4. Alles weitere wie u.clemens hier für Dich beschrieben hat

Wenn Du aber 'alte' Teile hast, dann API...

HTH , beste Grüße & bis demnäx
Ralf

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

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

---

Vielen Dank euch beiden, Ihr habt mir geholfen auf den richtigen weg zu kommen. Jetzt klappts.
Danke nochmal,
Gruß Grize

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