TunzaGibbo Posted January 23, 2019 Author Share Posted January 23, 2019 I have another question regarding this routine. This routine works perfect and ends perfect when I press "ESCAPE" But it won't end when I press "ENTER" Is there some code I need to the 4th last line? (defun c:conlob (/ *error* Pt1 Pt2 obline) (defun *error* (x) (resetoldvar) (princ "\n*Cancel*") ) (savevartoold) (constructionlayer) (setq Pt1 (getpoint "\nPick First Point:") Pt2 (getpoint Pt1 "\nPick Second Point:")) (command "_xline" Pt1 Pt2 "") (setq obline (entlast)) (while 1 (command "_copy" obline "" Pt2 pause (command))) (resetoldvar) (princ) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.