CADwiesel's Forum

Code: Alles auswählen

(defun C:l-reverse ( / )
  (defun pl-reverse (enam /)
    (if(=(cdr(assoc 0(entget enam)))"LINE")
      (progn
        (setq elist(entget enam))
        (setq elist(subst (cons 10(cdr(assoc 11 elist)))(setq gc10(assoc 10 elist))elist)
              elist(subst (cons 11 (cdr gc10))(assoc 11 elist)elist)
              )
        (entmod elist)
        )
      )
    )
  (if(setq elem (entsel))
    (pl-reverse(car elem))
    )
  (princ)
  )