Freut, mich, dass dir das Lisp gefällt und gute dienste leistet
um den Linientyp nicht mehr zu verstellen äneder folgende Zeile:
(defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN)
(if (=(type OBJEKT) 'ENAME) ; Parameter o.k. ?
(progn
(setq OBJEKTDATEN (entget OBJEKT)) ; Objektdaten auslesen
(if (assoc 8 OBJEKTDATEN)
(progn
(if (=(strcase(cdr(assoc 0 OBJEKTDATEN))) "INSERT") ; Blockreferenzen auf "0"
(setq OBJEKTDATEN(subst(cons 8 "0")(assoc 8 OBJEKTDATEN)OBJEKTDATEN))
)
(progn
;; *************** hier ändern, was du willst *************************************** ;;
(OBJEKT_ALLGEMEIN_SET OBJEKT 256 ; Farbe
nil ; Layer
nil ; Linientyp <- Hier!!
nil ; Linientypfaktor
"ByLayer" ) ; Linienstärke
;; *************** hier ändern, was du willst *************************************** ;;
)
)
)
)
)
)
------------------
- Thomas -
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP