---

Grüßt euch alle miteinander,

Ich bin gerade dabei die Zeichenvorlge in der Arbeit zu überarbeiten. Dazu gehört "leider" auch der Plankopf. Derzeit nutzen wir noch globale Variabelen um Straße, Name etc auszufüllen.

Das soll aber nun automatisch passieren. Daher erstellt unser ERP System nun eine Ini-Datei mit allen wichtigen Werten. Diese Datei liegt in der gleichen Speicherebene wie unsere Zeichnung. Ich bin bis jetzt erfolgreich daran verzweifelt mir die Werte auslesen zu lassen. Das Ziel ist es die verschiedenen Werte in Feldern auszugeben weche automatisch über eine Lisp programierung abgefrugfen werden wenn man die Zeichen Datei öffnet.

Kann mir jemand helfen ?

mit freundlichen Grüßen

Christoph

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

---

Klar! Wie weit bisde denn schon mit Auslesen usw...?

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

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

---

Ich habe bereits einige befehle rausgesucht die ich benötige (bitte korrigieren falls ich was falsch habe ):

DEFUN read_file (/ inifile attribs) ->Befehl für lesen der Datei
  (SETQ inifile "P:\test.ini")      ->Datei auswählen mit Dateipfad
  (SETQ inifile (OPEN inifile "r")) ->Befehl für öffnen der Datei
  (SETQ line (READ-LINE inifile))  ->Wert lesen aus der nächsten Zeile
  --> hier springe ich schon in die zweite Zeile oder ? bzw wiederhole den Befehl bis ich die Wunsch Zeile erreicht habe?

  (SETQ attribs (READ-LINE inifile)) -> Gelesenen Wert als Attribut festlegen

(CLOSE inifile)

); End Defun

So und nun bin ich mit meinem Latein am Ende und habe 2 Fragen

1 passen die Befehle
2 Wie bekomme ich sie in ein Feld das sich mit Zeichnungsöffnung aktualisiert

Danke für die Möglichen Rückmeldungen

Grüße Christoph

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

---

Grundsätzlich ist eine *.ini Datei aber nach einer festgelegten Struktur aufgebaut und nicht nur einfach eine *.txt Datei.
Mit dem Code kannst du erstmal alles aus der ini oder was auch immer für eine Asccii Datei auslesen

Code:

---

(DEFUN read_file (/ inifile attribs) ;->Befehl für lesen der Datei
  (SETQ inifile "P:\test.ini")      ;->Datei auswählen mit Dateipfad
  (SETQ inifile (OPEN inifile "r")) ;->Befehl für öffnen der Datei
  (while
    (= (type (SETQ line (READ-LINE inifile)))'str)  ;->Wert lesen

  (SETQ attribs (cons line attribs)) ;-> Gelesenen Wert zu Liste hinzufügen
  )

(CLOSE inifile)
attribs
(princ)
); End Defun

---

Jetzt müsstest du aus der Variablen attribs den oder die benötigten Werte aussieben und dann kommt der Teil, den du auch noch nicht hast, um den/die Werte in Felder oder Attribute oder was auch immer reinzuschreiben.

Ich vermute mal es sollen Attribute einer Blockreferenz sein.
Dazu musst du diese ermitteln:

Code:

---

(if (setq awahl(ssget "X"(list '(0 . "INSERT")(cons 2 "BLOCKNAME") '(410 . "MODEL))))
....mach was
)

---

Jetzt die Attribute...
vla-get-attributes
oder per while Schleife durch die Elemente etwa so:

Code:

---

(while
          (/= "SEQEND"
            (cdr (assoc 0 (entget (setq Ename (entnext Ename)))))
          )
          (setq res (cons Ename res))
        )

---

und schon bist du fast fertig

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

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

---

Hallo Christoph,
ich schreibe seit vielen Jahren meine INI-Dateien so, dass ich direkt mit load die Datei laden kann.
(setq ini-list (load ini-pfad))

Die INI-Dateien werden bei mir mit einem LISP-Tool editiert dass sich auch um die Struktur kümmert.
Die Struktur ist einfach eine Liste und ist so aufgebaut dass ich mit assoc auf einzelne Einträge zugreifen kann.
EDIT: Assoc, wenn der erste Eintrag jeweils mit car geändert wurde und die Info mit Datum und Uhrzeit damit wegfällt

In der Datei muss nur "(quote" vor der eigentlichen Liste stehen und eine schließende Klammer am Dateiende.

Beispiel (gekürzt):

(quote (

(("Symbolpfade" "2020-08-18, 15:44:49") (("0" "./0/") ("1" "./1/") ("2" "./2/") ("3" "./3/") ("M" "./M/") ("4" "./4/") ("4C" "./4C/") ("5-1" "./5-1/") ("k_styles" "./")))
(("Layerdateien" "2020-05-29, 10:51:46") ("./k_.lay"))
(("Layerdatei" "2020-05-29, 10:51:46") "./k_.lay")
(("Stile" "2020-05-29, 10:51:46") "./k_styles.dwg")
...
...
...
))

Funktioniert wunderbar und Listen sind ja in LISP gut zu verarbeiten.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 05. Nov. 2024 editiert.]

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