| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: TextZeichen ergänzen (1331 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 02. Jul. 2014 08:07 <-- editieren / zitieren --> Unities abgeben:
Das Tool von Lee welches Texte am Mauszeiger anzeigt, generiert die Zeichen aus dieser Liste. Ich möchte diese gern, um die Umlaute ä ö å ergänzen. Weiss aber nicht woher diese Listen kommen Code: (" ") ("\t") ("!" 45 45 65 135) ("\"" 104 134 107 137) ("#" 43 63 46 66 84 94 87 97 115 135 118 138 72 78 103 109) ("$" 25 35 52 52 43 47 58 78 83 87 92 112 123 127 118 118 135 135) ("%" 52 52 63 63 74 74 85 85 96 96 107 107 118 118 129 129 47 48 67 68 56 56 59 59 113 114 133 134 122 122 125 125) ("&" 43 46 49 49 52 72 57 58 67 68 76 76 79 79 83 83 85 85 94 94 103 123 134 136 127 127) ("'" 105 135) ("(" 17 17 26 36 45 105 116 126 137 137) (")" 14 14 25 35 46 106 115 125 134 134) ("*" 73 74 76 77 84 86 92 98 104 106 113 114 116 117) ("+" 55 115 82 84 86 88) ("," 34 35 45 46 55 57) ("-" 83 88) ("." 45 46 55 56) ("/" 52 52 63 63 74 74 85 85 96 96 107 107 118 118 129 129) ("0" 44 47 134 137 53 123 58 128) ("1" 44 48 124 125 56 136) ("2" 43 48 53 53 64 64 75 75 86 86 97 97 108 128 134 137 123 123) ("3" 53 53 44 47 58 88 95 97 108 128 134 137 123 123) ("4" 46 48 57 137 78 78 73 76 83 83 94 94 105 115 126 126) ("5" 53 53 44 47 58 88 94 97 93 133 134 138) ("6" 44 47 58 88 95 97 84 84 53 113 124 124 135 137) ("7" 44 54 65 75 86 96 107 117 128 138 133 137 123 123) ("8" 44 47 94 97 134 137 53 83 58 88 103 123 108 128) ("9" 44 46 57 57 68 128 97 97 84 86 134 137 93 123) (":" 45 46 55 56 95 96 105 106) (";" 34 35 45 46 55 57 95 96 105 106) ("<" 47 47 56 56 65 65 74 74 83 83 94 94 105 105 116 116 127 127) ("=" 73 78 93 98) (">" 43 43 54 54 65 65 76 76 87 87 96 96 105 105 114 114 123 123) ("?" 45 45 65 75 86 86 97 97 108 128 134 137 123 123) ("@" 34 38 43 43 52 112 123 123 134 137 128 128 79 119 68 68 65 66 105 106 77 107 74 94) ("A" 41 43 47 49 52 62 58 68 73 77 83 93 87 97 104 114 106 116 125 135 133 134) ("B" 42 47 53 123 58 88 108 128 94 97 132 137) ("C" 44 47 53 53 58 58 62 112 123 123 134 136 127 127 108 138) ("D" 42 46 57 57 127 127 132 136 68 118 53 123) ("E" 42 48 58 58 94 95 86 106 132 137 128 138 53 123) ("F" 42 45 94 95 86 106 132 137 128 138 53 123) ("G" 44 47 53 53 58 78 86 89 62 112 123 123 134 136 127 127 108 138) ("H" 41 43 47 49 131 133 137 139 93 97 52 122 58 128) ("I" 43 47 133 137 55 125) ("J" 52 62 43 46 57 127 135 139) ("K" 42 44 48 49 132 134 136 138 53 123 84 85 95 95 106 116 127 127 76 76 67 67 58 58) ("L" 42 47 48 58 53 123 132 135) ("M" 41 43 47 49 52 122 58 128 131 132 138 139 103 113 107 117 84 94 86 96 65 75) ("N" 41 44 131 132 136 139 52 122 48 128 113 113 94 104 85 85 66 76 57 57) ("O" 44 46 53 53 57 57 123 123 127 127 134 136 62 112 68 118) ("P" 42 45 84 87 132 137 53 123 98 128) ("Q" 134 136 123 123 127 127 112 62 118 68 53 53 57 57 44 46 35 36 23 24 27 28) ("R" 42 44 48 49 132 137 123 53 128 98 84 87 76 76 67 67 58 58) ("S" 42 62 53 53 44 47 58 78 86 87 93 95 102 122 133 136 127 127 118 138) ("T" 43 47 55 125 132 138 131 121 139 129) ("U" 44 46 52 53 57 58 62 122 68 128 131 133 137 139) ("V" 45 55 64 74 66 76 83 103 87 107 112 122 118 128 131 133 137 139) ("W" 43 63 47 67 72 92 74 94 76 96 78 98 101 121 105 115 109 129 131 132 138 139) ("X" 41 43 47 49 131 133 137 139 52 52 58 58 63 63 67 67 74 74 76 76 85 95 104 104 106 106 113 113 117 117 122 122 128 128) ("Y" 43 47 55 85 94 94 96 96 103 113 107 117 122 122 128 128 131 133 137 139) ("Z" 122 122 58 58 132 138 42 48 128 128 52 52 63 63 74 74 85 95 106 106 117 117) ("[" 15 17 135 137 25 125) ("\\" 122 122 113 113 104 104 95 95 86 86 77 77 68 68 59 59) ("]" 14 16 134 136 26 126) ("^" 102 102 113 113 124 124 135 135 126 126 117 117 108 108) ("_" 21 29) ("`" 125 125 134 134) ("a" 43 46 48 48 52 72 57 97 83 86 103 106) ("b" 42 43 45 46 54 54 57 58 68 98 97 97 105 106 94 94 132 132 53 133) ("c" 44 46 53 53 57 58 52 92 93 93 104 106 97 98 108 108) ("d" 44 45 47 48 52 92 53 53 56 56 93 93 104 105 96 96 136 136 57 137) ("e" 44 46 53 53 57 58 52 92 93 93 104 106 97 98 88 88 73 78) ("f" 43 46 54 124 93 93 95 96 135 137 128 128) ("g" 13 16 22 32 27 97 107 108 66 66 96 96 54 55 104 105 63 63 93 93 62 92) ("h" 42 44 46 48 57 97 53 133 132 132 94 94 105 106) ("i" 43 47 55 105 103 104 135 135) ("j" 22 22 13 15 26 106 104 105 136 136) ("k" 42 44 46 48 53 133 132 132 57 57 66 66 74 75 85 85 96 106 107 108) ("l" 43 47 55 135 133 134) ("m" 41 43 45 46 48 49 52 102 55 105 58 108 101 101 93 93 104 104 96 96 107 107) ("n" 42 44 46 48 53 103 57 97 102 102 94 94 105 106) ("o" 44 46 104 106 53 53 57 57 93 93 97 97 52 92 58 98) ("p" 12 15 23 103 102 102 54 54 94 94 45 46 105 106 57 58 97 98 68 88) ("q" 15 18 27 107 108 108 56 56 96 96 44 45 104 105 52 53 92 93 62 82) ("r" 42 46 54 104 102 103 95 95 106 108 99 99) ("s" 52 52 43 47 58 68 73 77 82 92 103 107 98 98) ("t" 45 47 58 58 54 124 102 103 105 107) ("u" 102 102 106 106 53 103 56 56 44 45 47 107 48 48) ("v" 45 45 54 64 56 66 73 83 77 87 92 92 98 98 101 103 107 109) ("w" 43 53 47 57 62 92 64 84 66 86 68 98 101 103 95 105 107 109) ("x" 42 44 46 48 102 104 106 108 53 53 57 57 93 93 97 97 64 64 66 66 84 84 86 86 75 75) ("y" 12 13 24 24 35 45 54 64 56 66 73 83 77 87 92 92 98 98 101 103 107 109) ("z" 92 92 58 58 102 108 42 48 97 97 86 86 75 75 64 64 53 53) ("{" 16 17 25 65 73 74 85 125 136 137) ("|" 15 135) ("}" 14 15 26 66 77 78 86 126 134 135) ("~" 112 122 133 134 125 125 116 117 128 138)
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 02. Jul. 2014 08:10 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 02. Jul. 2014 08:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadffm Moderator 良い精神
Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 02. Jul. 2014 08:24 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1988 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 02. Jul. 2014 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Das Erzeugen und löschen von Texten via vla-addtext und delete am cursor ist wahrscheinlich sogar schleller, da du da den Text vorgeben kannst. Code: (if (setq Text (getstring "\nText eingeben :" 'T)) (while (progn (setq gr (grread t 15 0) code (car gr) data (cadr gr) ) ;_ end of setq (cond ((= 5 code) ;; Mouse bewegen (if txtobj (vla-delete txtobj) ) ;_ end of if (setq txtobj (vla-addText (vla-get-ModelSpace (vla-get-activedocument (vlax-get-acad-object)) ) ;_ end of vla-get-ModelSpace text (vlax-3d-point (trans (cadr gr) 1 0)) (getvar "textsize") ) ;_ end of vla-addText ) ;_ end of setq ) ((= 2 code) ;; Tastatur (alert (strcat "Taste: " (chr data))) t ) ((= 3 code) ;; Left-Click of the mouse (vla-addText (vla-get-ModelSpace (vla-get-activedocument (vlax-get-acad-object)) ) ;_ end of vla-get-ModelSpace text (vlax-3d-point (trans (cadr gr) 1 0)) (getvar "textsize") ) ;_ end of vla-addText (setq pt data) ) ('T (alert "Rechtsklick") ) ) ;_ end of cond ) ;_ end of progn ) ;_ end of while ) ;_ end of if
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 02. Jul. 2014 10:54 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Dirk Probier mal das:
Code:
("ä" 43 46 48 48 52 72 57 97 83 86 103 106 133 133 137 137) ("å" 43 46 48 48 52 72 57 97 83 86 103 106 125 125 134 134 145 145 136 136) ("ö" 44 46 104 106 53 53 57 57 93 93 97 97 52 92 58 98 133 133 137 137)
------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 02. Jul. 2014 11:12 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von cadplayer: ...generiert die Zeichen aus dieser Liste. Ich möchte diese gern, um die Umlaute ä ö å ergänzen. Weiss aber nicht woher diese Listen kommen
Hallo Dirk,
nach der Überlegung wie man fachlich wohl am besten antworten soll, versuche ich es mal so: Entweder Alternativen verwenden, siehe CADwiesel, oder man eignet sich das Wissen an wie der Code funktioniert. Wenn bekanntist was der Code macht, dann kann man auch die Liste geziehlt erstellen/manipulieren. Frage: "Woher die Listen kommen": Die Listen hat Lee sich selbst erstellt, wie genau er vorgegangen ist wurde nicht beschrieben, aber lobend der Herr Elpanov Evgeniy für die erarbeitete Methode, direkt unter dem Copyright, erwähnt.
Wie geht man also vor bei so einem Problem: 1. Die Liste selbst macht direkt keinen Sinn, augenscheinlich. 2. Die Funktion scheint aber als Rückgabe eine Koordinatenliste zu liefern, oder? (sieht so aus). 3. prüfen ob Annahme 2 stimmt (ich würde mal ein "!" und noch ein "A" als Beispiel zur Klärung vorschlagen ! 4. Dann schaue dir die Liste im Code und die Rückgabe noch mal genauer an, wenn es dann noch nicht Klick macht, so muß man eben im Code von lm:grtext direkt nachsehen wie die Liste verarbeitet wird. 5. Die grafischen Überprüfung (erstelle Linienzüge mit den Werten) liefert dir dann Gewissheit und somit sind dann alle nötigen Fakten bekannt zur Frage "wo kommt die Liste her" Antworten: a. Selbst erstellt b. Das Wissen um das "wie" hast du dir mit dem Erarbeiten (Punkt 1 - 5) dann auch selbst beantwortet und du bist in der Lage selbst zusätzliche Buchstaben zu kreieren.
------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 02. Jul. 2014 13:28 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank für die rege Beteiligung, ich werde das erstmal alles abarbeiten. kurzer Durchgang: Cadmium: erinnert mich irgendwie an jemand Cadwieseel: deine Funktion läuft einwandfrei und tut bereits das worauf ich hinaus will (Top!) Geos: mal kurz getestet, bekam aber nix zurück cadffm: TopHinweis, darauf werde ich mich zunächst konzentrieren Soll hier aber kein Ranking sein, sondern ich find alle Betreige ganz hilfreich! ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 02. Jul. 2014 13:30 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadffm Moderator 良い精神
Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 02. Jul. 2014 14:03 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von cadplayer: Geos: mal kurz getestet, bekam aber nix zurück
Dann hast du einen Fehler gemacht, aber das kann nicht sein weil in dem Fall hätte ja eine Fehlermeldung erscheinen müssen. (oder das Programm wird beendet = Zeichen in der VECS Liste nicht gefunden) Die Definitionen sind richtig und sogar ansehnlich, liegt also nicht an der Antwort von Geos- wenn man also mal in den Bereich von 0,0 bis 10,10 schaut: (LM:GRTEXT "å") sollte die Definition finden und so sieht es in Natura aus: (progn(command "_.ZOOM" '(0 0)'(15 30))(grvecs (cons 1 (LM:GRTEXT "å")))) ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 02. Jul. 2014 15:33 <-- editieren / zitieren --> Unities abgeben:
Einsamme Spitze, mit eurer Hilfe komme ich immer zu einer schnellen Lösung. Cadmium: mich - "erst probieren, dann studieren" (ich weiss umgekehrt wäre optimaler) Auf jeden Fall, intressiert mich die Sache brennend! Nochmals danke für Eure Mühe! ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |