---

Hallo Leute,
Ich habe ein Problem mit dem sendcommand-Befehl. Mir gelingt es zwar einen Parameter an den Lispaufruf zu übergeben, aber auf den Rückgabewert der Lispfunktion kann ich in
VBA nicht zugreifen. Hat jemand eventuell eine Idee dazu?
_____________________________________________________________
Sub test()
ThisDrawing.Utility.GetEntity BlockRef, inspkt, "Blockwählen"
oi = Attributes(3).ObjectID ' Objekt-Id des 3. Attributwertes
hOBJEKTID = oi
ThisDrawing.SendCommand "(oi2la " & hOBJEKTID & ")" & vbCr ' Die Object_Id des Blockes wird
                                                            ' an eine Lispfunktion übergeben
' an dieser Stelle möchte ich den Rückgabe Wert der
' Lispfunktion weiterverarbeiten
End Sub

_______________________________________________________________

Der Lisp-Qellcode

(defun oi2la(hOBJEKTID )

; Routine zur Ermittlung des Layernamens aus der Objekt-ID
(setq DOC(vla-get-activedocument(vlax-get-acad-object)))
(setq OBJ2(vla-ObjectIDToObject DOC hOBJEKTID)); hOBJEKTID ist die Objekt-Id des Blockes
(setq OBJ3(vlax-vla-object->ename OBJ2))
(setq layer_n (cdr (assoc 8 (entget OBJ3))))

)

----------------------------------------------
Der Rückgabewert der Lispfunktion ist der Inhalt der Varable layer_n der Layername des Blockes als String. Wie komme ich an ihn in VBA heran
Ein Tipp wäre sehr hilfreich für mich.

Gruß Volker

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

---

Lisp an VBA ist leider nur über workarounds möglich.
Im Beispiel bietet sich z.B. USERS1 zur Ablage des Layernamens an.
Aber warum von hinten durch die Brust ins Auge? Warum nicht alles in Lisp oder VBA schreiben?

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Udo,

Zitat"Warum nicht alles in Lisp oder VBA schreiben?"

In meinen letzten Beitrag habe ich das ausführlich erläutert.

"Über das Schriftfeld eines Attributwertes die damit verknüpfte Polylinie ermitteln " -ist leider nicht in VBA möglich

- deshalb der Klimmzug

Ich habe etwas umständlich mittlerweile das Problem gelöst, in dem ich die über die Funktion  GetLispSymbol( siehe Anhang von Henning "Lispschnittstelle_fuer_VBA.pdf") mir den Wert in VBA ermitteln lassen kann.

Die Lispfunktion war nur ein Beispiel, jetzt lasse ich in Lisp, aus der ObjektId des Blockes  den Layernamen der verknüpften Polylinie
ermitteln und kann so überprüfen, ob er Layername korrekt ist.

Gruß Volker

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