Is this code OK (defun c:wire-edm () ;; Učitaj Visual LISP ekstenzije (vl-load-com) ;; Funkcija za obradu grešaka (defun wire_err (s) (if (/= s "Function cancelled") (princ (strcat "\nError: " s)) ) (redraw) (if wire_oce (setvar "cmdecho" wire_oce)) (setq *error* olderr...

Where is prroblem. How i can fix it.
Thanks foe answer.

My autolisp for calculate gcode for wire edm don start (defun c:wire-edm () (setq program-number (getint "\nUnesite broj programa (4 cifre): ")) (setq use-r (getstring "\nKoristiti R za lukove? (Da/Ne): ")) (setq use-r (eq (strcase use-r) "DA")) (setq contours (ssget '(...