Magdalena
Baranowska
Student,
Politechnika
Poznańska
Temat: autolisp
Hej mam krotki programik ktory powinien rysowac prostokąt, kiedy sprawdzam go w visuallisp w konsoli uzyskuje komunikat "zbyt mało argumentów" czy ktoś moze mi powiedziec gdzie jest bład?(defun C:prog01 (/p1 p2 p3 p4)
(initget 1)
(setq p1 (getpoint "\nPierwszy wiercholek:"))
(initget 1)
(setq p3 (getpoint p1 "\nPrzeciwlegly wierzcholek:"))
(setq p2 (list (car p3) (cadr p1)))
(setq p4 (list (car p1) (cadr p3)))
(command "_rectangle" p1 p3)))
)