;Nastaví jednotnou šířku všech entit typu LWPOLYLINE
(DEFUN C:PLN(/ sset1 pocet index en1 xscale yscale zscale)
  
  (setq newwidth 0) ;Nastavení nové šířky na 0
  
  ;Vyber vsech entit typu LWPOLYLINE
  (setq sset1
  (ssget "X"
    (list (cons 0 "LWPOLYLINE"))
  ))
  (setq pocet (sslength sset1))
  (setq index 0)

  ;Úprava na novou šířku
  (repeat pocet  
    (setq en1 (entget (ssname sset1 index)))
    (setq index (+ index 1))
	(setq en1 (subst (cons 40 newwidth) (assoc 40 en1) en1))
	(setq en1 (subst (cons 41 newwidth) (assoc 41 en1) en1))
	(setq en1 (subst (cons 43 newwidth) (assoc 43 en1) en1))
    (entmod en1) ; Modifikace entity
  )
  
  (command "_re") ; Regenerace výkresu
  
  (princ "\nNastaveni nove sirky LWPOLYLINE: Hotovo.")
  (princ)
)