leonucadomi Posted May 25 Share Posted May 25 hello people: can someone help me to improve this or if there is another way. please. the purpose is to create a rectangle and delete everything that is inside and then delete the rectangle. I would like to just create the rectangle and delete what is inside and at the end the rectangle disappears (defun c:test ( / ) (command "_rectangle" "\\" "\\") (setq ent1 (entsel)) (setq pt1 (getpoint)) (if (cond (etrim) (T (load "extrim.lsp" "") etrim) ) (etrim (car ent1) pt1) ) (setvar "HIGHLIGHT" 1) (command "_erase" ent1 "") ) any help is good Quote Link to comment Share on other sites More sharing options...
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.