So, habe das nun auch mit den Layer hinbekommen:
(In diesen Fall ist der Layer immer schon da)
Layer neu setzen funktioniert mit:
(defun he-layerstiftstaerke (WERTE / OBJEKT OBJEKTDATEN)
(setq OBJEKTDATEN (entget (tblobjname "LAYER" (cdr (assoc "NAME" WERTE))) '("*")))
(entmod (list (assoc -1 OBJEKTDATEN)
'(0 . "LAYER")
(assoc 330 OBJEKTDATEN)
(assoc 5 OBJEKTDATEN)
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
(cons 2 (cdr(assoc "NAME" WERTE)))
(assoc 70 OBJEKTDATEN)
(cons 62 (cdr(assoc "FARBE" WERTE)))
(assoc 6 OBJEKTDATEN)
(assoc 290 OBJEKTDATEN)
(cons 370 (cdr(assoc "STÄRKE" WERTE)))
)
)
)
Bedienung funktioniet mit:
(he-layerstiftstaerke (list (cons "NAME" "0")
(cons "STÄRKE" 25)
(cons "FARBE" 1)
(cons "PLOTSTIL" "Style_7")
)
)
Jetzt meine Frage. Wie bekomme ich den Plotstil unter?
Mit (entget (tblobjname "LAYER" "0")) wird der ja auch nicht angezeigt. Natürlich ohne command bitte. Danke!
------------------
Martin
Viele Grüße aus dem schönen Münsterland!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP