Ich habe mal eine Routine geschrieben die den Text um 180 ° dreht (Auch für eine Auswahl von elementen)
;; Bemassung um 180° drehen
(defun c:bmdr ( / alt_err owahl ssl co we ssr)
(defun bug_err (s) ; Errorroutine
(if (/= s "Funktion abgebrochen")
(if (= s "quit / exit abbrechen")
(princ)
(princ (strcat "\nFehler: " s))
)
)
(setq *error* alt_err) ;Reset Errorroutine
(princ)
)
; ** Hauptroutine **
(setq alt_err *error* *error* bug_err)
(setq owahl (ssget '((0 . "DIMENSION"))))
(setq ssl (sslength owahl)
ssr 0)
(if (null owahl)
(progn
(princ "/nFEHLER: Keine Elemente gewählt")
(exit)
)
)
(print ssl)
(princ " Elemente gefunden. ")
(terpri)
(terpri)
(setq co 51)
(while (> ssl 0)
(setq temp (ssname owahl (setq ssl (1- ssl))))
(setq ed (entget temp))
(if (= (cdr (assoc 51 ed)) 0)
(setq we 3.1415926)
(setq we 0)
)
(setq ed (subst (cons co we) (assoc co ed) ed))
(if (not (entmod ed))
(setq ssr (1+ ssr))
)
)
(if (> ssr 0)
(progn
(princ ssr)
(princ " Elemente zurückgewiesen !!!")
)
)
(setq *error* alt_err)
(princ)
)
gruß
Dietmar
------------------
mfg Dietmar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP