het niet mee verschuiven van elementen over het scherm (opgelost)

[Vanilla Queen]

(command "move" "last" "" pt2)
(setq pt3 (Getpoint pt2 "\n Geef de nieuwe plaats:"))
(command pt3)

Het is echter de bedoeling dat "last" over het schem beweegt bij het vastleggen van pt3.
Zoals je elementen ziet bewegen over het scherm bij het move commando.
Kan je dit laatste resultaat bereiken met Lisp?

[roy_043]

Het is echter de bedoeling dat "last" over het schem beweegt bij het vastleggen van pt3.

Om dat te bereiken kun je gebruikmaken van pause

Code (simpel voorbeeld) Selecteer Uitklappen

(command "move" "last" "" pause pause)

Code (voorbeeld met aangepaste prompts) Selecteer Uitklappen

(setvar "cmdecho" 0)
(setq pt2 (getpoint "\nGeef basispunt: "))
(command "move" "last" "" pt2)
(princ "\nGeef de nieuwe plaats: ")
(command pause)
(setvar "cmdecho" 1)
(princ)

[Vanilla Queen]

hartelijk dank!!!