Blöcke nach Koordinatenliste einfügen

[miste]

Hallo,
ich habe es bereits mit der "Suche" probiert aber nichts passendes gefunden.
Folgendes Problem:
Ich habe eine Ascii-Textdatei mit Vermessungspunkten (Koordinaten + sonstige Angaben).
Ich möchte nun einen bestimmten Block (mit Attributen) an den einzelnen Punkten einfügen.

Kann mir nicht vorstellen, dass dieses Problem nicht schon gelöst wurde

Ich arbeite unter AutoCAD LT 2004, notfalls steht mir auch die 2004er Vollversion zur Verfügung.

Herzlichen Dank,

Gruß
Miste

[toshni]

Code: Alles auswählen

;;;------------------------------------------------------------------------------------------------
;;; Programm: INSERTFROMLIST
;;; Funktion: Liest eine Liste mit Koordinaten und Blocknamen ein und
;;;           fügt die Blöcke entspr. ein
;;; Author:   Thomas Schnitzler (c) 2013
;;; Datum:    15.09.2013
;;; Beispieldatei (1. Wert=x, 2. Wert=y, 3. Wert=z, 4. Wert=Blockname)
;;;	665.4	869.1	0.0	"TEST2"
;;;	469.9	601.4	0.0	"TEST2"
;;;	711.8	122.6	0.0	"TEST2"
;;;	911.8	712.4	0.0	"TEST2"
;;;	561	559.1	0.0	"TEST1"
;;;	470.2	969	0.0	"TEST2"
;;;	209	669.9	0.0	"TEST2"
;;;	454.2	270.2	0.0	"TEST2"
;;;	487.1	941.7	0.0	"TEST2"
;;;	743.8	260.4	0.0	"TEST2"
;;;------------------------------------------------------------------------------------------------
(DEFUN c:insertfromlist	(/ fil lst txt)
 (SETQ fil (OPEN "c:\\DATA\\FILES\\LSP\\Koordinatenliste.txt" "r"))
 (WHILE	(SETQ txt (READ-LINE fil))	;
  (SETQ lst (EVAL (READ (STRCAT "(LIST " txt " )"))))
  (COMMAND "-EINFÜGE"			;Befehl
	   (NTH 3 lst)			;Blocknamen
	   (LIST (NTH 0 lst) (NTH 1 lst)) ;Einfügepunkt
	   1.0				;X-Skalierfaktor
	   1.0				;Y-Skalierfaktor
	   0.0				;Drehwinkel
  )
 )
 (CLOSE fil)
)