Was für ein Lisp-Tool sucht ihr? Oder welches Problem bedarf einer Lösung?
Moderator: Moderator
-
miste
- Newbie
- Beiträge: 1
- Registriert: Fr 26. Jan 2007, 11:40
- Wohnort: Österreich
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
Ich arbeite unter AutoCAD LT 2004, notfalls steht mir auch die 2004er Vollversion zur Verfügung.
Herzlichen Dank,
Gruß
Miste
-
toshni
- Newbie
- Beiträge: 9
- Registriert: Sa 2. Jan 2010, 18:20
-
Kontaktdaten:
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)
)