---

Hallo Lisp-Forum,

ich füge meinen Attributte mittels Lisp ein.
Hier ein Auszug:

;neues Attribut
(SETQ Txt (STRCAT "\r Name Attributdef. :"))
(if (not EAKT_V:NEU1)
(progn
(setq einf (list (+ (car einf_blo) 0.00) (+ (cadr einf_blo) 0.75) 0))
             (entmake (list (cons 0 "ATTRIB")
                (cons 100 "AcDbEntity")
                (cons 8 "-MSR");;Layer 
                (cons 100 "AcDbText")
                (cons 10 einf);;Anfangspkt
                (cons 11 einf);;Endpunkt
                (cons 40 2.5);;Texthöhe                             
                (cons 1 "");;Für 4-5 Stellen
                (cons 50 0.0);;Winkel
                (cons 6 "continuous")
               (cons 62 1);;Farbe
              (cons 41 1.0);;Weite
              (cons 51 0);;Winkel
          (cons 7 "STANDARD");;Textstil                             
         (cons 100 "AcDbAttribute")
                (cons 2 "Größe")
                  (cons 70 8)
                    (cons 71 0);;Text spiegeln
                 (cons 72 1);;Text ausrichten
                   (cons 73 0);;Text ausrichten
                         
                        ))

Seit Autocad 2008 wird mein Attribut-Wert nicht mehr zentriert,
sondern links ausgerichtet.
Habe schon rumprobiert, kriege aber nicht raus an welcher Schraube
ich da drehen muß.

Gruß Jürgen

[Diese Nachricht wurde von Jürgen Scheeren am 16. Apr. 2007 editiert.]

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

---

setz den 72 und 74 auf 0
dann müsst's passen

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

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

---

Hallo CADwiesel,

leider nicht.

Gruß Jürgen

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

---

at_def.lsp.txt

Hallo Jürgen!
-Na, da waren doch einige Bugs drin...
Anbei als kleines Prog - (funktioniert).
Anm.:72 auf 1(=Ausrichtung ja)
    74 auf 2(=Ausrichtung Mitte Zentrum)
Weiss nicht wie weit du mit Lispln bist - falls nicht ->Tip->
...es hilft , ein Objekt zu erstellen und mit (entget(car entsel) mal die Daten abzufragen und zu vergleichen....
Gruß Claudio

(defun c:at_def()
;;;Nur für Probelisp - damit Punkt definiert ist
(setq einf_Blo (getpoint "\nPunkt wählen:"))
(setq einf (list (+ (car einf_blo) 0.00) (+ (cadr einf_blo) 0.75) 0))
;;;DA WAR EIN FEHLER ->(STRCAT - WOZU? -UND KEIN GETRSTRING!! und \r?)
(setq Txt (getstring "\n Name Attributdef. :"))
(entmake (list
;;;DA WAR EIN FEHLER ->(cons 0 "ATTRIB")
(cons 0  "ATTDEF")
(cons 100 "AcDbEntity")
(cons 67  0)
(cons 410 "Model")
(cons 8  "-MSR")
(cons 62  1)
(cons 6  "Continuous")
(cons 100 "AcDbText")
(cons 10  einf)
(cons 40  2.5)
(cons 1  "")
(cons 50  0.0)
(cons 41  1.0)
(cons 51  0.0)
(cons 7  "Standard")
(cons 71  0)
;;;Text-Ausrichten ja
(cons 72  1)
(cons 11  einf)
(cons 100 "AcDbAttributeDefinition")
(cons 3  "Größe")
(cons 2  Txt)
(cons 70  0)
(cons 73  0)
;;;Ausrichtung Mitte Zentrum->Art der Ausrichtung
(cons 74  2)
  ;;;Endlist
)
;;;Endmake
)
;;;Nur für Probelisp -> auf Element zoomen
(command "_zoom" "_o" "_l""")
;;;Enddefun
)
(princ "\nProbelisp für Atrributdefinition mit cons -> Aufruf mit at_def)
(princ)

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

---

...und vor lauter "daherg'scheitln" schreib ich auch
noch einen Blödsinn!

SOLL NATÜRLICH HEISSEN : (entget(car(entsel))) !!!

Gruß Claudio

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

---

Hallo Claudio,

vielen dank für Deinen Tip.
Bei Lisp habe ich den groben Überblick,
den ganz..... groben Überblick.
Stricke mir meistens aus Progi-Teilen
irgentwas zusammen.

Habe Deine Tips versucht umzusetzten, es schmeißt aber
mein Autocad.

Habe auch mal versucht Werte nach Deinen Vorgaben
zB. bei cons 74, die Werte zu setzen, krieg ich aber nicht hin.
Alles wird irgendwie links ausgerichtet.
Brauche aber Zentriert.

Gruß jürgen

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

---

Hallo Jürgen!
Durch probieren und Fehler sammelt man Erfahrung...wie jeder!
Hab Dir eigentlich das kleine Prog angehängt(att_def.lsp.txt).
Einfach umbenenen (.txt löschen)->und in ACAD laden :_appload
Mit at_def starten.
Dann siehst Du zumindest, dass funktioniert, was Du wolltest.
Dann kopierst Du dir einfach die Zeilen aus dem Prog in dein Prog usw.
Vielleicht hängst Du aber auch einfach Dein ganzes Prog hier an, dann werf ich mal einen Blick drauf. (Morgen)
Gruß Claudio

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

---

MSRattr.lsp.txt

Hallo Claudio,

erstmal vielen Dank für Deine Tips,
habe das Lsp mal angehangen.
Kann das ganze vieleicht damit zusammen
hängen das wir jetzt Acad 2008 haben.
Habe versucht Dein e Lisp zu laden, krieg
aber immer die Meldung
Befehl: ; Fehler: Falsch formatierte Zeichenfolge in Eingabe

Gruß Jürgen

[Diese Nachricht wurde von Jürgen Scheeren am 19. Apr. 2007 editiert.]

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

---

Hallo Jürgen!
Hab nur mal einen kurzen Blick auf Dein Prog
gemacht - puh! - da sind doch jede Menge Zwergleins im Walde!
Zwerg 7 : (set (read (strcat "EAKT_V:" (cdr (assoc 2 lis)))) nil)
(wenn, dann kann man nur eine Variable nil setzen - und dann mit SETQ
statt SET! und (read "BLABLA") ist noch keine Variable sondern
(setq VAR1 (read "BLABLA")).
Naja und ich glaub, da muss ich an's Schneewittchen weiterleiten,
denn wenn ich das ganze Prog neu und richtig aufsetzen müsste, käme
bei mir der böse Wolf...!

Aber vielleicht kämpfst Du Dich weiter tapfer durch den dunklen "Lispwald" den wir alle schon durchschritten, dann besiegen wir gemeinsam den bösen Autocad-Drachen und sind glücklich bis ans Ende!

Gruß Claudio

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

---

at_def.lsp.txt

Ach ja Jürgen, Du hast ja noch gesagt, daß
das Prog nicht funktioniert - stimmt - war einmal
nicht Autodesk schuld, sondern ich! (2 Fehler)
Anbei noch das funktionierende.

Gruß Claudio!

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

---

Hallo Claudio,

sorry das ich mich erste jetzt melde,
war auf Dienstreise.
Ich danke Dir für die Hinweise und schlage
mich von Lichtung zu Lichtung.
Dein Prog schau ich mir an und melde mich auf jedenfall,
wenn ich bei Großmutters Hütte bin.

Wünsche Dir noch einen schönen Tag.
Gruß Jürgen

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