Halle zusammen,
Bin von AutoCAD 2006 auf 2022 umgestiegen und habe folgendes Problem mit meinem Lisp (ist noch aus AutoCAD R12 Zeiten hier im Forum)
https://ww3.cad.de/foren/ubb/Forum145/HTML/001737.shtml#000000Das Lisp berechnet bei einem aktuellen Befehl, welcher eine Punktabfrage benötigt, den Punkt um die Werte X und Y (Koordinaten) neu und gibt sie dem aktuellen Befehl weiter.
Leider funktioniert dieses Lisp bei AutoCAD 2022 nur mehr bei der 1. Punktabfrage des aktiven Befehls. z.b. schieben, Linie, kopieren, spiegeln...
ab der 2. Punktabfrage verschwindet bei mir das Fadenkreuz.
Habe es auch mit einer 2006er DWG versucht - leider ohne Erfolg.
Soweit ich mich erinnere musste damals auch unter Optionen -> Benutzereinstellungen -> Priorität für ... Koordinaten auf "Tastatureingabe außer Scripten" umgestellt werden.
zum testen: irgend ein Autocadbefehl bei dem eine Punktabfrage benötigt wird und während des Befehls (STA_FAN_SET_REL) eingeben.
command: _linie (STA_FAN_SET_REL) => funktioniert
command: _linie -> 1. Punkteingabe -> 2.Punkteingabe + (STA_FAN_SET_REL) => funktioniert nicht mehr
Code:
(DEFUN STA_FAN_SET_REL (/) (setq AX_WERTE (getvar "userr1"))
(setq AY_WERTE (getvar "userr2"))
(setq SYSFANGM (getvar "osmode"))
(setq SYSMODES (getvar "dynmode"))
(setvar "dynmode" 0)
(setq AA_PUNKT (getpoint "\nRelativ von:"))
(princ "\n")
(princ "Delta x: < ")
(princ AX_WERTE)
(princ " > ")
(setq BX_WERTE (getreal))
(if (= BX_WERTE nil)
(setq BX_WERTE AX_WERTE)
)
(princ "Delta y: < ")
(princ AY_WERTE)
(princ " > ")
(setq BY_WERTE (getreal))
(if (= BY_WERTE nil)
(setq BY_WERTE AY_WERTE)
)
(setq AA_PUNKT (list (+ (car AA_PUNKT) BX_WERTE)
(+ (cadr AA_PUNKT) BY_WERTE)
)
)
(setvar "osmode" 0)
(command AA_PUNKT)
(setvar "osmode" SYSFANGM)
(setvar "dynmode" SYSMODES)
(setvar "userr1" BX_WERTE)
(setvar "userr2" BY_WERTE)
)
Kann auch sein, dass es nicht am Lisp, sondern an den AutoCAD Systemeinstellungen liegt.
Eventuell unter AutoCAD 2006 Optionen -> Profil -> exportieren -> AutoCAD 2022 ohne Pfadangaben -> importieren.
Mit ExpressTools System Variables ex- und importieren habe ich es schon versucht, leider ohne Erfolg.
[Diese Nachricht wurde von Temuedschin am 16. Aug. 2022 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP