Zanna91
Guest
mit dieser anwendung können sie in autocad eine reihe von punkten, die in einer txt-datei aufgezeichnet und verbinden sie mit linien. jede zeile der datei enthält die daten eines punktes: code;x;y;z getrennt von einem punkt und komma. der benutzer kann entscheiden, punkte 2d oder 3d (und dann zeilen 2d oder 3d) zu erstellen; zusätzlich zu dem punkt und den zeilen werden der code und die quote des punktes auf verschiedenen schichten geschrieben.
gusseisen: www.sepram.comgrüßen,
Jacomo
Code:
(defun c:txt-points-line (/ pointprec)
(wenn nicht skalieren-txt)(setq scale-txt(getreal "\n schreibhöhe: ")
(seq type(getint)\n points 2d or 3d <2/3>: ")
(Setvar "cmdecho" 0)
(setq dateiname(getfiled "select the name of the dot file" "txt" 4))
(Setq Separator ";")
(setq name-f(open filename "r"))
(setq zählt 1)
(setq line(read-line name-f)
(while line)
(setq lriga(starke reihe))
(sektq i 0)
(satzwert ")
(Setq n "" x "" y "" z "")
(Repeat)
(lett-car)
(falls)
(satzwert(spurwert lett-chr))
(cond)
((=n "")(setq n-wert ")))
((= x "")(setq x value ""))
((= y "")(setq y value "))
((= z "")(setq z-wert ")))
)
)
Warte. . einführpunkt n.
)
(cond)
((=n "")(setq n-wert ")))
((= x "")(setq x value ""))
((= y "")(setq y value "))
((= z "")(setq z-wert ")))
)
(setq point(list (atof x) (atof y) (atof z)))
(setq pointxy(list (atof x) (atof y) 0.0))
(Befehl "_layer" "_m" "0_points" \r)
(falls pointprec)
(Befehl "_layer" "_m" "0_linee" \r)
(falls (= Typ 3)(befehl "_line" pointprec \r)(befehl "_line" pointprec \r))
)
(falls = Typ 3)
(Progn)
(Befehl "_point" punkt \r)
(sectq pointprec punkt)
)
(Progn)
(Befehl "_point" pointxy \r)
(setq pointprec puntoxy)
)
)
(setq xy(polar puntoxy 0(/ scala-txt 2)))
(Setq xygiu(polar xy (* Pi 1.5) (* Scale-txt 1.3)))
(setq xysu(polar xy (* pi 0.5) (* scale-txt 0.3)))
(Befehl "_layer" "0_codes" \r)
(Befehl "_text" xysu
(rtos scala-txt 2 2)
"0"
Nein
\r)
(Befehl "_layer" "_m" "quote" \r)
(Befehl "_text" xygiu
(rtos scala-txt 2 2)
"0"
(rtos (atof z) 2 2)
\r)
(setq count(+ count 1))
(setq line(read-line name-f)
(wenn (= zeile")(setq zeile(read-line name-f))
)
(Name schließen)
(princ)
)
(defun lett-car)
(seq i(+ i 1))
(setq lett-chr(substr zeile i 1))
)
(setq typ nil)
(setq scale-txt nil)
(princ "\n software zum einfügen in die zeichnung von punkten")
(princ "\n 2d oder 3d und die linien, die sie verbinden. koordinaten werden aus einer .txt-Datei gelesen")
(princ "\n have einen punkt auf jeder zeile.")
(princ "\n zeilenformat: code;x;y;z getrennt von einem punkt und komma. "
(princ) <copyright: claudio="" granuzzo="" ing.=""> "
(princ "\n type txt-points-line, um das Programm zu starten!")
(princ)</copyright:>gusseisen: www.sepram.comgrüßen,
Jacomo