---

Guten Tag liebe CAD-VBA-Gemeinde, ich habe folgendes Ansinnen:

Mittels VBA möchte ich in einem Layout den Wert "AF Farbe" eines Layers ändern. Ich weiss auch, dass ich das über das Objekt AcadLayerStateManager machen muss. Leider habe ich bisher nicht gerafft wie das mit diesem Objekt zu bewerkstelligen ist. Wenn ich hier für das Problem einen Lösungsansatz erhalten könnte, wäre ich sehr Dankbar dafür.
Beste Grüße Jürgen

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

---

Sendcommand mit
-aflayer
wäre zu einfach gestrickt?

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

Udo Hübner
www.CAD-Huebner.de

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

---

Guten Tag,
leider ist Sendcommand mit "aflayer" zu einfach gestrickt, da damit der Layer im Ansichtsfenster nur gefroren bzw. getaut wird. Es soll jedoch die Farbe des Layers im Ansichtsfenster (und nur im Ansichtsfenster, nicht generell) geändert werden.
Besten Dank und beste Grüße, Jürgen

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

---

Aber das kann AFLAYER doch (Farbüberschreibungen für ein bestimmtes Ansichtsfenster setzen).

gewünschtes Layout aktivieren (mit CTAB)
Ansichtfenster aktivieren (z.b. über MBEREICH)
Layerfarbe überschreiben mit

Code:

---

AFLAYER Option eingeben
[?/farBe/Linientyp/linienstÄrke/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]: B
Neue Farbe [Truecolor/Farbbuch] : 3
Einen oder mehrere Layernamen eingeben, die die VP-Eigenschaftenüberschreibung
erhalten sollen, oder <Layer durch Objektauswahl angeben>: 0
Ansichtsfenster angeben [ALle/Wahl/AKtuell] <AKtuell>:
Option eingeben
[?/farBe/Linientyp/linienstÄrke/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]:

---

Aber sicher gibts da auch geeignete ActiveX Funktionen, wenn du noch weiter suchst.

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

Udo Hübner
www.CAD-Huebner.de

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

---

Hi,

>> Aber sicher gibts da auch geeignete ActiveX Funktionen

...leider nein, ab dotNET gibt's direkten Zugriff, COM/ActiveX-Funktionen für die Steuerung der Layereigenschaften/VPort wären mir nicht bekannt.

Mit dotNET gäbe es sogar schon ein fertiges Projekt, das von anderen API's angesprochen werden kann, siehe >>>hier<<<.

- alfred -

------------------
www.hollaus.at

---

Vielen Dank an Alfred und Udo für Ihr bisheriges Bemühen,

leider habe ich hier noch kein ... .NET zur Verfügung und aflayer würde mir von der Sache her weiterhelfen. Leider bekomme ich aber nur die folgenden Optionen:

Option eingeben [?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]:

wenn ich den Befehl eingebe. Kann es daran liegen, dass ich hier für AutoCAD 2008 nur das SP1 installiert habe oder liegt es eventuell an einer Systemvariablen?
Ansonsten muss ich halt warten bis im Unternehmen die nächste AutoCAD-Version installiert wird.

Beste Grüße Jürgen

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

---

Hi,

sorry, ist 2008 (ab 2009 würde es funktionieren). In diesem Fall wird's unangenehm, denn damit scheidet auch die Variante mit Befehlszeile aus und Du müsstest tief in (voraussichtlich) die Dictionaries der Ansichtsfenster eingreifen (nurmehr per Programmierung).

[EDIT]
Jedoch obiges Beispiel brauchst Du ja 'nur verwenden' und nicht bauen, damit auch nicht Visual-Studio für dotNET-Programmierung installieren. Die Aufrufe via LISP-Befehle sind ja in diesem Beispiel mit aufgezeigt.
[/EDIT]

Sorry, - alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 14. Feb. 2011 editiert.]