Leaderboard

(vl-catch-all-apply) is used to catch the error when the user presses Esc during the selection prompt, ensuring NOMUTT is set back to 0.

I know this is an old thread but here it is my fifty cents attempt, I was looking for a created solution but had to complete it, thanks to all ;;; By Isaac A. 20251219 ;;; https://www.cadtutor.net/forum/topic/73414-select-all-points-on-polyline/ ;;; Point on Polyline 'ptopl' (vl-load-com) (defun c:ptopl (/ a b c d dw l oc os) (vla-startundomark (setq dw (vla-get-activedocument (vlax-get-acad-object)))) (setq oc (getvar 'cmdecho) os (getvar 'osmode) ) (setvar 'cmdecho 0) (setvar 'osmode 0) (princ "\nSelect the polylines that touch the points") (setq l (ssget (list (cons 0 "LWPOLYLINE")))) (if l (progn (setq a 0 ) (while (< a (sslength l)) (setq b (entget (ssname l a)) c (append c (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) b))) a (1+ a) ) (setq d (ssget "F" c (list (cons 0 "Point")))) (sssetfirst nil d) ) ) (princ "\nThere are no selected polylines") ) (setvar 'cmdecho oc) (setvar 'osmode os) (vla-endundomark dw) (princ) ) ;;; End ptopl

Are you using AutoCAD 2010? Along with previous suggestions and to add, you can do a lot of cleaning with the WBLOCK @ReMark, best method for true cleaning is to WBLOCK just the selected/visible objects you need, that way some of the things mentioned by @CyberAngel are hopefully not carried to the new drawing. I always start with -EXPORTTOAUTOCAD to clean up objects left by verticals, etc.

One I can think of is to WBLOCK the entire drawing out to a new file name (temporarily) then compare the file sizes.

One option is to xref both drawings into a third, plotting only, drawing. You can then control the layer states, transparency, and draw order of both without affecting the originals. A similar option is to create two viewports, one for each plan. You can change the transparency of the layer your xref is on, and the viewport will inherit it. You still have the option to change layer states and draw order.

Another: (defun c:foo (/ n p s) (if (setq s (ssget '((0 . "LWPOLYLINE")))) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (setq n 0) (while (setq p (vlax-curve-getpointatparam e n)) (entmakex (list '(0 . "POINT") (cons 10 p))) (setq n (+ n 0.5)) ) ) ) (princ) )