Leaderboard

2 cents, about a more general error-trapping-wrapping - ;; Reset variables (mapcar 'setvar vars vals) (princ) ) can become: ;; Reset variables (*error* nil) (princ) ) I saw that from Lee Mac, Hence you can do whatever you want within the *error* function definition, except for restoring variables also including EndUndoMark or erasing a temporarily created .dcl file. So that way can be avoided some repetitive code.

Glad to help One thing to note is when using the *error* handler be sure to localize it within your routines: (defun c:vy (/ *error* opry pwy p1y v1y m1y t1y vars vals)

Thank you very much @ronjonp . I really appreciate the hassle in helping me, now the code works perfectly, I have also edited it to not use as many if and use the cond function and the code is cleaner. I need to learn a lot more, but there I go little by little with some routines for my personal use. Error control is something I must learn soon. Your help came to me wonderfully. Thank you.

You were right, it was viewing the drawing in a browser, that was the problem, thank you once again