;;;
;;;   Vynulovani Z souradnince u car
;;;
;;;   Lisp opravujici z souradnici na nula
;;;
;;;   (c) Jiri Svoboda          v 1.0
;;;
;;; Pokud se vám program hodí napište mi na jiri.svoboda@seznam.cz
;;; budu rád, když zjistím, že jej někdo další používá.
;;; Pokud máte nějaké připomínky pošlete je také - zpětná vazba vítána.
;;;

(defun c:nuluj ()
  (princ "Vyber cary:")
  (setq cary (ssget '((0 . "LINE"))))
  (setq cnt 0)
  (repeat (sslength cary)
    (setq cara (entget (ssname cary cnt)))
;    (princ cara)
;    (princ "\n")
    (setq zacatek (cdr (assoc 10 cara)))
;    (princ zacatek)
;    (princ "\n")
    (setq konec (cdr (assoc 11 cara)))
;    (princ konec)
;    (princ "\n")
    
    
    (setq konec (list (car konec) (cadr konec) '0))
    (setq zacatek (list (car zacatek) (cadr zacatek) '0))
;    (princ konec)
;    (princ "\n")
	
	  
    
    (setq cara (subst (cons 10 zacatek) (assoc 10 cara) cara))
    (setq cara (subst (cons 11 konec) (assoc 11 cara) cara))
    
    (entmod cara)
    (entupd (cdr (assoc -1 cara)))
    (setq cnt (1+ cnt))
  )
  (princ "Hotovo")
  (princ)
)