| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: LISP unter Version 2014 (2334 mal gelesen)
|
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002
|
erstellt am: 24. Mai. 2013 10:43 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, die angehängten LISP haben bis 2013 problemlos funktioniert. Ab der Version 2014 spielen sie nicht mehr mit. Es öffnet sich zwar die Dialogbox, da können zwei Punkte im Modellbereich ausgewählt werden. Ich kann einen Maßstab und eine Höhe festlegen - alle anderen Werte werden dann automatisch ausgefüllt. Im Modellbereich wird auch ein Rahmen gezeichnet. Bis 2013 hat man dann in den Rahmen geklickt und die Gitterkreuze wurden gezeichnet. In 2014 bleibt die Routine stehen und fragt nach einem Anfangspunkt für den Text(?) - aber da kann ich probieren was ich will, da komme ich dann nicht weiter. Die beiden LISP müssen beide geladen werden, sonst funktioniert es nicht. Könnt Ihr mir da weiterhelfen? Ich benutze nur LISP, habe vom Code aber keine Ahnung. Gruß Symantec
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Mai. 2013 10:48 <-- editieren / zitieren --> Unities abgeben: Nur für symantec
|
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002
|
erstellt am: 24. Mai. 2013 11:24 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Mai. 2013 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für symantec
|
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002
|
erstellt am: 24. Mai. 2013 12:29 <-- editieren / zitieren --> Unities abgeben:
Hallo Cadmium, es spielt keine Rolle, ob ich dem aktuellen Textstil eine Höhe gebe oder nicht. Nachdem alle Werte in der Box eingegeben wurden, sieht es in der Befehlszeile dann so aus - er sucht den 1. Punkt für die Textbasislinie: Befehl: RAST linker oberer Eckpunkt:100,100 rechter oberer Eckpunkt:300,200 Startpunkt: Ungültiger Punkt. Abbruch... Ersten Endpunkt für Textbasislinie angeben: >> Nehme TEXT-Befehl wieder auf. Ersten Endpunkt für Textbasislinie angeben: Zweiten Endpunkt der Textbasislinie angeben: Gruß Symantec
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002 AutoCAD AutoCAD Map 3D AutoCAD Civil 3D InfraWorks Urbano Navisworks
|
erstellt am: 27. Mai. 2013 12:58 <-- editieren / zitieren --> Unities abgeben:
|
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002
|
erstellt am: 03. Jun. 2013 22:35 <-- editieren / zitieren --> Unities abgeben:
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 04. Jun. 2013 07:35 <-- editieren / zitieren --> Unities abgeben: Nur für symantec
Nachdem Cadmium das Programm bereits angeschaut hat (?!) kann man davon ausgehen, dass es OK ist. Lade eventuell noch die/eine DWG hoch, wo's nicht funkt. Vielleicht können Besitzer der neueren Versionen das Problem nachvollziehen/finden? ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 04. Jun. 2013 07:38 <-- editieren / zitieren --> Unities abgeben: Nur für symantec
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 04. Jun. 2013 07:45 <-- editieren / zitieren --> Unities abgeben: Nur für symantec
Das Lisp sollte von command basierender Befehlsausführung wenigstens in Teilen auf eine entmake oder ActiveX basierende Ausdrucksweise umgestellt werden. Wenn du die Texte per entmake oder vla-addText erstellen lässt hast du schonmal die Probleme mit den unterschiedlichen TextStilen, festen Texthöhen usw in Verbindung mit den daraus folgenden Commandabfolgen erledigt. Da aber die meißten Texte mit einer Textausrichtung versehen sind, ist der Umbau deines Lisp schon etwas Zeitnehmend. Das wird die Forenhilfe sicherlich sprengen. ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 04. Jun. 2013 07:58 <-- editieren / zitieren --> Unities abgeben: Nur für symantec
Hallo Symantec, für's entmake von Texten habe ich mir mal eine kleine Fuktion geschrieben. Code:
; Text entmake (defun mach_text (ausricht72 ausricht73 punkt drehung inhalt tlay tstyle thoehe / t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 ee te_neu) ; Aufbau Datenstruktur für Text ; aufruf z. B. (mach_text 0 2 tp1 0 text layer text_style_name hoehe) (setq t1 (cons 0 "TEXT")) (setq t2 (cons 100 "AcDbEntity")) (setq t3 (cons 8 tlay)) (setq t4 (cons 100 "AcDbText")) (setq t5 (list 10 (car punkt) (cadr punkt) 0.0)) (setq t6 (cons 40 thoehe)) (setq t7 (cons 1 inhalt)) (setq t8 (cons 50 (* (/ drehung 180.) pi))) (setq t9 (cons 7 tstyle)) (setq t10 (cons 72 ausricht72)) (setq t11 (list 11 (car punkt) (cadr punkt) 0.0)) (setq t12 (cons 73 ausricht73)) (setq ee nil) (setq ee (list t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t4 t12 )) (setq te_neu (entmake ee)) )
Der Aufruf erfolgt dann statt mit (command "text" ...) mit (mach_text ...) Für die Belegung der Werte ausricht72 und ausricht73 (horizontale und vertikale Textausrichtung) siehe hier. HTH Gruß Thomas [Diese Nachricht wurde von spider_dd am 04. Jun. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
symantec Mitglied user
Beiträge: 466 Registriert: 07.05.2002
|
erstellt am: 04. Jun. 2013 12:14 <-- editieren / zitieren --> Unities abgeben:
|