(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?
Citaat van: Vanilla Queen op zo 17 01 2010, 11:01:24Het is echter de bedoeling dat "last" over het schem beweegt bij het vastleggen van pt3.
Om dat te bereiken kun je gebruikmaken van
pause(command "move" "last" "" pause pause)(setvar "cmdecho" 0)
(setq pt2 (getpoint "\nGeef basispunt: "))
(command "move" "last" "" pt2)
(princ "\nGeef de nieuwe plaats: ")
(command pause)
(setvar "cmdecho" 1)
(princ)
hartelijk dank!!!