---

Hallo zusammen,

hat von euch jemand eine Idee wie ich meine Lisp-Programme mehrsprachig gestalten kann. Es geht mir in erster Linie um meine Abfragen und evtl. Antworten. Wenn i9ch z.B. eine Meldung bringe wie "Linie wählen" hätte ich das gerne so gelöst dass wenn das System englisch gestartet wurde dass die Frage eben heißt "select Line". Im SolidWorks haben wir das mit einer .ini Datei gelöst in der alles mehrsprachig mit Pipe (|) getrennt drin steht und sich das Macro dann die jeweilige Sprache der betreffenden Zeile (durchnummeriert) je nach der Sprache die im Betriebssystem eibestellt ist holt.

Ich hoffe ich habe mich verständlich ausgedrückt.

Edit:

das Einzige was ich zum Thema gefunden habe war das hier für DCL, das hilft mir aber irgendwie nicht weiter.

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

Jörg

man hat nie Zeit es richtig zu machen, aber immer genug Zeit es nochmals zu machen

[Diese Nachricht wurde von jörg.jwd am 30. Nov. 2017 editiert.]

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

---

über die Systemvariable (getvar "locale") kannst du die Sprache recht gut eingrenzen

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

2017-11-30_130610.jpg

Hallo CADwiesel,

wie ich an die Sprache komme (oder umstelle) weiß ich. Da habe ich im DraftSight sogar über den Befehl _language die Möglichkeit die Sprache umzustellen (siehe Bild. Mir fällt nur nichts eine wie ich solche Abfragen richtig definieren muss:

(setq elem1 (car(entsel "\n select first line")))

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

Jörg

man hat nie Zeit es richtig zu machen, aber immer genug Zeit es nochmals zu machen

[Diese Nachricht wurde von jörg.jwd am 30. Nov. 2017 editiert.]

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

---

na so. z.B

Code:

---

(setq elem1 (car(entsel (if(equal(strcase (getvar "locale"))"DEU")"\n wähle erste Linie" "\n select first line"))))

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

(setq elem1 (car(entsel (cond
                          ((=(getvar "LOCALE")"DEU") "\n Erste Linie")
                          ....
                          ('T "\n select first line")
                        )
                )
            )
)

besser ist es natürlich , das ganze in einen Translate-Funktion zu verpacken , dann kann man über Listen mehrere Texte und mehrere Sprachen (einheitlich ) abdecken ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:

besser ist es natürlich , das ganze in einen Translate-Funktion zu verpacken , dann kann man über Listen mehrere Texte und mehrere Sprachen (einheitlich ) abdecken ...

---

Hallo Thomas,

das sieht ja schon mal ganz gut aus. Wahrscheinlich reicht mir das schon. Wenn's allerdings größere Funktionen werden würd mich deine Anregung doch interessieren. Wie sieht denn so eine Translate-Funktion aus?

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

Jörg

man hat nie Zeit es richtig zu machen, aber immer genug Zeit es nochmals zu machen

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

---

na ich würde dazu auf eine externe Txt-Datei mit den Texten zugreifen. Die könnte so aufgebaut sein :
Deutscher Text1 ; englischer Text1 ; Franz. Text1 ....
Deutscher Text2 ; englischer Text2 ; Franz. Text2 ....
Deutscher Text3 ; englischer Text2 ; Franz. Text3 ....

... die wird mit Lisp eingelesen und eine Liste draus gemacht .. und im Speicher vorgehalten

die Translatefunktion bekommt als Parameter den deutschen Vorgabetext als Paramter und durchsucht dann die Liste mittels assoc nach Übersetzungen , die richtige Übersetzung in der Teilliste wird dann durch die Sysvar LOCALE bestimmt und der gefundene Text dann zurückgeliefert, .. wird nix gefunden, wird der Originaltext zurücggegeben ...

Befehlsaufrufe könnten dann so aussehen (setq A (car(entsel (strcat"\n"(translate "Linie wählen")))))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

ich würde das anders machen, so, wie das auch auf Windows-Ebene üblich ist.
Es gibt für jede Sprache eine gesonderte Ressourcen-Datei. In der sind alle Texte enthalten, alle Texte mit dem gleichen Schlüsselwort "ansprechbar".

Code:

---

<DE-de.lsp>
'(
("selectInsert" . "Block wählen: ")
("selectInsertError" . "Sie haben keinen Block gewählt! Erneut versuchen!")
)

<EN-en.lsp>
'(
("selectInsert" . "Select Insert: ")
("selectInsertError" . "No insert lelected! Try again!")
)

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hi,

so wie Holger würde ich das auch machen.
Super an der Lösung über Lisp-Listen als Parameterdateien: Ein einfacher Load-Befehl der Datei reicht um die Parameter verfügbar zu haben.
Mache ich bei diversen Funktionen in dieser Art.
Ansonsten muss ich hier bei uns alles immer für die englische oder deutsche AutoCAD-Version bereitstellen.
(getvar "locale") gibt mir auf einem englischen Windows 7 in der englischen Version von AutoCAD "deu" zurück.
Ich mache die Lisp-Sprache immer von der AutoCAD-Sprachversion abhängig und baue dann etwas in dieser Art ein:

------------------
Ciao,
Marc

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

---

Account gehackt oder lebt der User wirklich noch?

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von cadffm:
Account gehackt oder lebt der User wirklich noch?

---

Stiller Teilhaber

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

4cc0un7 63h4ck7! c47ch m3 1f y0u c4n!

------------------
Ciao,
Marc

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

---

Hallo Marc,

schön mal wieder was von dir zu lesen. Das habe ich glaube zum letztenmal bei Induma getan   

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

Jörg

man hat nie Zeit es richtig zu machen, aber immer genug Zeit es nochmals zu machen

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