CADwiesel's Forum

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)
)