Topic: Delete line into layouts model

[Fabricio28]

Hello all,

How are you?

I'm deleting lines in the layouts model manually. But I have several files to do that.

And I'd like to ask for help, maybe a lisp would be nice.

I'm attaching a file to explain better my task.
That simple line that I want to erase is the same position (coordinate) to all files.

Thank in advance

[ronjonp]

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ s)
2.   (if (setq s (ssget "_x" '((0 . "lwpolyline") (90 . 2) (410 . "~Model"))))
3.     (foreach a (mapcar 'cadr (ssnamex s))
4.       (if (vl-some '(lambda (b) (equal '(0.151038 173.516) (cdr b) 1e-3))
5.                    (vl-remove-if-not '(lambda (c) (= (car c) 10)) (entget a))
6.           )
7.         ;; Entdel does not work...
8.         (vla-delete (vlax-ename->vla-object a))
9.       )
10.     )
11.   )
12.   (princ)
13. )
14. (vl-load-com)

[Fabricio28]

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ s)
2.   (if (setq s (ssget "_x" '((0 . "lwpolyline") (90 . 2) (410 . "~Model"))))
3.     (foreach a (mapcar 'cadr (ssnamex s))
4.       (if (vl-some '(lambda (b) (equal '(0.151038 173.516) (cdr b) 1e-3))
5.                    (vl-remove-if-not '(lambda (c) (= (car c) 10)) (entget a))
6.           )
7.         ;; Entdel does not work...
8.         (vla-delete (vlax-ename->vla-object a))
9.       )
10.     )
11.   )
12.   (princ)
13. )
14. (vl-load-com)

Hi my friend Ron,

Thank you very much. I'm very happy!!!
Worked like a charm.

You helped me a lot.

Fabrício

[ronjonp]

Glad to help