break into rectangle help...

[leonucadomi]

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

[devitg]

@leonucadomi, please upload sample dwg . before and after 

 

 

[devitg]

@leonucadomi Instead to make the rectangle , you can do a  Window or Cross selection , and erase windowed or crossed entities.

 

Window from down left to up right 

or cross from upright to left  down 

 

 

Edited May 25 by devitg
add comment

[leonucadomi]

what I want is to break the lines and delete what remains inside that rectangle

[nod684]

This can be done by EXTRIM command in the Expresstools if I understand your concern correctly.

[BIGAL]

So a break lines with a gap size ? Pick a point say top line use perp pick bottom line then gap, all done. Is that what you want ? Gap is based on pick point so say MID could be used for a left and right of middle of a line.