---

Hallo erstmal.

Kurzversion: überspringen der nachfolgenden Zeilen, Lispzeilen
            lesen, sind die so OK ? - Antwort!
           
Langversion: wenn man mein Lispkenntnisse mit meinen Griechisch-
Kenntnissen vergleicht, so sind diese sehr ähnlich, Griechisch
kann ich nicht einen Satz und in Lisp kenn ich nur 10 Wörter,
die Bedeutung allerdings ist mir noch nicht soo geläufig.
Dies sollen aber die ersten nützlichen Lispzeilen von mir
werden.

also ich möchte eine Verz. mit dem Inhalt:
DwgŽs die als Blockdefinitionen dienen (als Block einfügen...)
überarbeiten.
Das eigentliche: Attributsbezeichnung & Eingabeaufforderung
ändern und das möglichst automatisch!

so "schnickschnack" wie: ist das gesuchte Objekt überhaupt in der
Zeichnung?  ist erstmal außer Acht gelassen...oder: das geht ja
viiieel kürzer, oder mit dem Befehl...oder nur als Script usw usw
Nehme aber als Antwort ALLES gerne an...auch wenn es mir erstmal
darum geht das die Zeilen als "in Ordnung" oder eben nicht
abgetan werden können...

dachte in dem Moment an ein Stapelscript-ablauf der in jeder Zchng
das Lisp ausführt...oder so ähnlich

und hier endlich die paar Zeilen:

---------------------------------------------------------------------
(setq aws (ssget "x" '((0 . "Attdef") (2 . "AKS_NR"))))
(setq aks (ssname aws 0))
(setq alt_entity (entget aks))
(setq neu_entity (subst '(3 . "ID_NR") '(3 . "AKS_NR") alt_entity))
(setq neu_entity (subst '(2 . "ID_NR") '(2 . "AKS_NR") neu_entity))
(entmod neu_entity)
---------------------------------------------------------------------

was mich schon jetzt stört ist der "doppelte" subst-Aufruf, würde
lieber den String AKS_NR durch ID_NR ersetzen, geht dem?
und die erste Zeile, muß der aws so gebildet werden? "X"....

und wie gesagt, das wichtigst bei der Anfrage ist hier für mich
erstmal das kein böser Fehler drinsteckt; funktionieren tut es so !

und? - ach ja: keine Hemmung, habe mich auf das SCHLIMMSTE
eingestellt

Tutorial kenne ich , habe nur kaum Zeit mich zZ damit zu beschäftigen.
Meine (irgendwie unpraktische) Hilfe ist: Buch von G.Scheuerman-Staehler

Danke schonmal...ich geh jetzt in "Deckung"...

------------------
Gruß Sebastian ,FFM

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

---

Hallo Sebastian,

wenn ich jetzt ehrlich bin, dann weiß ich nicht wirklich was Du tatsächlich möchtest.
Aber nun zu Deinen konkreten Fragen:
1) (ssget...) - Aufruf:
Geht prinzipiell so. Du läufst allerdings die Gefahr, dass es verschiedene Blöcke gibt, in denen Attribute mit gleicher Bezeichnung definiert sind. Es ist nicht klar, welchen Block Du dann änderst.
Wenn es um generelle Änderungen eines Attributes mit dieser Bezeichnung geht (unabhängig davon in welcher Blockdefinition es vorkommt), dann solltest du den gesamten Auswahlsatz abarbeiten.

Code:

---

(defun c:hr (/ as elemli)
(setq as (ssget ..))
(if as
(setq elemli(bau_elemli as))
(if elemli
(mapcar '(lambda (elem)
(entmod (subst '(2 . "ID_NR") '(2 . "AKS_NR") (subst '(3 . "ID_NR") '(3 . "AKS_NR") (entget elem)))
)
);lambda
elemli
);mapcar
);if
);defun
(defun bau_elemli (asatz / n elemli)
(setq n 0)
(repeat (sslength asatz)
(setq elemli(cons (ssname asatz n) elemli)
n (1+ n))
)
elemli
)

---

Ich habe das jetzt mal ohne Prüfung hier so reingepostet.
Als weiteres sollte untersucht werden, wie sich die Blöcke verhalten in denen die Attribute vorkommen. Es kann sein, dass diese auch noch upgedatet werden müssen.
Weiterhin gilt es zu klären, wie sich die eingefügten Blöcke verhalten sollen. In denen steht nach wie vor die alte Attributsbezeichnung. diese müßte also auf gleichem Wege jedoch für den Elementtyp ATTRIB durchgeführt werden. Das kann man aber auch gleich mit in die ssget- abfrage einbauen.

Code:

---

(setq as (ssget "_X"
(list
'(-4 . "<and")
'(2 . "AKS_NR")
'(-4 . "<or")
'(0 . "Attdef")
'(0 . "Attrib")
'(-4 . "or>")
'(-4 . "and>")
)
)
)

---

Ich hoffe, Dir hilft's weiter.
So, die Sitzung geht weiter, ich muß los!
Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon

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

---

Ich nehme die Antwort:

1) (ssget...) - Aufruf: Geht prinzipiell so.

an, und danke !

zu den anderen Punkten:
es sind ja keine Blöcke definiert, weder 1er noch mehrere !
die dwg dient mir als Block !
soll heißen: diese DWG wird in einer anderen Zchng. als Block einfügen....

somit gibt es keine Verwechslung da dieses Attribut nur 1x in
JEDER dieser DwgŽs vorkommt !

also:
Habe davon ca. 300 DWGŽs , diese dienten in einem bestimmten
Projekt als "Blockdefinition"
Nun möchte ich diese DWGŽs weiterverwenden für andere Projekte
aber ich habe halt andere Ansprüche wie der der damalige Kunde. Zum Beispiel: anderen Attributsbezeichnungen+dazugehörige Attributs-Eingabe-Bezeichnungen!
somit ist auch eine Syncronisierung der Blöcke nicht Nötig da ich ja erst in Zukunft damit meine Pläne erstelle möchte.

und da dachte ich mir das dies ein guter erster PRAKTISCHER Test für
ein Lisp wäre!

also Danke nochmal !

------------------
  Gruß Sebastian ,FFM

[Diese Nachricht wurde von cadffm am 02. Oktober 2002 editiert.]

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