Blöcke nach Koordinatenliste einfügen

Was für ein Lisp-Tool sucht ihr? Oder welches Problem bedarf einer Lösung?

Moderator: Moderator

Antworten
miste
Newbie
Beiträge: 1
Registriert: Fr 26. Jan 2007, 11:40
Wohnort: Österreich

Blöcke nach Koordinatenliste einfügen

Beitrag von miste » Fr 26. Jan 2007, 11:47

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 :roll: :?:

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

Herzlichen Dank,

Gruß
Miste

Benutzeravatar
toshni
Newbie
Beiträge: 9
Registriert: Sa 2. Jan 2010, 18:20
Kontaktdaten:

Re: Blöcke nach Koordinatenliste einfügen

Beitrag von toshni » So 15. Sep 2013, 11:59

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

Antworten