laufrichtung von Linien umkehren

Fragen und Anmerkungen zu den Lispprogrammen von CADwiesel
Antworten
Benutzeravatar
CADwiesel
Administrator
Beiträge: 488
Registriert: Mo 11. Jun 2018, 13:07
Kontaktdaten:

laufrichtung von Linien umkehren

Beitrag von CADwiesel » Mo 17. Okt 2005, 12:27

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)
  )
Gruß
BildCADwiesel
Besucht uns im CHAT

Antworten