---

Attributproblem.zip

Hallo!

Ich hab folgendes Problem mit Blockattributen in AutoLisp!

Meine Blöcke enthalten je ein Attribut welches als Schriftfeld den Blocknamen anzeigt. Sprich den "Effective Name".
Das bedeutet dass der Blockname als Text neben einem Block angezeigt wird. Ändere ich den Blocknamen (kommt sehr häufig vor) ändert sich auch dieser Text (das Attribut) dementsprechend.

Der Vorteil an dem Attribut liegt für mich darin, dass ich die Position und die Schrifthöhe individuell abändern kann.

Und genau hierin liegt wiederum mein Problem.

Und zwar hab ich angenommen 50 Blöcke mit unterschiedlichen Namen. Bei diesen 50 Blöcken ist der Text z.B. 3mm hoch.
Nun kopiere ich diese 50 Blöcke und möchte die Texthöhe des Attributs auf 10mm ändern und zusätzlich den Text auf einen bestimmte Position relativ zum Blockbasispunkt verschieben...
Das ist manuell ganz schon ein Aufwand.
Deshalb möchte ich hierzu ein Lisp Programm erstellen in dem ich gewisse Blöcke auswähle und dann die Formatierung des Attributstext dieser Blöcke bzw. die Position ändere.

Ich schaffe es aber nicht den Basispunkt dieses Attributs in Lisp auszulesen bzw. zu ändern...

Kann mir da jemand helfen?

Schöne Grüße Michael

PS: Im Anhang eine Datei mit Beispielblöcken

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

---

hey^^

wasn zufall hab mir erst heute einen änlichen lisp befehl geschrieben der den basispunkt als bezug nimmt. In dem befehl findest du die info mit der du den Basispunkt auslesen kannst...

(defun c:d()(setq gg (assoc 10 (entget(car(setq dd(entsel))))))(setq ff (cdr gg))(command "_move" dd "" ff))

ändern kannst du den basispunkt mit der zuweisung eines neuen basispunkts. denke dafür kommt der befehl (entmake) in frage.

hoffe es hat ansatzweise geholfen

mfg chris

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

---

Hallo Chris!

Danke für die schnelle Antwort. Aber das ist leider nicht das was ich brauche.
Ich denke ich hab meine Frage falsch formuliert.

Und zwar möchte ich mit dem Basispunkt des Blockes gar nichts tun.
Mein Problem ist das Attribut welches ich gerne mit Autolisp verschieben möchte.

Das heißt ich möchte einen Block auswählen und dann automatisch das in diesem Block verwendtete Attribut um einen gewissen Wert verschieben. Aber nicht im Block selbst (sprich mit Refedit oder so). Sondern so wie ich es manuell machen würde. Block anwählen, das Attribut bei seinem Griff packen und dann wo anders hinschieben. :-)

Nur kann ich eben das Attribut in Lisp nicht "anpacken" :-)

sg Michael

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

---

Zitat:

---

Original erstellt von bertl24:

Nur kann ich eben das Attribut in Lisp nicht "anpacken" :-)

---

entweder mit (entget(car(nentsel "Att wählen:")))
oder mit

(if (and(setq OBJEKTDATEN(entget (car (entsel "Blockref wählen:"))))
        (assoc 66 OBJEKTDATEN)
    )                 
          (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND")
            (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN)))))
            (if (and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB")                       
                    (=(strcase (cdr(assoc 2 OBJEKTDATEN))) "ATTRIBUTSNAME")
                )
              (progn             
                .....
              )
            )
          )

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

---

Hallo!

Super, das war genau das was ich gesucht habe!

Besten Dank nochmal.

Grüße Michael

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

---

Hallo !

ich brauche hilfe von euch kollegen bei Plänen die ich bearbeite ,ich habe  manchmal mehrere Blöcke an denen ich den Rahmen ändern muss.Also sprich in Strichpunktlinie ändern leider kann ich bei Autocad 2010 immer nur einen Block mit ( Block an jeweiliger Stelle bearbeiten)bearbeiten.Das ist sehr mühsam kann mir jemand ein LISP Programm schreiben , damit ich alle Blöcke aufeinmal bearbeiten kann.

Für eure Hilfe Danke ich im Voraus !

   

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

---

Hi,

herzlich willkommen bei CAD-de!  

>> ich habe  manchmal mehrere Blöcke an denen ich den Rahmen ändern muss

Ändere die Blockdefinition, und solange es sich nicht um Attribute handelt, deren Linientyp Du umstellen musst (dann wäre ATTSYNC nachträglich notwendig), hast Du durch Redefinition der Blockdefinition spätestens nach dem nächsten REGEN auch alle anderen Blockeinfügungen (gleichen Names natürlich ) aktualisiert.

BTW 2 Punkte zu Deinem Text:

a) neue Anfrage ==> bitte neuer Thread, nicht irgendwo dranhängen, wenn es nicht exakt mit dem aktuellen Thread im Zusammenhang steht (das tut's hier nicht)

b) 'kann mir jemand ein LISP Programm schreiben' kommt nicht gut. Neben meiner altmodischen Ansicht, dass da zumindest ein Bitte dazugehören würde ist dieses Forum kein 'Macht-mir-mal'-Forum. Wenn Du Fragen dazu hast, wie Du ein Programm schreibst, dann kann Dir auf konkrete Fragen geantwortet werden. Dazu stelle hier z.B. den Code zur Verfügung, wo Du hängst; beschreibe ev. Fehlermeldungen oder Reaktionen, die aus Deiner Sicht nicht gewünscht sind, also jede Info, die für Helfende notwendig sein könnte, um Dich zu unterstützen.
Ist für Dich klar, dass Du es nicht kannst oder willst, dann wende Dich an einen Dienstleister, der Dir das programmiert. Du findest in diesem Forum sicher die Wissenden heraus, da kannst Du ja gerne per PM nachfragen, ob (und zu welchen Kosten) das Tool zu beschaffen sein könnte.

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 27. Mai. 2011 editiert.]