;;; programma per scambiare le coordinate Y e Z dei punti presenti nel disegno.
;;; copyright: ing. Claudio Granuzzo - agosto 2004
(defun c:Y-Z ()
        (setvar "cmdecho" 0)
        (setq gr(ssget "x" '((0 . "POINT")))) 
	(if gr (progn
        (setq kk 0)
        (repeat (sslength gr)
                (setq punto(entget(ssname gr kk)))
	  	(setq pnew (list
			     (car(cdr(assoc 10 punto))) 	; X
			     (caddr(cdr(assoc 10 punto))) 	; Z
			     (cadr(cdr(assoc 10 punto))) 	; Y
			     ))
                (setq punto(subst (cons 10 pnew) (assoc 10 punto) punto))
                (entmod punto)
                (setq kk(+ kk 1))
        )
	))
  	(princ)
)
(princ "\n <copyright: ing. Claudio Granuzzo> Digitare Y-Z per lanciare il programma!")
(princ)