GET*** Funktionen und Lisp - hat mal jemand Zeit? (Autodesk/Lisp)

Hallo,

dass man auf die AutoLISP Funktionen GETxxx, also z.B. GETPOINT, nicht transparent mit extern definierten Funktionen mit command-Aufrufen antworten kann, ist seit AutoCADs Anfängen bekannt. Das ist gleichermaßen in AutoCAD und BricsCAD so, und vielleicht auch in anderen kompatiblen Programmen. Dabei habe ich keine neueren AutoCAD Versionen, vielleicht hat sich das ja geändert.
Ich habe da jedenfalls einen Workaround gefunden, der zumindest in BricsCAD funktioniert.

Wenn jemand Zeit für einen kurzen Test in einer neuen AutoCAD Version hat:

Erst mal in AutoCAD ein Rechteck zeichnen, und dann auf dem AutoCAD Befehlsprompt das testen (Befehlsprompts wg CADCAL und BricsCAD bei mir etwas anders als in AutoCAD):

Code:
command: _LINE
Start of line or [Follow] <Last point>: 'CAL
>> expression: MEE

... dann zwei Punkte z.B auf der Diagonalen des Rechtecks oder einer Kante zeigen und mit dem Linien-Befehl fortfahren und beenden. Das sollte unbedingt funktionieren.
Und jetzt das Gleiche als Input auf einen Lisp-Aufruf mit GETPOINT

Code:
command: (setq ans (getpoint "\nSPT: "))
SPT: 'CAL
>> expression: MEE

... und dann die Punkte eingeben, z.B. Diagonalpunkte im Rechteck.
Je nachdem, wird entweder die Eingabe nicht akzeptiert und weiter nach der GETPOINT Eingabe für SPT gefragt, oder es wird zwar das Ergebnis von MEE angezeigt, aber es wird der LASTPOINT an die Variable ANS zugewiesen.

Mein Workoround ist nicht gerade elegant, aber er funktioniert in BricsCAD:

Code:

(vl-load-com)
(defun cc-getstring (msg /)
(vla-GetString (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))) 1 msg)
)
(vlax-remove-cmd "tcal" 'tcal)
(defun tcal (/ oldos ccstr ccr)
(setq oldos (getvar "osmode"))
(if (and (setq ccstr (cc-getstring "\n>> expression: "))
(/= "" ccstr)
(setvar "osmode" 0)
(setq ccr (cal ccstr))
(setvar "osmode" oldos)
)
(progn
(or ::activedoc
(setq ::activedoc
(vla-get-ActiveDocument (vlax-get-acad-object))
)
)
(vla-SendCommand
::activedoc
(strcat (vl-prin1-to-string (cons 'list ccr)) " ")
)
)
)
)
(vlax-add-cmd "tcal" 'tcal "" ACRX_CMD_TRANSPARENT)

Mit dem transparent aufgerufenen Befehl 'TCAL läuft das nun so:

Code:
: (setq ans (getpoint "\nSPT: "))
SPT: 'tcal
>> expression: mee
>> enter P1 or <enter> for lastpoint for MEE:
CC >> enter P2 for MEE:

Dann wieder die Punkte eingeben, und in BricsCAD läuft es dann so weiter:

Code:
SPT: (LIST 382.951976128814 153.718373493976 0.0)(382.951976128814 153.718373493976 0.0)
SPT: (382.951976128814 153.718373493976 0.0)

Das ist nicht schön, wg der gleich dreifachen Anzeige des Codes, aber es funktioniert. Offenbar kriegt (getpoint) auch erst mal ein NIL, bekommt aber durch die Lisp-Listenkonstruktion deren Ergebnis dann doch als Input mit. Die Variable ANS hat nun den korrekten Wert.

Ist das mit AutoCAD und GeomCAL reproduzierbar?

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