| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Textausrichten mit cons (1366 mal gelesen)
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2016 win7x64bit
|
erstellt am: 16. Apr. 2007 10:47 <-- editieren / zitieren --> Unities abgeben:
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 |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 16. Apr. 2007 11:18 <-- editieren / zitieren --> Unities abgeben: Nur für Jürgen Scheeren
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2016 win7x64bit
|
erstellt am: 16. Apr. 2007 11:27 <-- editieren / zitieren --> Unities abgeben:
|
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002
|
erstellt am: 17. Apr. 2007 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für Jürgen Scheeren
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 |
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002 ACA, Revit, MAX 2020
|
erstellt am: 17. Apr. 2007 14:53 <-- editieren / zitieren --> Unities abgeben: Nur für Jürgen Scheeren
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2016 win7x64bit
|
erstellt am: 17. Apr. 2007 16:00 <-- editieren / zitieren --> Unities abgeben:
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 |
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002
|
erstellt am: 17. Apr. 2007 18:19 <-- editieren / zitieren --> Unities abgeben: Nur für Jürgen Scheeren
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 |
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2016 win7x64bit
|
erstellt am: 19. Apr. 2007 12:51 <-- editieren / zitieren --> Unities abgeben:
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 |
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002
|
erstellt am: 20. Apr. 2007 16:55 <-- editieren / zitieren --> Unities abgeben: Nur für Jürgen Scheeren
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 |
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002 ACA, Revit, MAX 2020
|
erstellt am: 20. Apr. 2007 17:10 <-- editieren / zitieren --> Unities abgeben: Nur für Jürgen Scheeren
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2016 win7x64bit
|
erstellt am: 25. Apr. 2007 13:14 <-- editieren / zitieren --> Unities abgeben:
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 |