Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  grdraw für TEXT

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   grdraw für TEXT (326 mal gelesen)
gmk
Mitglied
Dipl.-Ing.(FH) Vermessung


Sehen Sie sich das Profil von gmk an!   Senden Sie eine Private Message an gmk  Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 645
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19719
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 28. Feb. 2020 18:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für gmk 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Meldin an!   Senden Sie eine Private Message an Meldin  Schreiben Sie einen Gästebucheintrag für Meldin

Beiträge: 319
Registriert: 15.07.2011

ACA2018
Windows10

erstellt am: 29. Feb. 2020 09:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für gmk 10 Unities + Antwort hilfreich

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

Peter2
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Peter2 an!   Senden Sie eine Private Message an Peter2  Schreiben Sie einen Gästebucheintrag für Peter2

Beiträge: 3379
Registriert: 15.10.2003

Win 10/64 Pro
AutoCAD MAP 3D 2018

erstellt am: 05. Mrz. 2020 11:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für gmk 10 Unities + Antwort hilfreich

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

gmk
Mitglied
Dipl.-Ing.(FH) Vermessung


Sehen Sie sich das Profil von gmk an!   Senden Sie eine Private Message an gmk  Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 645
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz