---

hallo vb'ler
ich möchte mein schriftkopf vb programm weiter ausbauen. dazu möchte ich in die configurationsspezifischen eigenschaften die fieldnames, values und types reinschreiben. ich bringe das ding aber nur mit der ursprünglichen modeldoc.AddCustomInfo() zum laufen. wie funktioniert die type definition unter modeldoc.AddCustomInfo2 & 3. nach api help soll dort <swCustomInfoText> stehen. dies funktioniert aber weder unter Info2, noch 3? weiss jemand weiter?

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

---

Aloah uj,

ich hab das (wenn ich mich recht erinnere) ohne die vordefinierten Konstanten gemacht und anstatt swCustomInfoText einfach "Text" (mit Anführungszeichen) geschrieben. Hat glaube ich funktioniert, ist aber schon eine Weile her und nachprüfen kann ich es gerade nicht, aber versuchs mal.

Bis dann
Kalle

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

---

hallo kalle!
danke schön für deine antwort, aber darauf bin ich auch schon gekommen, da es ja bisher so funktionierte. leider kommt dann immer ein laufzeitfehler beim compilieren der da sagt, dass die typen unverträglich seien. ich habe schon jede erdenkliche variante ausprobiert, doch da scheint nicht's zu helfen!
gruss uj

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

---

Hallo,

AddCustomInfo3 erwartet als Parameter FieldType eine Variable/Konstante vom Type long (siehe API-Hilfe). Daran sollte man sich dann auch halten, damit die VB-Runtime sich nicht beschwert.
Mögliche Werte für FieldType sind in der Aufzählung (enum) swCustomInfoType enthalten.
In VBA hat man jedoch die Schwierigkeit, dass es keine Aufzählungstypen (enums) kennt.
Als Abhilfe sucht man sich also aus swconst.bas (im Verzeichnis ".../samples/appcomm") den Wert heraus:
swCustomInfoText = 30
Dieser ist beim FieldType einzusetzen, wenn eine Eigenschaft vom Type Text erzeugt werden soll.

Code:

---

ModelDoc.AddCustomInfo3 "Standard", "Testeigenschaft", 30, "Testwert"

---

So einfach ist das!

Gruß, Armin

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

---

Hmmmmm Schmatz unser Steini ist nun auch ganz glücklich. 
Bisher sind wir davon Ausgegangen dass die Konstanten von 0 ab gezählt werden.

Gruß
Andreas

P.S. Wir hatten hier zufällig das gleiche Problem.

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

---

super...
danke viel mals. auch ich bin natürlich bei meinen test davon ausgegangen dass die konstanten bei null anfangen und nicht bei 10 oder so. ich hätte mir die <swconst.bas > wohl etwas genauer anschauen müssen.
auf alle fälle vielen dank nochmal
uj

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

---

Hallo uc

hab das bei mir mal ausprobiert (SW2001 SP11), hat mir kein Problem bereitet. Ich hab mal ein Beispiel angehängt, das einfach mal zu jeder Konfiguration eine Eigenschaft erzeugt, die als Inhalt den Konfigurationsnamen hat. Klappt logischerweise bei Zeichnungen, da die keine Konfigurationen haben (warum eigentlich nicht?)

Code:

---

Dim swApp As Object
Dim ModelDoc As Object
Dim numConfigs As Long
Dim Names As Variant

Dim i As Long
Dim retval As Boolean

Const swCustomInfoUnknown = 0
Const swCustomInfoText = 30 ' VT_LPSTR
Const swCustomInfoDate = 64 ' VT_FILETIME
Const swCustomInfoNumber = 3 ' VT_I4
Const swCustomInfoYesOrNo = 11 ' VT_BOOL

Sub main()
   
    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc = swApp.ActiveDoc
   
    ' wie viele Konfigruationen gibt's überhaupt?
    numConfigs = ModelDoc.GetConfigurationCount()
    ' die Namen der Konfigurationen holen
    Names = ModelDoc.GetConfigurationNames()
    For i = 0 To (numConfigs - 1)
        ' erst löschen, falls vorhanden
        retval = ModelDoc.DeleteCustomInfo2(Names(i), "KonfigName")
        ' dann neu erzeugen
        retval = ModelDoc.AddCustomInfo3(Names(i), "KonfigName", swCustomInfoText, CStr(Now) & " " & Names(i))
    Next

End Sub

---

Hoffe, du kommst damit weiter.

Stefan

------------------
Inoffizielle Solidworks Hilfeseite
http://solidworks.cad.de
EMail: Stefan.Berlitz@solidworks.cad.de

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

---

hallo stefan!
bin dir schon fast unendlich dankbar! da ich nicht der ultimative vb'ler bin ist mir das mit der constanten definition in diesem falle komplett durch die lappen...
merci auf alle fälle für das super beispiel das mir sozusagen das leben rettet 
grüsse aus der innerschweiz
uj

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

---

Hallo Andreas, Hallo Stefan, 

danke für Eure schnelle hilfe. Ich habe beides für den jeweiligen Fall asprobiert. Hat hevorragend geklappt.

Gruß

Marco Bertiller
creative B OHG
www.tube-racer.de

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