lisp that can be used to delete points on multiple lines

[mik501_]

I'm looking for a lisp that can be used to delete points on multiple lines at the same time  

I don't use qucik select because within the actual work, there are scores that have the same color. And I don't want to delete it. I want to delete only the line.

.

[ВeekeeCZ]

Post 2 dwgs, states before and after.

[mik501_]

ok

[ВeekeeCZ]

So you need to remove lines (only LINEs, not plines or arcs) that have any point on them. Or remove lines that have (at least) 2 points?

[mik501_]

I mean, I want to delete 2 point on the line. no delete line

[ВeekeeCZ · Accepted solution]

Ohh, sure.

(vl-load-com)

(defun c:RemovePointsOnLine ( / s l n c)

  (if (and (princ "\nSelect points,")
	   (setq s (ssget "_:L" '((0 . "POINT"))))
	   (setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
	   (princ "\nSelect points,")
	   (setq l (ssget '((0 . "LINE"))))
	   (setq l (vl-remove-if 'listp (mapcar 'cadr (ssnamex l))))
	   (setq n 0)
	   )
    (foreach p s
      (setq c (cdr (assoc 10 (entget p))))
      (if (vl-some '(lambda (e) (equal c (vlax-curve-getclosestpointto e c) 1e-6)) l)
	(progn
	  (entdel p)
	  (setq n (1+ n))))))
  (princ n) (princ " points removed.")
  (princ)
  )

[CADaSchtroumpf · Accepted solution]

An another one! (copy/paste in command line)

((lambda ( / ss n dxf_ent p1 p2 tmp_ss)
  (cond
    ((setq ss (ssget "_X" '((0 . "LINE") (8 . "0") (67 . 0))))
      (repeat (setq n (sslength ss))
        (setq
          dxf_ent (entget (ssname ss (setq n (1- n))))
          p1 (trans (cdr (assoc 10 dxf_ent)) 0 1)
          p2 (trans (cdr (assoc 11 dxf_ent)) 0 1)
        )
        (command "_.zoom" "_object" (cdar dxf_ent) "")
        (setq tmp_ss (ssget "_F" (list p1 p2) '((0 . "POINT") (8 . "0") (62 . 3) (67 . 0))))
        (if tmp_ss (command "_.erase" tmp_ss ""))
        (command "_.zoom" "_previous")
      )
    )
  )
))

[mik501_]

It's great. thank you

[mik501_]

It's great. And it was so fast it was shocking.

[mik501_]

sorry for bothering I have another question. Can we create lines from points? Once the line is created, delete that point. A line is created and passes through the center of point.

[mik501_]

sorry for bothering I have another question. Can we create lines from points? Once the line is created, delete that point. A line is created and passes through the center of point.

[ВeekeeCZ]

If you mean some automated process that identifies all 2 points close enough, replaces them with a line, extends ends to some polyline... if so, you need to post a dwg with larger context.

Or just a simple drawing tool with witch the user selects 2 points, it draws a line and extends ends...

[mik501_]

hi

[ВeekeeCZ]

Those pairs of points, are always 2 m from each other?

[mik501_]

yes 2mm alway

[ВeekeeCZ]

Sorry, no go.

You should start to learn something because that gives you some sort of sense of algorithms. At this point, don't like the amount of assumptions/questions that I would have to make. Good luck, though.

[mik501_]

very very thank you

[pbejse]

---

@mik501_ wrote:

HI THIS DWG.

---

Am i the only one whos' not seeing the drawing file(s)?

[mik501_]

i will update