---

Hallo API-Experts;

Ich habe ein mal wieder kleines (großes?) Problem mit API-Funktionen.

Ich möchte in einem Block einen Text ändern.

Zunächst habe ich den Block selektiert und prüfe jetzt, ob es ein Block (CustomSymbol) ist.

If SelMgr.GetSelectedObjectType(1) = swSelCUSTOMSYMBOLS Then
Set Symb = SelMgr.GetSelectedObject2(1)

Jetzt versuche ich , den vorhanden Text zu lesen;
laut SWX-API-Hilfe mit:

Dim Retval as Variant
Retval = Symb.GetNotes()
MsgBox Retval(0)
;Gibt einen Abbruch ohne Fehlermeldung

Die alte Funktion
MsgBox Symb.GetText(0)
ergibt einen Leerstring,

Jedoch die (ebenfals alte) Funktion
MsgBox Symb.gettextatindex(0)
ergibt tatsächlich das gewünschte Ergebnis

Soweit, sogut
(wenn ich's auch nicht verstanden habe, so habe ich doch das Ergebnis)

Leider funktioniert die einzige zu Verfügung gestellte Funktion zum Setzen eines Textes nicht

Retbool = Symb.SetText(0, "Fisch")
MsgBox Retbool
ergibt "falsch"

Was mach' ich falsch??

Danke im voraus

Thomas

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

---

Hallo Thomas,

ich weiß nicht genau ob ich Dir sofort helfen kann, aber ich hatte die letzten Wochen ein ähnliches Problem. Zur Zeit habe ich leider keinen Zugriff auf meine Programmierarbeiten, deshalb nur eine Vermutung und wenn ich wieder meine Daten zur Verfügung habe, dann werde ich mal explizit nachsehen, wie ich vorgegangen bin.

Du hast schon alle Informationen der Note in der Variablen RetVal, warum bleibst Du nicht dabei und versuchst hierüber den Texteintrag zu steuern. Die Funktion sollte eigentlich

retval = Note.SetText ( txt)

lauten.
Da SolidWorks die alte Funktion, wie Du bereits beschrieben hast, nicht mehr unterstützt, bin ich bei meiner Programmierung dann komplett über die Notes-Funktionen gegangen.

Ich hoffe es hilft - mehr wenn ich nächste Woche wieder an meine Sachen komme.

Gruß
Mathias

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

---

Hallo 3Defacto;

Du hast mich total inspiriert.
Funktioniert gut.

Dim Nots as Variant
Nots = Symb.GetNotes
MsgBox Nots(0).GetText
Retbool = Nots(0).SetText("Fisch")
MsgBox Retbool

Danke

Thomas

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