Wann ist Objekt LETZTES Objekt? (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Wann ist Objekt LETZTES Objekt? (1086 mal gelesen)

Ex-Mitglied

erstellt am: 07. Apr. 2008 13:24

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Ich benötige folgende Funktion:

1. Wähle einen Block
2. Selektiere den Blocknamen
3. lege einen Layer mit dem Blocknamen neu an
4. verschiebe den Block auf diesen neuen Layer

Mein Ansatz:

(setq k (entget (car (last (nentsel "\nSelektieren Sie bitte einen Block: ")))))
(setq 1name (cdr (assoc 2 k)))
(command "-layer" "n" 1name "")
(command "_.change" "l" "" "EI" "LA" 1name "")

Leider ist im Befehl "_.change" das LETZTE Objekt nicht der vorher angeklickte Block. Kann ich bitte einen Denkanstoß haben?

Danke
Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 07. Apr. 2008 13:39

<-- editieren / zitieren -->

Unities abgeben:

machs ganz anders :

(if(and(or(setq B(ssget "_:S" '((0 . "INSERT"))))
(prompt "\nKeine Blockreferenz gewählt!\n")
)
(setq B(ssname B 0))
(setq N(cdr(assoc 2(entget B))))
(or(snvalid N)
(prompt "\nUngültiger Layername!\n")
)
)
(progn
(or(tblobjname "LAYER" N)
(command "_-layer" "_m" N "")
)
(entmod(subst(cons 8 N)(assoc 8 (entget B))(entget B)))
)
)

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

Peter.Pohl
Mitglied
Stahlbau-Konstrukteur

Senden Sie eine Private Message an Peter.Pohl

Schreiben Sie einen Gästebucheintrag für Peter.Pohl

Beiträge: 50
Registriert: 21.04.2006

erstellt am: 07. Apr. 2008 13:45

<-- editieren / zitieren -->

Unities abgeben:

Hallo Lutz,

versuche es mal hiermit:
(setq blck (car (entsel "\nBlock wählen: ")))
(setq lay (cdr (assoc 2 (entget blck))))
(command "_change" blck "" "ei" "la" lay "")

Gruß Peter

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

CADchup
Ehrenmitglied V.I.P. h.c.

Senden Sie eine Private Message an CADchup

Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3338
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 07. Apr. 2008 13:59

<-- editieren / zitieren -->

Unities abgeben:

Hi,

der feine Unterschied zwischen dem letzten Objekt und der vorherigen Auswahl. Die Hilfe erklärt's so:

Zitat:

Previous
Selects the most recent selection set.
Last
Selects the most recently created visible objects

Gruß
CADchup

------------------
CADmaro.de

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

Anzeige:	Infos zum Werbeplatz >>
AVCAD CAD APP für Elektro, Telekommunikation AVCAD helps engineers and designers create Interconnection Block Schematics with engineering information. Rack Layouts, Cable and Equipment Lists, and even more.

Ex-Mitglied

erstellt am: 07. Apr. 2008 14:23

<-- editieren / zitieren -->

Mein Gott, ist das frustrierend. Und ich hatte mich schon gefreut, in der richtigen Richtung zu sein.

Funktioniert wunderbar, wie konnte es anders sein.

Vielen Dank, das war´s ...

Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

AVCAD CAD APP für Elektro, Telekommunikation