---

RAH.zip

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

---

Dein aktueller Textstil ist anders definiert ... einmal mit vorgegebener Texthöhe und einmal mit Texthöhe 0  ..dementsprechend erwartet der commandaufruf einmal zuerst die Texthöhe und einmal gleich den Startpunkt ....
Du solltest also den Textstil anpassen.

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

---

Hallo Cadmium,

dann ist die Frage wo und wie?

Gruß Symantec

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

---

_style in der Befehlszeile eingeben ..... und wenn es das war, pass deine Vorlage (DWT) an !

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

---

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

---

Hallo Zusammen,

hat hier Jemand noch eine Idee?

Gruß Symantec

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

---

Hallo Zusammen,

gibt es Niemanden, der dazu noch etwas sagen kann?
Es wäre schade das Tool zu verlieren.

Gruß Symantec

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

---

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

---

Hallo

Ersetze mal alle Zeilen mit Text
(command "text" "P" "mr"

auf
(command "text" "i" "mr"

------------------
Heinz 

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

---

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

---

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

---

Hallo Heinz,

Dein Tip war der Volltreffer!!! Vielen Dank dafür - und natürlich auch an alle anderen!!

Gruß Symantec

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