thicknees 0 in lines ...help

[leonucadomi]

 

hello:

some routine to change all the lines of a drawing to thicknees 0?

 

thanks

[marko_ribar]

(defun c:linesthickness-0 ( / s i e ex )
  (prompt "\nSelect LINE entities...")
  (setq s (ssget "_:L" (list (cons 0 "LINE"))))
  (repeat (setq i (sslength s))
    (setq e (ssname s (setq i (1- i))))
    (if (assoc 39 (setq ex (entget e)))
      (entupd (cdr (assoc -1 (entmod (subst (cons 39 0.0) (assoc 39 ex) ex)))))
    )
  )
  (princ)
)

 

[StevJ]

This one works well for me

(DEFUN C:PLW0 (/ ss1)  ;; Set PolyLine Width to 0.0
  (setq ss1 (ssget ":L"))
  (command "_.PEDIT" "_M" ss1 "" "_W" 0.0 "")
  (princ)
)

 

Steve

[mhupp]

Autolisp way

 

(defun C:PL0 (/ ss)  ;; Set PolyLine Width to 0.0
  (setq ss (ssget ":L"))
  (foreach poly (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS))))
    (vla-put-lineweight poly 0)
  )
  (princ)
)

 

[pkenewell]

8 hours ago, mhupp said:

Autolisp way

 

(defun C:PL0 (/ ss)  ;; Set PolyLine Width to 0.0
  (setq ss (ssget ":L"))
  (foreach poly (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS))))
    (vla-put-lineweight poly 0)
  )
  (princ)
)

 

For those who don't know the basics of Visual LISP: don't forget to add (vl-load-com) to the top of the routine.

[leonucadomi]

THANKS ALL MASTERS