---

Servus Leute,

ich bin auf der Suche nach einer Lisp welche automatisch bestimmte Attribute,
in einem bestimmten Bereich (zB. innerhalb einer geschlossenen Polylinie) befüllt.

Zum Beispiel  ein Montageabschnitt "STG3" soll in das Attribut 06-Montageabschnitt,
aller Blöcke innerhalb einer geschlossenen Polylinie geschrieben werden geschrieben werden.

Ich denke das so etwas mit Hilfe von Visual Basic realisierbar sein müsste,
allerdings kenne ich mich nicht gut genug damit aus um es selbst zu schreiben.

------------------
Der HORIZONT mancher Menschen entspricht einem Kreis mit dem Radius 0,
diesen nennen sie ihren STANDPUNKT.

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

---

mit Lisp hatte ich was ähnliches schon mal realisiert .. ist allerdings kein 10-Zeiler    ... ne Beispiel-DWG ist bei sowas auch immer hilfreich .... wird die "geschlossene Polylinie" vom Amwender gewählt, oder soll es da auch einen Automatismus geben ?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Beispiel.dwg

Gut wäre ein Automatismus das die Polyline auf dem Layer Montagebereich immer das jeweilige Attribut befüllt,

sodass man einen Bereich mittels Line begrenzen kann und dann
die Polyline auf eine deferierten Layer setzt.

optimal wäre natürlich wenn man das Schachtel könnte zB.
Etage, Montagebereich und Raum jeweil mit eigener Linie auf eigenem Layer und 3 Attributen.

(ist das erste mal das ich hier einen Anhang mitschicke,
hoffe das passt so  )

------------------
Der HORIZONT mancher Menschen entspricht einem Kreis mit dem Radius 0,
diesen nennen sie ihren STANDPUNKT.

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

---

Hmm  .. dein Beispiel hat keine Blockrefernz mit Attributen ... nur einen Text ?

Was soll denn das Programm nun machen ?

1. Alle geschlossenen Polylinien auf Layer "A" wählen ...
2. alle Texte in diesen Polylinien ( auf auf LAYER "A" ) ermitteln
3. alle gefundenen Texte mit TEXT "BlaBla" überschreiben

???

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Ein super sinnvoller Blockname
und die Blockreferenz entspricht nicht der aktuellen Blockdefinition
kurz: Ein ATTSYNC und man hat wohl auch die beschriebenen Attribute an der Blockreferenz.
Wenn auch in kaotischer Reihenfolge.

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

---

Beispiel.dwg

Entschuldigung hab auf attsync beim erstellen vergessen.

So jetzt zur Funktion

1. Die eine geschlossene Polyline auf Layer "A" wählen
2. Nur den Text innerhalb der Polylinie auch auf Layer "A" auswälen
3. Den Textinhalt in ein Attribut "A" aller Blöcke innerhalb der Linie schreiben

------------------
Der HORIZONT mancher Menschen entspricht einem Kreis mit dem Radius 0,
diesen nennen sie ihren STANDPUNKT.

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

---

PLATTFILL.zip

Anbei mal was zum Testen ... wie so ein Tool aussehen könnte...
1. PL wählen und checken
2. Texte auf PL-Layer innerhalb der PL ermitteln
  ( darf bloß einer sein! ) und Inhalt auslesen
3. alle Blockreferenzen mit Attributen innerhalb der PL ermitteln
4. Attribute mit einer (wcmatch-konformen) Bezeichnung "*MONTAGEBERREICH*" ( wie in deinem Beispiel) mit dem TEXT befüllen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Passt ?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

JA funktioniert,

danke für die Hilfe 

------------------
Der HORIZONT mancher Menschen entspricht einem Kreis mit dem Radius 0,
diesen nennen sie ihren STANDPUNKT.

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

---

So noch mal abschließend da ich jetzt etwas Zeit hatte
zu testen muss ich sagen funktioniert wirklich einwandfrei.

Wollte aber noch fragen ob es möglich wäre den Code bereitzustellen,
ich würde mir nämlich gerne ansehen wie es genau funktioniert und
vielleicht selbständig ein paar Anpassungen vornehmen.

------------------
Der HORIZONT mancher Menschen entspricht einem Kreis mit dem Radius 0,
diesen nennen sie ihren STANDPUNKT.

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

---

Ist kein Zehnzeiler  Und klar kann man den Code bereitstellen ... allerdings nicht kostenlos 
( ich zumindest nicht )

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

OK danke eigentlich will ich ja lerne wie man so Dinge schreib,
also werde ich mich mal reinfuchsen und schauen wie weit ich 

------------------
Der HORIZONT mancher Menschen entspricht einem Kreis mit dem Radius 0,
diesen nennen sie ihren STANDPUNKT.

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

---

Na dann guck mal hier im Lispforum .... einen guten Einstieg bieten auch die Seiten von Mapcar[+]

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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