---

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

---

Hallo Georg,
bin gerade auf deinen Code gestoßen und will versuchen diesen zu verwenden. Es scheint die Funktion GC_DXF zu fehlen:

; error : no function definition <GC_DXF> ; expected FUNCTION at [eval]

Könntest du mir diese bitte noch raussuchen?
Vielen Dank
hanns-g

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

---

Code:

---

(defun gc_dxf (n Liste / )
(cdr(assoc n Liste))
)

---

Nur eine Vermutung, so ungefähr könnte die Funktion aussehen, vielleicht kommt ja noch das Original von Georg.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

das Flächenstempel_Tool(2023)

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

---

Funktion von Jörn passt genau 

Ciao Georg

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