Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  AutoCAD VBA
  Layeranpassung beim Erstellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
Autor Thema:  Layeranpassung beim Erstellen (1066 mal gelesen)
kamehama
Mitglied
techn. Angestellter


Sehen Sie sich das Profil von kamehama an!   Senden Sie eine Private Message an kamehama  Schreiben Sie einen Gästebucheintrag für kamehama

Beiträge: 81
Registriert: 07.12.2004

erstellt am: 20. Sep. 2006 14:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Ich möchte dass die Konstruktionslinien immer auf einem bestimmten Layer liegen. Dies wollte ich folgendermassen realisieren.

Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
  Select Case Object.ObjectName
    Case "AcDbXline"
        Object.Layer = "Konstrlinie"
  End Select
End Sub

Leider ist bei diesem Code immer das Problem, dass das zu ändernde Object jeweils gerade einen Lesezugriff aufweist. Wie kann ich diesen Lesezugriff beenden, oder auf welche Weise kann ich sonst den Layer dieser Objekte anpassen?
Ähnliches möchte ich mit den Bemassungen machen.

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13530
Registriert: 30.11.2003

ACAD 2008 Mechanical

erstellt am: 20. Sep. 2006 17:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kamehama 10 Unities + Antwort hilfreich

guck dir mal den Beitrag genauer an .. geht über Reaktoren

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

kamehama
Mitglied
techn. Angestellter


Sehen Sie sich das Profil von kamehama an!   Senden Sie eine Private Message an kamehama  Schreiben Sie einen Gästebucheintrag für kamehama

Beiträge: 81
Registriert: 07.12.2004

erstellt am: 20. Sep. 2006 17:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Besten Dank für deine Antwort

Also wenn ich dich richtig verstehe führt mich nur der Weg über Lisp zum Ziel. Oder gibt es auch eine Variante über VB?

Danke Kamehama

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13530
Registriert: 30.11.2003

ACAD 2008 Mechanical

erstellt am: 20. Sep. 2006 17:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kamehama 10 Unities + Antwort hilfreich

ich kenn mich mit VBA nicht so aus, aber das VBA-Äquivalent zu den Reaktoren sind die "Events" .. das "BeginCommand"-Event sollte das richtige für dich sein.. da findest du auch ein Beispiel in der Entwicklerhilfe

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

Stelli1
Moderator
Verm.-Ing.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

Beiträge: 1526
Registriert: 17.08.2005

Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013

erstellt am: 22. Sep. 2006 10:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kamehama 10 Unities + Antwort hilfreich

Hallo,

lege dir doch eine globale Collection für Entitys an. Bei Event AcadDocument_ObjectAdded hängst du dieses Objekt an die Collection an.
Dann wertest du den Stapel bei CommandEnd aus und entfernst das Element wieder aus dem Stapel.
Es gibt hier im Forum auch ein Beispiel. Finde es aber auf die schnelle nicht.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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



Anzeige:Infos zum Werbeplatz >>

ISYBAU-Viewer CAD APP für Allgemeine Werkzeuge, Kostenlose Werkzeuge / Add-Ons, Infrastruktur

Der erste komplett kostenlose ISYBAU Viewer! Laden Sie einfach eine Austauschdatei für Kanaldaten und prüfen den Inhalt. Mit dem ISYBAU-Viewer können alle Arten von ISYBAU Dateien und zusätzlich auch DWA-M 150 Austauschdateien geöffnet werden.

Stelli1
Moderator
Verm.-Ing.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

Beiträge: 1526
Registriert: 17.08.2005

Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013

erstellt am: 22. Sep. 2006 10:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kamehama 10 Unities + Antwort hilfreich

schau mal hier
Ich würde es mit einer Collection machen .. aber so gehts auch.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz