---

Grundriss.dwg

Hallo Forumgemeinde!

Ist es möglich, nachstehenden Lisp so zu ändern, damit Pläne mit verschachtelten Blöcken und enthaltenen Attributen in grau (Indexfarbe 253) und sämtliche Solidschraffuren (auch in verschachtelten Blöcken) in grau (Indexfarbe 254)umgefärbt werden und die Schraffur Solid auf die unterste Ebene gelegt wird?

Für Eure Hilfe wäre ich sehr dankbar.

(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)
)

Liebe Grüße Karl

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

---

chg_col_all.LSP

1.) Mit reinem Acad geöffnet ist die DWG eine Horror-Datei, kommen bei dir keine Datenfehler zu Tage wenn du PRÜFUNG ausführst   

2.) In der Datei ist kein Attribut vorhanden, daher schlecht zum Testen derselben.

3.) An Blockobjekte und Attribute hast du gedacht, ich denke aber das dir viel mehr die internen Mtext-Formatierungen auf die Füße fallen!

4.) Auch wenn ich ab hier nicht weiter helfe, so interessiert es ggf. andere potentielle Helfer:
Soll in der neuen Version NUR Solid-Schraffur und Attribute bearbeiutet werden, oder doch auch wieder ALLE Objekte?

Das Tool funktioniert doch schon mal ganz gut, ausgenommen der MText-Formazierung, zu der du noch nichts sagtest.
Hier mal ein Anfang, der hilft natürlich nicht wenn du keinen Schimmer hast, ansonsten ist es ein Einstieg in die Erweiterung wie gewünscht:

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

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

---

Hallo Karl

macht das Tool des Altbeitrags keine verschachtelten ?

http://ww3.cad.de/foren/ubb/Forum54/HTML/027970.shtml

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

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

---

Hallo cadffm!

Danke für deine rasche Antwort.

Zu 1) Fehlermeldungen hatte ich bis dato keine erhalten.

Zu 2)In dieser Zeichnung sind leider keine Attribute enthalten sollte aber für andere Pläne enthalten sein.

Zu 3) Diese sollten auch enthalten sein.

Zu 4) Es sollten Alle Objekte bearbeitet werden so dass alles grau ist.

Leider habe ich keine Erfahrung damit, aber vielleicht hat jemand Lust mir da weiter zu helfen.

LG Karl

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

---

Cadwomens Link: Bixi-Lisp behandelt auch MText-Formatierung/Farbzuordnungen - nicht schön, wird aber gehen.
Das habe ich ja in meinem Beispiel nicht drin, auch nicht die Draworder,
abe du sollst ja selbst noch ein wenig zum spielen haben  

Wenn man sich StripMText als Sub erstellt die auch Enames,Handles und Vla-Objekte verarbeiten kann,
dann kann man es auch darüber machen. Scheidet hier aber wohl aus nehmen ich an.

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

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

---

Hallo cadffm!

Bin begeistert, das macht genau das was ich brauche.

Leider färbt es die MTEXTE nicht um.
Hab bereits rumprobiert aber schaffe es nicht dass das klappt.
Hab leider auch keine Erfahrung mit Lisp-programmieren und daran scheitert es auch.

Vielleicht hat jemand Lust dies noch zu ergänzen.
Wäre echt froh und dankbar über jede Hilfe.

Gruß Karl

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

---

Hallo cadwomen!

Das ist richtig, dass dieses verschachtelte blöcke bearbeitet.
Da ich aber die Schraffur Solid eine andere Farbe bekommen soll dass man mehr von den Plänen lesen kann ist das nicht so geeignet.

Gruß Karl

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

---

UH-AC2016-Xreforverride.PNG

Nur zur Ergänzung:
Mit AutoCAD 2016 könnte man sich vermutlich die ganze Programmierung sparen, denn mit der neuen Systemvariablen XREFOVERRIDE (auf 1) kann man bei der Nutzung der DWG als Referenz alle fest zugeordneten Farben mit der Eigenschaft "vonlayer" übersteuern. Das gilt auch für die festen Farbformatierungen in den MTEXTen und verschachtelten Blöcken. Somit lässt sich mit ein paar Layeranpassungen im Projektplan ein einheitlicher Planhintergrund einstellen. Die Schraffuren sollten dann natürlich auf separaten Layern liegen, wenn sie anders eingefärbt werden sollen.

Zur Info: Im Beispiel hab ich den Layer Bemaßung etwas dunkler eingestellt.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Herr Hübner!

Leider bin ich selber nicht im Besitz des ACAD 2016.
habe dies aber bei einem Bekannten ausprobieren können und bin leider nicht zurecht gekommen.
Könnten sie mir da bitte eine genaue Vorgehensweise schreiben, wie das genau funktioniert?

Um mit meinem ACAD die MTEXTE farblich ändern zu können, wäre es schön, wenn mir bitte jemand die Lisp-Datei ändern könnte, dass ich diese auch mit meinem ACAD hinbekommen kann.

LG
Karl

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

---

2016 - Bei einer Systemvariable mit zwei möglichen Werten gibt es wenig zu erklären oder falsch zu machen gibt: AutoCAD-Hilfe zum Thema XREFOVERRIDE

XREFOVERRIDE auf 1 stellen und Datei als XRef anhängen, Funktionalität prüfen.

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

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

---

ich habe mal ein Tool geschrieben Einfarb was das kann.
nur formatierter MText (wo den Texten eigene Farben zugewiesen wurden) wird nicht umgefärbt.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Zitat:

---

Original erstellt von CADwiesel:
ich habe mal ein Tool geschrieben Einfarb was das kann.
nur formatierter MText (wo den Texten eigene Farben zugewiesen wurden) wird nicht umgefärbt.

---

Hallo Cadwiesl!
Danke für deine Hilfe.
Dieses Tool kenne ich bereits aber wie von dir bereits beschrieben werden Mtexte mit zugewiesenen Farben nicht geändert.
Aber genau dieses Problem ist das ich gelöst bräuchte.
Es wäre toll, wenn dies in dem Tool von cadffm (chg_col_all+.LSP) enthalten wäre, denn das funktioniert dank cadffm bereits super.

Für Eure Hilfe wäre ich sehr dankbar

LG
Karl

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

---

Ich habe das Tool auch in einer Weise, das alles geändert wird (Hier). Aber das ist nur eine Testversion die nur für eine Testphase kostenlos ist.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Zitat:

---

Original erstellt von CADwiesel:
Ich habe das Tool auch in einer Weise, das alles geändert wird (Hier). Aber das ist nur eine Testversion die nur für eine Testphase kostenlos ist.

---

Hallo Cadwiesel!

Leider färbt mir dieses Tool die Pläne auch nicht komplett um.
Entweder mache ich etwas falsch oder sind die Pläne so derart komplex dass ich das nicht hinbekomme.

LG Karl

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

---

Einfarb-Kopie.vlx.txt

da sind einige Objekte Fehlerhaft. Damit das Tool da nicht hängen bleibt, habe ich es mal angepasst.
Teste es mal

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Zitat:

---

Original erstellt von CADwiesel:
da sind einige Objekte Fehlerhaft. Damit das Tool da nicht hängen bleibt, habe ich es mal angepasst.
Teste es mal

---

Hallo Cadwiesl!

Habs getestet, aber leider funktioniert das bei mir noch weniger als das vorige.

LG Karl

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

---

  Ich würde zuvor alle Dateien speichern die Wichtig sind, duck&wech.

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

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

---

Zitat:

---

Original erstellt von cadffm:
     Ich würde zuvor alle Dateien speichern die Wichtig sind, duck&wech.

---

Hallo cadffm

Versteh nicht was du meinst oder stehe ich gerade am Schlauch?!?!

LG Karl

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

---

Aufgrund deiner Aussage habe ich den erneuten Versuch von CADwiesel mit deiner Datei getestet, als Dankeschön ist mir Autocad2013 direkt abgeschmiert.
(allerdings ist die DWG auch nicht astrein wie ich oben anmerkte, aber das kann ja auch bei anderen DWGs geschehen, daher ein Wink zum Niemals testen wenn noch ungespeicherte Arbeit offen ist)

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

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

---

Hallo Karl,

für MTexte kannst Du mal nach StripMtext.lsp suchen...

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

---

Das ist hier ja schon erwähnt, aber Stand-alone unbrauchbar (ist doch nur für unverschachtelte Objekte),
das Lisp von CADwiesel sollte funktionieren (die DWG in der was nicht passt bleibt Bixi bisher schuldig).

Der Code oben funktioniert sehr gut, die MTextformatierung und die Anzeigereihenfolge hinzupacken,
auch dazu findet man fertige Bausteine im Netz, fertig.
Wenn man aber mit  Null(?) Lispkenntnis startet bekommt man dies nicht umgesetzt, man verheddert sich im Klammergewirr.

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

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

---

COLORX.lsp

Zitat:

---

Original erstellt von cadffm:
Das ist hier ja schon erwähnt, aber Stand-alone unbrauchbar (ist doch nur für unverschachtelte Objekte),
das Lisp von CADwiesel sollte funktionieren (die DWG in der was nicht passt bleibt Bixi bisher schuldig).

Der Code oben funktioniert sehr gut, die MTextformatierung und die Anzeigereihenfolge hinzupacken,
auch dazu findet man fertige Bausteine im Netz, fertig.
Wenn man aber mit  Null(?) Lispkenntnis startet bekommt man dies nicht umgesetzt, man verheddert sich im Klammergewirr.

---

Hallo cadfm!

Das Tool von CADwiesel (einfarb-kopie.vlx) habe ich mit dem von mir eingestellten Plan (Grundriss.dwg) getestet und da funktioniert es leider nicht.

Das geänderte Tool von dir (chg_col_all+.lsp) wäre genau das was ich benötigen würde, leider färbt dieses die MTexte nicht um.
Da mir selber die Lisp-Kenntnisse fehlen, kann ich es leider auch nicht vervollständigen.

Habe ein Tool bekommen (siehe Anhang)das das alles machen würde, leider öffnet das mir die gesperrten und ausgeblendeten Layer. Die sollte gesperrt und ausgeblendet bleiben, da ich diese nicht umfärben möchte.
Weiters hat dieses Tool nicht die Möglichkeit hinterlegt wie in deinem Tool (chg_col_all+.lsp) das man eine zweite Farbe für die Solid-Schraffur wählen kann und dass diese Schraffur anschließend in den Hintergrund gelegt wird.

Eine Mischung aus diesen Tools wäre super da man dann das erreichen kann was ich dazu benötigen würde.

Vielleicht hat jemand von euch eine Idee dazu und kann mir da weiter helfen.

LG Karl

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

---

Wenn du Ideen und Unterstützung bei der Programmierung bräuchtest, wären wir schon fertig.
Du brauchst aber eine Komplettlösung und die Damen und Herren gehen nicht darauf ein.

Ich habe dir ja auch schon mal was zum nachdenken vie PM gesendet.

So lange mußt du nun warten bis dir jemand die perfekte Lösung fertig präsentiert, die
eigentlich nicht sehr aufwändig ist, wenn man die einzelnen Brocken bereits in der Hand hat.

Das (nicht kostenlose) Tool von CADwiesel (was nicht alles macht was du wünscht) funktioniert bei mir mit deiner Datei(nachdem man die Datenfehler in Acad bereinigt hat über _audit),
es ist zwar furchbar lansam, aber es färbt alles um in der Datei.

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

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