---

Hallo an alle,
Habe ein Problem mit zugesannten Plänen unserer Architekten.
Gibt es eine Möglichkeit zugesannte Pläne von Architekten komplett in eine graustufe zu setzen, damit ich diesen dann als X-Ref in meine Pläne einfügen kann.
Pläne enthalten Bemaßungen, Blocks mit Attributen, Linien, Schraffuren....
Es sind verschiedenste Layer enthalten, die aber bei der Farbeinstellung nicht von Layer stehen sondern verschiedenste Farben vergeben sind.
Am besten wäre ein Lisp der auf wenige Arbeitsschritte den Plan z.B. in grau (8) setzt.
Ich arbeite mit ACAD 2006.
Bitte um eure Mithilfe
Gruß Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Thema war schon öfter .. hier mal ein Link zu einem anderen thread: http://ww3.cad.de/foren/ubb/Forum54/HTML/021596.shtml#000001

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo
Habe leider noch nichts passendes gefunden.
Bin neu hier.

Vielleicht kann mir jemand ein LISP dafür hier bereitstellen das ich dann über
EXTRAS-ANWENDUNGEN in ACAD 2006 starten kann.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was ganz einfaches für Indexfarben.

(defun c:chg_col_all ( / farbe)
  (vl-load-com)
  (setq farbe (acad_colordlg 0 t))
  (vlax-for block
  (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object))
  )
    (vlax-for obj block
      (vla-put-color obj farbe)
    )
  )
  (princ)
)

Oh, grade gesehen 2006.
Probier mal, sollte aber gehen.

------------------
Geht nicht, gibts nicht

Gruß
Andreas
http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 07. Sep. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

Kenne mich mit den codes leider nicht aus, was muss ich damit machen?

Am besten wäre es, wenn du mir eine lisp-Datei einstellen kannst die ich dann im ACAD im Menü Extras Anwendungen starten kann.

Wäre lib wenn du mir da weiiterhelfen kannst.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Karl,

1) den CODE in NOTEPAD einfügen und die Datei mit Endung *.LSP speichern.
2) Die Datei aus dem Explorer in das AutoCAD-fenster ziehen
3) Befehl CHG_COL_ALL aufrufen

mfg Roman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, hat geklappt.

Das einzige Problem dabei ist, dass die Bemaßung kaputt geht, dass heißt, dass die Hilfslinien bis zum Einfügepunkt verlängert werden.

Gibt es dafür vielleicht auch eine Lösung?

Grüße
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Stell mal ne Zeichnung mit so ner Bemaßung hier rein, ich schau mal nach.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

Freut mich, dass du dich ufür mein Problem annimmst und mir hoffentlich auch weiterhelfen kannst.

Leider läßt sich der Plan (0,98MB) nicht hochladen.
Zeigt anstatt einer ZIP-File immer ein txt-File und dann sagt er immer ungültig.
Vielleicht kannst du mir ja auch so weiter helfen.

- kompletter Plan soll in grau farbe dargestellt werden.
  am besten wäre, wenn alle Layer auf von Layer dann stehen würden, damit man in der Layerstruktur noch etwäige Layer auf eine bestimmte Farbe stellen kann.

- In den Plänen sind auch Blöcke mit Attributen enthalten, die ebenfalls wenn geht auf von Layer stehen sollten.

Somit kann ich erreichen, dass in der Layerstruktur zb. alles auf die Farbe 8 setze.

Da ich das auch für andere Projekte benötige, wäre es schön wenn daa so funktionieren könnte.

Kannst du mir auch weiterhelfen, möchte gerne das programmieren für LISP erlernen. Gibt es da gute Bücher dafür und welche? Ist es leicht das selbst zu erlernen?

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Schau mal ob das was ist für dich.
http://www.theswamp.org/index.php?topic=35168.msg404157#msg404157

------------------
Heinz 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Leider nein,

Hoffe dass mir Andreas vielleicht noch weiterhelfen kann.

Freut mich dass sich so viele Leute um mein Problem bemühen.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Dann schau mal das an kannst alles umfärben.

http://www.cadtutor.net/forum/showthread.php?533-Lisp-colour-change-for-all-layers-and-blocks/page2&highlight=colorx

------------------
Heinz 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz

Funktioniert bei mir leider nicht, oder ich mache was falsch

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was machst du genau ?

------------------
Heinz 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz

Das wäre genau das richtige.

Habe es jetzt nochmals probiert und hat dann einmal funktioniert.
Habe eine LISP-Datei erstellt und in den Extras Anwendungen geladen und in der Startgruppe in der man die LISP-Datei generell mit dem Start von ACAD startet gelegt.

Als es funktioniert hat, wurde alles auf von Layer gestellt, aber die Hilfslinien der Bemaßung wurden verändert. Sie wurden verlängert bis zum Einfügepunkt.

Hoffe auf eine Hilfe, in dem das nicht mehr geschieht.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz

Verwendeter LISP

(defun c:colorA (/ adoc blocks color ins lays ss lst *error*)
;;; Color Area - - Changes in the color of selected items in the area
;;;http://www.cadtutor.net/forum/showthread.php?t=533&page=8
;;;get from  Alaspher  http://forum.dwg.ru/showthread.php?t=1036
;;; http://forum.dwg.ru/showpost.php?p=166220&postcount=18
(defun *error* (msg)(bg:layer-status-restore)(princ msg)(princ))
  (setq adoc  (vla-get-activedocument (vlax-get-acad-object))
        blocks (vla-get-blocks adoc)
        lays  (vla-get-layers adoc)
  ) ;_ end of setq
  (if (and (setq color (acad_colordlg 256))
          (setq ss (ssget))
          (progn
            (repeat (setq ins (sslength ss)) ;_ end setq
              (setq lst (cons (ssname ss (setq ins (1- ins))) lst))
            ) ;_ end repeat
            lst
          ) ;_ end of progn
      ) ;_ end of and
    (progn
      (vla-startundomark adoc)
      (bg:layer-status-save)
      (foreach ins lst
        (setq ins (vlax-ename->vla-object ins))
        (if (= (vla-get-objectname ins) "AcDbBlockReference")
          (if (vlax-property-available-p ins 'path)
            (princ "\nThis is external reference! Skip.")
            (progn
              (_pl:block-color blocks ins color lays)
              (Change-Object-Color ins color)
            )
          ) ;_ end of if
          (Change-Object-Color ins color)
        ) ;_ end of if
       
      ) ;_ end of repeat
      (vla-regen adoc acallviewports)
      (bg:layer-status-restore)
      (vla-endundomark adoc)
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

(defun _pl:block-color (blocks ins color lays / lay layfrz layloc)
  (vlax-for e (vla-item blocks (vla-get-name ins))
    (setq lay (vla-item lays (vla-get-layer e)))
    (if (= (vla-get-freeze lay) :vlax-true)
      (progn (setq layfrz (cons lay layfrz))
            (vla-put-freeze lay :vlax-false)
      ) ;_ end of progn
    ) ;_ end of if
    (if (= (vla-get-lock lay) :vlax-true)
      (progn (setq layloc (cons lay layloc))
            (vla-put-lock lay :vlax-false)
      ) ;_ end of progn
    ) ;_ end of if
    (vl-catch-all-apply (function vla-put-color) (list e color))
    (if (and (= (vla-get-objectname e) "AcDbBlockReference")
            (not (vlax-property-available-p e 'path))
        ) ;_ end of and
      (_pl:block-color blocks e color lays)
    ) ;_ end of if
    (foreach i layfrz (vla-put-freeze i :vlax-true))
    (foreach i layloc (vla-put-lock i :vlax-true))
  ) ;_ end of vlax-for
) ;_ end of defun
(defun Change-Object-Color (Obj Color  / txtstr tmp txt)
;;;========================================================================
;;;_color object start
(if (and (vlax-write-enabled-p Obj)
(vlax-property-available-p Obj 'Color)
    ) ;_ end of and
  (vla-put-Color Obj Color)
) ;_ end of if
(if (and (vlax-write-enabled-p Obj)
(vlax-property-available-p Obj 'TextString)
    ) ;_ end of and
  (progn
    (setq txtstr
  (if (vlax-method-applicable-p Obj 'FieldCode)
      (vla-FieldCode Obj)
      (vlax-get-property Obj 'TextString))
  )
    (setq tmp 0)
    (while (setq tmp (VL-STRING-SEARCH "\\C" txtstr tmp))
      (setq txtstr
      (vl-string-subst
(strcat (substr txtstr (1+ tmp) 2)(itoa Color) ";")
(substr txtstr (1+ tmp) (- (1+ (VL-STRING-SEARCH ";" txtstr tmp)) tmp))
txtstr
tmp)
    )
      (setq tmp (+ tmp 3))
      )
    (vla-put-Textstring Obj txtstr)
    )
) ;_ end of if
(if (and (vlax-write-enabled-p Obj)
(= (vla-get-ObjectName obj) "AcDbBlockReference")
(= (vla-get-HasAttributes obj) :vlax-true)
    ) ;_ end of and
  (foreach att (vlax-safearray->list
(vlax-variant-value (vla-GetAttributes obj))
      ) ;_ end of vlax-safearray->list
    (if (and (vlax-write-enabled-p att)
    (vlax-property-available-p att 'Color)
) ;_ end of and
      (vla-put-Color att Color)
    ) ;_ end of if
  ) ;_ end of foreach
) ;_ end of if
        (if (and (vlax-write-enabled-p Obj)
  (wcmatch (vla-get-Objectname Obj)  "*Dimension*,AcDb*Leader")
    ) ;_ end of and
  (progn
    (vl-catch-all-apply 'vla-put-ExtensionLineColor (list Obj acByBlock)) ;_Color
    (vl-catch-all-apply 'vla-put-TextColor (list Obj acByBlock)) ;_Color
    (vl-catch-all-apply 'vla-put-DimensionLineColor (list Obj acByBlock));_Color
    (if (vlax-property-available-p Obj 'LeaderLineColor)
      (progn
(setq tmp (vla-getinterfaceobject(vlax-get-acad-object)(strcat "AutoCAD.AcCmColor."
(substr (getvar "ACADVER") 1 2))))
(vla-put-colorindex  tmp  acByBlock) ;_Color
(vl-catch-all-apply 'vla-put-LeaderLineColor (list Obj tmp))
)
      )
            (if (and (vlax-write-enabled-p Obj)
(vlax-property-available-p Obj 'TextString)
                ) ;_ end of and
                (progn
                  (setq txtstr
  (if (vlax-method-applicable-p Obj 'FieldCode)
      (vla-FieldCode Obj)
      (vlax-get-property Obj 'TextString))
  )
                  (setq txtstr
                  ((lambda (mtext / text str)
                    (setq Text "")
                    (while (/= Mtext "")
                      (cond
                        ((wcmatch(strcase (setq Str (substr Mtext 1 3)))"{\\C") ;_ end of wcmatch
                          (setq Mtext(substr Mtext (+ 2 (vl-string-search ";" Mtext)))) ;_ end of setq
                        )
                        ((wcmatch(strcase (setq Str (substr Mtext 1 2)))"\\C")
                          (setq Mtext(substr Mtext (+ 2 (vl-string-search ";" Mtext))))
                        )
                        ((wcmatch(strcase (setq Str (substr Mtext 1 2))) "\\[{}]")
                          (setq Text  (strcat Text (substr Mtext 1 2))
                                Mtext (substr Mtext 3)
                          ) ;_ end of setq
                        )
                        ((wcmatch (substr Mtext 1 1) "[{}]")
                          (setq Mtext (substr Mtext 2))
                        )
                        (t
                          (setq Text  (strcat Text (substr Mtext 1 1))
                                Mtext (substr Mtext 2)
                          ) ;_ end of setq
                        )
                      ) ;_ end of cond
                    ) ;_ end of while
                    text
                  ) ;_lambda
                    txtstr
                  )
                        )
                  (vlax-put-property Obj 'TextString (strcat "{\\C" (itoa color) ";" txtstr "}"))
                );_progn
              )
           
  ) ;_ end of progn
) ;_ end of if
;;;_color object end
;;;========================================================================
) ;_ end of defun
(defun bg:layer-status-restore ()
    (foreach item *BG_LAYER_LST*
      (if (not (vlax-erased-p (car item)))
        (vl-catch-all-apply
          '(lambda ()
            (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
            (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))))
            ) ;_ end of lambda
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of if
      ) ;_ end of foreach
    (setq *BG_LAYER_LST* nil)
    ) ;_ end of defun

  (defun bg:layer-status-save ()
    (setq *BG_LAYER_LST* nil)
    (vlax-for item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
      (setq *BG_LAYER_LST* (cons (list item
                                  (cons "freeze" (vla-get-freeze item))
                                  (cons "lock" (vla-get-lock item))
                                  ) ;_ end of cons
                            *BG_LAYER_LST*
                            ) ;_ end of cons
            ) ;_ end of setq
      (vla-put-lock item :vlax-false)
      (if (= (vla-get-freeze item) :vlax-true)
      (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false))))
      ) ;_ end of vlax-for
    ) ;_ end of defun
(progn
  (princ
    "\ColorA - Changes in the color of selected items in the area"
  ) ;_ end of princ
  (princ)
) ;_ end of progn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo
Lade von der Seite die ich hier reingestellt habe das Lisp ColorX herrunter. (ist etwas weiter unten)
Und versuch das nochmal.

------------------
  Heinz  

P.S  DAS Lisp würde ich hier nicht reinstellen bekommst sonst Ärger.

[Diese Nachricht wurde von Dober Heinz am 09. Sep. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Upps
Wußte ich leider nicht.

Danke für den Hinweis.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Im letzten AutoCAD-Magazin (Heft 6) wurde der erste Teil eines Artikels von V. Azarko (VVA) und V. Svet zur "Hintergrundaufbereitung" abgedruckt. Vermutlich wird im Heft 7 auch der Quellcode veröffentlicht.
Vielleicht hilfts Dir
Jochen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wo erhalte ich diese Zeitschrift?
Kann ich diese in einem normalen Zeitschriftenhandel kaufen?

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Also ich habe das mal getestet.

dwg öffnen (die XREF natürlich)
Das Lisp Colorx in die Zeichnung ziehn.
Aufrufen mit ColorX, Farbe wählen.
Es wird alles auf die Farbe gelegt was ich gewählt habe.
Xref Speichern fertig.
Dann in der Zeichnung wo die Xref eingfügt würde die Xref neuladen, und fertig.
Also bei mir hat das super funktioniert.

------------------
  Heinz  

[Diese Nachricht wurde von Dober Heinz am 10. Sep. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Schaffe es nicht das ColorX herunter zu laden.
Ich hatte einen anderen LISP getestet gehabt der nicht funktioniert.

Wie schaffe ich es die ColorX herunterzuladen?

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

du hast ein PM bekommen.

------------------
Heinz 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz

Danke funktioniert bis auf die Bemaßung.

Hilfslinien der Bemaßung verändern sich aber trotzdem in der Zeichnung (werden länger bzw sind über die ganze Zeichnung wagrecht bzw senkrecht durchgezogen und man sieht von der Zeichnung nichts mehr ausser der Hilfslinienwirrwarr)

Gruß Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bild1.png

Hallo

Dann würde ich sagen Bem ausblenden.
Sonst weis ich auch nichts mehr tut mir leid.
Oder beim schreiber dieses Lisp melden.
Oder die Maßstabsliste?
------------------
   Heinz   

[Diese Nachricht wurde von Dober Heinz am 10. Sep. 2011 editiert.]

[Diese Nachricht wurde von Dober Heinz am 10. Sep. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz,

Führe folgende Aufgabe jetzt durch dass die Bemaßung passt.

mit Schnellauswahl alle Bemaßungen auswählen
Unter Ändern Eigenschaften die Hilfslinie auf Fix stellen und bei Hilflinie feste Länge das Maß auf einen kleineren Wert einstellen damit die Hilflinien verkürzt werden.

Somit habe ich jetzt den Plan so wie ich Ihn benötige.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz

fast vergessen,

danke für deine Mithilfe.

Und auch allen anderen danke.

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nachtrag:
Das AutoCAD-Inventor Magazin gibts z.B. über http://www.autocad-magazin.de/
Ein schönes Restwochenende
Jochen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Karl,
ich hab mir deinen Plan mal angeschaut.

Blöder Plan.

Ich hab die Bemaßungsobjekte mal aus der Bearbeitung rausgenommen.
Durch dass die Objekte in der Bemaßungsblockdefinition (was für ein Wort) bearbeitet werden, wird die Bamaßung trotzdem umgefärbt.
Fürs Erste sollte das gehn.

(defun c:chg_col_all (/ farbe)
  (vl-load-com)
  (setq farbe (acad_colordlg 0 t))
  (vlax-for block
  (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object))
  )
    (vlax-for obj block
      (if (/= (substr
      (vl-list->string
(reverse (vl-string->list (vla-get-objectname obj)))
      )
      1
      9
    )
    "noisnemiD"
  )

(vla-put-color obj farbe)
      )
    )
  )
  (command "regen")
  (princ)
)

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So, und jetzt noch die Attribute dabei:

(defun c:chg_col_all (/ farbe)
  (vl-load-com)
  (setq farbe (acad_colordlg 0 t))
  (vlax-for block
  (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object))
  )
    (vlax-for obj block
      (if (/= (substr
(vl-list->string
  (reverse (vl-string->list (vla-get-objectname obj)))
)
1
9
      )
      "noisnemiD"
  )
(progn
  (if (and (vlax-property-available-p obj "hasattributes")
  (= (vla-get-hasattributes obj) :vlax-true)
      )
    (mapcar
      '(lambda (att)
(vla-put-color att farbe)
      )
      (vlax-safearray->list
(vlax-variant-value
  (vla-getattributes obj)
)
      )
    )
  )
  (vla-put-color obj farbe)
)
      )
    )
  )
  (command "regen")
  (princ)
)

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

Vielen Dank, das ist genau das was ich benötigt habe.
Gibt es für die LISP-Programmierung Bücher oder Unterlagen mit denen man sich das selber beibringen kann?

Gruß
Karl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja da gibt es, genauso wie Suchmaschinen 

Lisp lernen Thread

Und wenn du dann angefangen hast und konkrete Probleme bei Übungen hast suchst du genau in dem
verlinkten Board : Autodesk / Lisp  

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

es tut mir leid, dass ich ein so altes Thema wieder aus der Vergessenheit hole, aber ich habs nicht besser/neuer gefunden.
Ich bin leider auch nicht fit mit AutoCAD, muss es aber gelegentlich nutzen (Auftraggeber). Ich habe dazu das oben angegene List verwendet und es hat immer gut geklapt.
Jetzt wurde aber mein AutoCAD 2012 entfernt und ich muss mit AutoCAD LT2018 arbeiten. Und hier geht es nicht mehr. Bin ich zu doof oder funktioniert das wegen LT nicht mehr? Ich hoffe mir kann einer was dazu sagen. Ich krieg hier sonst echt noch graue Haare deswegen.

Gruß aus Bochum und Danke im Voraus.

------------------
Schon wieder Regen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lispprogramme gehen in "Autocad LT" nicht !
mfg Heinz

------------------
Heinz 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1. "wirklich" Umfärben innerhalb einer Datei: Befehl: VONLAYEREINST
   

2. Bei XRef ist dies in 2018 nicht nötig, man nutzt die Systemvariable: XREFOVERRIDE
  Diese behandelt die Objekte in der Xref als wären diese mit Farbe  "VonLayer" ausgestattet.

  Nun kann man die Farben der Layer XRef-ändern

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmm...
Tjcha , dann wird der Tag ja immer besser
Trotzdem Danke für die superschnelle Antwort.

------------------
Schon wieder Regen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von fuszabtreter77:
hmm...
Tjcha , dann wird der Tag ja immer besser 
Trotzdem Danke für die superschnelle Antwort.

---

Damit er noch besser wird: Denke mal daran was du sonst noch an "Codeschnipseln" genutzt hast bisher
oder in Zukunft hättest nutzen können.

UND: Du hast nicht nur heute die LT-Version, hast also noch viel länger bzw. öfters etwas davon 

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da bin ich ja froh, dass ich da nicht so oft dran muss.
Aber danke für den Tip mit VONLAYEREINST.   das hat bei mir nach 2-3 versuchen und einer Tasse starkem Kaffe auch 98% auf grau gesetzt.
Nur die Maßketten und einige wenige Besschriftungen musste ich noch mal anpacken.
Für heute kann ich also damit leben. 

------------------
Schon wieder Regen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von cadffm:

Damit er noch besser wird: Denke mal daran was du sonst noch an "Codeschnipseln" genutzt hast bisher
oder in Zukunft hättest nutzen können.

---

Seelig sind die geistig Armen  Das war das einzige lisp, dass ich hatte.
Mag sein, dass es nur die spitze von Eisberg war...
Aber Stand jetzt sitze ich mit dem Cocktail in der Hand ganz oben am Eisberg und genieße die Aussicht.

------------------
Schon wieder Regen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP