| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: grdraw für TEXT (972 / mal gelesen)
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 667 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 28. Feb. 2020 17:16 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 28. Feb. 2020 18:57 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
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 |
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 29. Feb. 2020 09:23 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3701 Registriert: 15.10.2003 Win 10/64 Pro AutoCAD MAP 3D 2018 BricsCAD 22
|
erstellt am: 05. Mrz. 2020 11:58 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 667 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 05. Mrz. 2020 14:40 <-- editieren / zitieren --> Unities abgeben:
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 |