[编程交流] 解决与cvs数据——重复一个lisp

(defun C:bno(/ line prof )
(setq rad (getreal "\nRadius: "))
(setq romp (getstring "\n Start coordinates X,Y,Z: "))
(setq incl (getstring "\n dip: "))
(setq azim (getreal "\n Azimuth: "))
(setq prof (getstring "\n depth: "))
(setq angul (+ (* azim -1.0 ) 90.0 ))
(setq direc (strcat "@" prof "lst ( str / pos )
        (if (setq pos (vl-string-position 44 str))
                (cons (substr str 1 pos) (_csv->lst (substr str (+ pos 2))))
                (list str)
    )
)
(setq fo (open "c:\\acadtemp\\bore.csv" "R"))
(setq lst '())
(while (setq nline (read-line fo))
  (setq lst (cons (_csv->lst nline) lst))
)
(close fo)

(setq id (nth 0 lst)
x (nth 1 lst)
y (nth 2 lst)
z (nth 3 lst)
)
(command "text" (list x y z) "" 0.0 id) ; this depends on you text style if height is set or not.