Variable Daten in einer Textdatei extrahieren

[bnfnrc88]

hallo, alle.
große linien ich habe eine lispe erstellt, die es erlaubt, variablen einzufügen und dann ein design zu realisieren.
speichern sie dieses design mit einem namen wie "r001.dwg".

ich möchte, dass der deckel automatisch eine "r001.txt"-datei mit den variablen erzeugt, die ich verwendet habe, und die werte, die ich ihnen zugeschrieben habe. auf diese weise kann ich dann überprüfen, welche daten ich zum zeitpunkt der erstellung der lispe eingegeben habe.

wissen sie, wie es zu tun ist oder ob es eine gültige alternative zu dieser methode gibt?

:wink: danke

 

[GP.]

in dwg können sie "benutzer" variablen verwenden, um daten zu speichern, oder:

useri1 - useri2... useri5 für zahlen i)nterien
userr1 - userr2... userr5 für zahlen Reali
benutzer1 - benutzer2.... benutzer5 pro Strinkets

problem #1 - die anzahl der variablen ist auf 5 für jede art von daten begrenzt.
problem nr. 2 - bei verwendung und benutzer werden im dwg gespeichert, benutzer sind nicht (die weiß warum).

wenn sie daten auf dateien speichern möchten, geben sie ein beispiel an, um zu speichern gleiche ordner wie die dwg datei nicht verfügbar bezeichnung ma estensions txt.

die variablen ich habe betrachtet:
(setq var1 45)
(setq var2 189.23) --> real
(setq var3 "pluto") --> string

sehen sie sich an, wie ich die verschiedenen arten von daten behandelte, wenn man bedenkt, dass sie bei txt nur strings passieren können (und zurückziehen).

(defun scrivi_file)

(vl-load-com)

(setq nomefile (strcat (getvar "dwgprefix") (vl fileame-base (getvar "dwgname")) ".txt")

(setq f (open nomefile "w"))

(Schreiblinie) f)
(Schätzung (rtos was2) f)
(write-line was3 f)

(in there nähe f)

)

(defun playgi_file)

(vl-load-com)
(setq nomefile (strcat (getvar "dwgprefix") (vl fileame-base (getvar "dwgname")) ".txt")
(setq f (open nomefile "r")
(Fälle)
(Prog.)

(setq was1 (atoi (read-line f)))
(setq was2 (atof (read-line f)))
(setq was3 (read-line f)

(in der nähe f)
)
)
)

den pfad beim aufbau des dateinamens ersetzen zu wollen.

:smile: