---

ich habe mit lisp ein Programm geschrieben das Script-Dateien erstellt mit denen anschließend Blöcke in Zeichnungen eingefügt werden, dessen Attribute ausgefüllt werden. Dies funktioniert auch seit Jahren.
Nun möchte ich die Attributfelder mit cyrillischen Zeichen ausfüllen. Dabei werden aber anschließend die cyrillischen
Zeichnen nicht mehr richtig dargestellt.
Ich habe diese durch lisp erstellte Scrpt-Datei in Notepad ++ angeschaut und das Format war utf-8 ohne Bom.
Wenn ich das Format mit Notepad++ manuell auf utf-8 konvertiere kann ich die Script Datei ausführen und die cyrillischen Zeichen werden alle richtig imAutoCAD dargestellt.

Wie kann ich nun dies automatisieren. Welche Möglichkeiten gibt es?
z.B.
A. Kann ich im lisp sagen wie ich für eine neuerstellten Scriptdatei das Format codiere?
B. Kann ich beim Ausführen der Scriptdatei sagen mit welchen Format ich die Datei einlese und ausführen?

gruss
mfc

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

---

hallo mfc,
haste es mal fuers schreiben damit probiert(keine ahnung, obs funktioniert):

Code:

---

(vl-load-com)
(setq fso (vlax-create-object "Scripting.FilesystemObject")
(setq dat (vlax-invoke-method fso 'opentextfile
                                      ;; Filename as String
                                      filename
                                      ;; IOMode as IOMode:
                                      ;; ForAppending = 8
                                      ;; ForReading = 1
                                      ;; ForWriting = 2
                                      2
                                      ;; Create As Boolean
                                      :vlax-false
                                      ;; Format As Tristate:
                                      ;; TristateFalse = 0  'Öffnet die Datei als ASCII.
                                      ;; TristateMixed = -2 'Öffnet die Datei mit dem Systemstandard.
                                      ;; TristateTrue = -1 'Öffnet die Datei als Unicode.
                                      ;; TristateUseDefault = -2
                                      -1)
                  )
(vlax-release-object fso)

---

dann fuer jede zu schreibende zeile

Code:

---

(vlax-invoke-method dat 'writeline string)

---

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Hallo Marco

ich konnte nun die Script Datei als UNICODE mit deiner Funktion abspeichern(erstmal Danke dafür), aber wenn ich die Datei nun mit den Editor notepad++  öffne, dann werden alle Zeichen nicht mehr richtig dargestellt. Und damit wird die ScriptDatei auch nicht mehr richtig ausgeführt.

Gruß

mjc

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