Erase specified length of lines in by Script/Lisp

[Emily_83]

Good Afternoon All,

i was wondering if someone here could help me, i have done a search on the web and here trying to find what i am after but have had no luck.

I need to erase a whole heap of lines ranging from about 1.25 to 3 in length, i need to do this in multiple xrefs, just realised you can't use QSELECT in script, and the SSX command does not do the trick either,

does anyone out there have a script/lisp routine that erases the specified length of lines in multiple drawings?

i hope this enough information.

cheers

Emily

[Dadgad]

Are you able to use the FILTER command instead?
Once you have described it sufficiently, make sure you SAVE the filter for
subsequent use.

[Emily_83]

Are you able to use the FILTER command instead?
Once you have described it sufficiently, make sure you SAVE the filter for
subsequent use.

hi Dadgad,

i have not really used the Filter command before, i tried using it earlier, but when i select one of the lines to add in the filter, it does not list it's length, and stince i am unfamiliar with the filter command, i am unsure weather it's going to work or not.

[Tharwat]

Try this ...

(defun c:Test (/ ss i sn l)
  (if (setq ss (ssget "_:L" '((0 . "LINE"))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq l (distance (cdr (assoc 10 (entget sn))) (cdr (assoc 11 (entget sn)))))
      (if (or (eq l 1.25) (eq l 3.0) (and (> l 1.25) (< l 3.0)))
        (entdel sn)
        )
      )
    )
  (princ)
  )

[Emily_83]

Hi Tharwat,

when i run the lisp, prompts me to select objects, and when i click on the line, it does not find it, i even windowed everything in my drawing and it still doesn't select anything,

could it have something to do with the lines being polylines?

[Dadgad]

It is a great tool, very helpful, unfortunately I have been trying to set it up for you too, and failed.
It sounds like a very simple lisp, no doubt someone will soon help you sort it out.

[Emily_83]

Polylines don't have LENGTH.
If you explode a few of them, into LINES, as a test,
no doubt Tharwat's lisp will work.

thanks Dadgad,

the lisp works, however now that i have to explode the Plines, they explode into tiny lines, and also the routine erases other lines that are now the same length since exploding that i don't want erased, if it helps, i really only need all vertical lines erased of the length i specify.

[Dadgad]

Emily I made a huge mistake in my earlier post POLYLINES do have length.
I am guessing (I do not write lisp) that you need to change the "LINE" in Tharwat's
code to "PLINE" .

[Emily_83]

hehe thanks Dadgad, i had a look before using QSELECT, then selecting polyline and saw that it does have the length, i thought it did as i usually use the QSELECT this way

i also changed the "LINE" part of the lisp to "PLINE" but it did not work, might try "PL"

thankyou for helping me i greatly appreciate it.

[Emily_83]

just changed it to "PL" and that does not work either