---

Servus!

Gibt es eine Funktion ähnlich wie grdraw auch für "TEXT"?

Ciao Georg

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

---

Nein, das müsste man sich selbst erstellen,
in der Praxis wäre dann Text erstellen/löschen
naheliegender.

Wobei du die Vektorendaten für eine Schriftart auch schnell selbst zusammen
hast und dann nur noch eine assoc Liste benötigst, fertig.
Ok, wenn mqn keine Monoschrift möchte, dann muss man noch die Breite der Zeichen vorhalten.

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

---

Hier gabs mal was ähnliches vielleicht hilft es etwas. http://ww3.cad.de/foren/ubb/Forum145/HTML/004136.shtml#000000

------------------
Gruß Wolfgang

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

---

Eine Diskussion zum "grdraw für einen Kreis"
http://www.theswamp.org/index.php?topic=55723.0

Kurzergebnis: temp. erstellen und löschen ist besser (siehe cadffm)

------------------
Wichtig: Vor dem Schütteln gut öffnen!

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

---

Servus!

Hab in der Hektik ganz vergessen mich nochmal zu melden ....
Ich hab's jetzt selber gebastelt, für Schriftart romans, Höhe 1, Breitenfaktor 1, Neigung 0.
Sind bis jetzt nur Zahlen, mehr brauch ich i.M. nicht.

(DEFUN gmk_grwrite (
string
pkt 
hoehe
breitenfaktor
farbe
highlight
/
rw
hw
i
zeichen
rw0
hpkt1
hpkt2
)

; Zeichen Abstand-vorne Abstand-hinten max.Breite max.Höhe Linienliste
(SETQ strli (LIST
'("1" 0.1 0.1 0.23347 0.99808 (((0.23347 0.99808) (0.23347 0.00000)) ((0.09339 0.85800) (0.23347 0.99808)) ((0.00000 0.80547) (0.09339 0.85800))))
'("2" 0.1 0.1 0.66539 1.00391 (((0.00000 0.00000) (0.66539 0.00000)) ((0.47861 0.47861) (0.00000 0.00000)) ((0.57200 0.61869) (0.47861 0.47861)) ((0.61869 0.71792) (0.57200 0.61869)) ((0.61869 0.81130) (0.61869 0.71792)) ((0.57200 0.90469) (0.61869 0.81130))
((0.52530 0.95722) (0.57200 0.90469)) ((0.42608 1.00391) (0.52530 0.95722)) ((0.23931 1.00391) (0.42608 1.00391)) ((0.14592 0.95722) (0.23931 1.00391)) ((0.09339 0.90469) (0.14592 0.95722)) ((0.04669 0.81130) (0.09339 0.90469))
((0.04669 0.76461) (0.04669 0.81130))))
'("3" 0.1 0.1  0.66539 0.99808 (((0.04669 0.09339) (0.00000 0.19261)) ((0.09339 0.04669) (0.04669 0.09339)) ((0.23931 0.00000) (0.09339 0.04669)) ((0.37939 0.00000) (0.23931 0.00000)) ((0.52530 0.04669) (0.37939 0.00000))
((0.61869 0.14592) (0.52530 0.04669)) ((0.66539 0.28600) (0.61869 0.14592)) ((0.66539 0.37939) (0.66539 0.28600)) ((0.61869 0.52530) (0.66539 0.37939)) ((0.57200 0.57200) (0.61869 0.52530)) ((0.47861 0.61869) (0.57200 0.57200))
((0.33269 0.61869) (0.47861 0.61869)) ((0.61869 0.99808) (0.33269 0.61869)) ((0.09339 0.99808) (0.61869 0.99808))))
'("4" 0.1 0.1  0.71208 0.99808 (((0.47861 0.99808) (0.47861 0.00000)) ((0.00000 0.33269) (0.71208 0.33269)) ((0.47861 0.99808) (0.00000 0.33269))))
'("5" 0.1 0.1 0.66539 1.00391 (((0.04669 0.09922) (0.00000 0.19261)) ((0.09339 0.04669) (0.04669 0.09922)) ((0.23931 0.00000) (0.09339 0.04669)) ((0.37939 0.00000) (0.23931 0.00000)) ((0.52530 0.04669) (0.37939 0.00000)) ((0.61869 0.14592) (0.52530 0.04669))
((0.66539 0.28600) (0.61869 0.14592)) ((0.66539 0.38522) (0.66539 0.28600)) ((0.61869 0.52530) (0.66539 0.38522)) ((0.52530 0.61869) (0.61869 0.52530)) ((0.37939 0.66539) (0.52530 0.61869)) ((0.23931 0.66539) (0.37939 0.66539))
((0.09339 0.61869) (0.23931 0.66539)) ((0.04669 0.57200) (0.09339 0.61869)) ((0.09339 1.00391) (0.04669 0.57200)) ((0.57200 1.00391) (0.09339 1.00391))))
'("6" 0.1 0.1 0.61869 0.99808 (((0.04669 0.47277) (0.00000 0.33269)) ((0.14592 0.57200) (0.04669 0.47277)) ((0.28600 0.61869) (0.14592 0.57200)) ((0.33269 0.61869) (0.28600 0.61869)) ((0.47861 0.57200) (0.33269 0.61869)) ((0.57200 0.47277) (0.47861 0.57200))
((0.61869 0.33269) (0.57200 0.47277)) ((0.61869 0.28600) (0.61869 0.33269)) ((0.57200 0.14008) (0.61869 0.28600)) ((0.47861 0.04669) (0.57200 0.14008)) ((0.33269 0.00000) (0.47861 0.04669)) ((0.28600 0.00000) (0.33269 0.00000))
((0.14592 0.04669) (0.28600 0.00000)) ((0.04669 0.14008) (0.14592 0.04669)) ((0.00000 0.33269) (0.04669 0.14008)) ((0.00000 0.57200) (0.00000 0.33269)) ((0.04669 0.81130) (0.00000 0.57200)) ((0.14592 0.95138) (0.04669 0.81130))
((0.28600 0.99808) (0.14592 0.95138)) ((0.37939 0.99808) (0.28600 0.99808)) ((0.52530 0.95138) (0.37939 0.99808)) ((0.57200 0.85800) (0.52530 0.95138))))
'("7" 0.1 0.1 0.66539 0.99808 (((0.00000 0.99808) (0.66539 0.99808)) ((0.66539 0.99808) (0.19261 0.00000))))
'("8" 0.1 0.1 0.66539 0.99808 (((0.23931 0.99808) (0.23931 0.99808)) ((0.42608 0.99808) (0.23931 0.99808)) ((0.57200 0.95138) (0.42608 0.99808)) ((0.61869 0.85800) (0.57200 0.95138)) ((0.61869 0.76461) (0.61869 0.85800)) ((0.57200 0.66539) (0.61869 0.76461))
((0.47861 0.61869) (0.57200 0.66539)) ((0.28600 0.57200) (0.47861 0.61869)) ((0.14592 0.52530) (0.28600 0.57200)) ((0.04669 0.43192) (0.14592 0.52530)) ((0.00000 0.33269) (0.04669 0.43192)) ((0.00000 0.19261) (0.00000 0.33269))
((0.04669 0.09339) (0.00000 0.19261)) ((0.09339 0.04669) (0.04669 0.09339)) ((0.23931 0.00000) (0.09339 0.04669)) ((0.42608 0.00000) (0.23931 0.00000)) ((0.57200 0.04669) (0.42608 0.00000)) ((0.61869 0.09339) (0.57200 0.04669))
((0.66539 0.19261) (0.61869 0.09339)) ((0.66539 0.33269) (0.66539 0.19261)) ((0.61869 0.43192) (0.66539 0.33269)) ((0.52530 0.52530) (0.61869 0.43192)) ((0.37939 0.57200) (0.52530 0.52530)) ((0.19261 0.61869) (0.37939 0.57200))
((0.09339 0.66539) (0.19261 0.61869)) ((0.04669 0.76461) (0.09339 0.66539)) ((0.04669 0.85800) (0.04669 0.76461)) ((0.09339 0.95138) (0.04669 0.85800)) ((0.23931 0.99808) (0.09339 0.95138))))
'("9" 0.1 0.1 0.61869 0.99808 (((0.09339 0.04669) (0.04669 0.14008)) ((0.23931 0.00000) (0.09339 0.04669)) ((0.33269 0.00000) (0.23931 0.00000)) ((0.47861 0.04669) (0.33269 0.00000)) ((0.57200 0.18677) (0.47861 0.04669)) ((0.61869 0.42608) (0.57200 0.18677))
((0.61869 0.66539) (0.61869 0.42608)) ((0.57200 0.85800) (0.61869 0.66539)) ((0.47861 0.95138) (0.57200 0.85800)) ((0.33269 0.99808) (0.47861 0.95138)) ((0.28600 0.99808) (0.33269 0.99808)) ((0.14592 0.95138) (0.28600 0.99808))
((0.04669 0.85800) (0.14592 0.95138)) ((0.00000 0.71208) (0.04669 0.85800)) ((0.00000 0.66539) (0.00000 0.71208)) ((0.04669 0.52530) (0.00000 0.66539)) ((0.14592 0.42608) (0.04669 0.52530)) ((0.28600 0.37939) (0.14592 0.42608))
((0.33269 0.37939) (0.28600 0.37939)) ((0.47861 0.42608) (0.33269 0.37939)) ((0.57200 0.52530) (0.47861 0.42608)) ((0.61869 0.66539) (0.57200 0.52530))))
'("0" 0.1 0.1 0.66539 1.00391 (((0.28600 1.00391) (0.28600 1.00391)) ((0.37939 1.00391) (0.28600 1.00391)) ((0.52530 0.95722) (0.37939 1.00391)) ((0.61869 0.81130) (0.52530 0.95722)) ((0.66539 0.57200) (0.61869 0.81130)) ((0.66539 0.43192) (0.66539 0.57200))
((0.61869 0.19261) (0.66539 0.43192)) ((0.52530 0.05253) (0.61869 0.19261)) ((0.37939 0.00000) (0.52530 0.05253)) ((0.28600 0.00000) (0.37939 0.00000)) ((0.14592 0.05253) (0.28600 0.00000)) ((0.04669 0.19261) (0.14592 0.05253))
((0.00000 0.43192) (0.04669 0.19261)) ((0.00000 0.57200) (0.00000 0.43192)) ((0.04669 0.81130) (0.00000 0.57200)) ((0.14592 0.95722) (0.04669 0.81130)) ((0.28600 1.00391) (0.14592 0.95722))))
'("-" 0.1 0.1 0.64204 0.00000 (((0.00000 0.42857) (0.64204 0.42857))))
) 
) ;SETQ

(SETQ rw (NTH 0 pkt))
(SETQ hw (NTH 1 pkt))
(SETQ i 1)
(REPEAT (STRLEN string)
  (SETQ zeichen (SUBSTR string i 1))
  (SETQ zeichen (gc_dxf zeichen strli))
  (SETQ rw (+ rw (* (NTH 0 zeichen) hoehe))) ;Abstand-vorne vor Zeichenbeginn
  (SETQ rw0 rw)
  (FOREACH n (NTH 4 zeichen)
    (SETQ hpkt1 (NTH 0 n)) 
    (SETQ hpkt2 (NTH 1 n))
    (grdraw (LIST (+ rw (* (* (NTH 0 hpkt1) hoehe) breitenfaktor)) (+ hw (* (NTH 1 hpkt1) hoehe))) (LIST (+ rw (* (* (NTH 0 hpkt2) hoehe) breitenfaktor)) (+ hw (* (NTH 1 hpkt2) hoehe))) farbe highlight)
  )
  (SETQ rw (+ rw (* (* (NTH 2 zeichen) hoehe) breitenfaktor) (NTH 1 zeichen)))
  (SETQ i (+ i 1))
) 
)

Ciao Georg

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