Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Blöcke auf anderen Layer legen über Menümakro

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
Autor Thema:  Blöcke auf anderen Layer legen über Menümakro (473 mal gelesen)
geli_danki
Mitglied
Technische Zeichnerin


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

Beiträge: 18
Registriert: 01.02.2005

erstellt am: 23. Jan. 2007 11:31    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

Kann mir jemand helfen?
Ich muß in ganz vielen Gebäuden und Geschossen bestimmte Blöcke auf bestimmte Layer legen. Sicher kann ich das über "Schnellauswahl" und "Eigenschaften ändern" machen, aber es handelt sich hier mal eben nicht nur um eine einzige Zeichnung... Dachte, ich könnte das vielleicht über ein selbst definiertes Menü regeln, aber ich krieg einfach nicht raus, wie die Befehlsabfolge heißen muss....
Ziel ist:
Blöcke mit Namen "XYZ" wählen und auf Layer "123" legen
Blöcke mit Namen "ABC" wählen und auf Layer "567" legen usw.

Die Möglichkeit, Blöcke neu auf dem entsprechenden Layer zu definieren schließe ich aus, weil sie in ihrer Ursprünglichkeit (erstellt auf Layer Null, Farbe und Linientyp von Layer) erhalten bleiben sollen....
Hat jemand eine Idee? P.S. Muß noch dazu aber auch sagen, dass ich von Lisp oder VBA überhaupt gar keine Ahnung habe...

------------------
Das Einzige was man im Leben aufgeben sollte
ist ein Brief. 

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: 13508
Registriert: 30.11.2003

.

erstellt am: 23. Jan. 2007 11:38    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 geli_danki 10 Unities + Antwort hilfreich

mal ein Einstieg im Rahmen der Forenhilfe:

(mapcar
  '(lambda(x)
     (if(and(=(type(car X))'STR)(=(type(cadr X))'STR)
            (setq aw (ssget "_x" (list '(0 . "INSERT")(cons 2  (car X)))))
        )   
       (command "_chprop" AW "" "_la" (cadr X) "")
     )
   ) 
   '(("XYZ" "123")("ABC" "567"))
)

.. ein Codeschnipsel sagt mehr als 1000 Worte  

P.S. für mehrere Zeichnungen bietet sich ein Script bzw. ein auf dem Befehl _script aufbauendes Lisp an.
------------------
      - 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

geli_danki
Mitglied
Technische Zeichnerin


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

Beiträge: 18
Registriert: 01.02.2005

erstellt am: 23. Jan. 2007 11:53    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

Sieht für mich noch etwas "böhmisch" aus, aber ich versuch das gleich mal... Melde mich dann wieder!
Vorab aber schon mal vielen lieben Dank!

------------------
Das Einzige was man im Leben aufgeben sollte
ist ein Brief. 

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

geli_danki
Mitglied
Technische Zeichnerin


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

Beiträge: 18
Registriert: 01.02.2005

- Windows7
- AutoCAD
- Microstation V8i
- Tricad (Venturis)

erstellt am: 23. Jan. 2007 12: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

Bin anscheinend doch nicht so doof wie ich aussehe...
Was wäre jetzt besser: ständig geladen und separart auslösen oder
nur bei Bedarf aden un dauslösen zur gleichen Zeit?
P.S. Erste Variante gefällt mir besser, aber dann muß doch bestimmt noch was dazu geschrieben werden, oder?

------------------
Das Einzige was man im Leben aufgeben sollte
ist ein Brief. 

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

CADwiesel
Moderator
CAD4FM UG




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

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 23. Jan. 2007 12:57    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 geli_danki 10 Unities + Antwort hilfreich

Das kannst du halten wie ein Dachdecker.
mach dir einen Button und lege den Befehl dahinter. Entweder als zu ladende lispdatei oder direkt als Buttonmakro

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

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



Technische*r Zeichner*in Elektrotechnik

Seit 1866 gilt unsere Leidenschaft der Technik und der Sicherheit. Innovationen beeinflussen unser Leben in vielfältiger Weise. Für die Sicherheit von Menschen und der Gesellschaft setzen wir uns jeden Tag aufs Neue ein und schaffen Vertrauen in neue Technologien. Wir sind Teil des Fortschritts. Wir beraten, wir prüfen, wir zertifizieren. Wir handeln aus Überzeugung, gestalten schon heute die Welt von morgen ? setzen Zeichen....

Anzeige ansehenTechnischer Zeichner, Bauzeichner
geli_danki
Mitglied
Technische Zeichnerin


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

Beiträge: 18
Registriert: 01.02.2005

erstellt am: 23. Jan. 2007 13:43    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

Jo, mach ich...
Vielen lieben Dank nochmal!!!!
Hat mir echt geholfen und ich hab mal wieder was dazu gelernt!
Danke

------------------
Das Einzige was man im Leben aufgeben sollte
ist ein Brief. 

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)2023 CAD.de | Impressum | Datenschutz