Hi guys, I have this poorly made code that I use to create a borehole by entering its start coordinates along with its dip, azimuth and length.
(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 "<" (rtos angul 2 4) "<" incl))
(command "_line" romp direc "")
(setq line (entlast))
(command "_circle" "0,0,0" rad)
(setq prof (entlast))
(command "_sweep" "_MO" "_SO" prof "" line)
(command "_erase" prof "" "")
(princ)
)
I find it useful when it is just one or a few, but I would like to be able to use it to read a CSV file with a long list of boreholes and be able to display them in autocad.
I took a look at LeeMac's Read CSV, but I don't know enough to know how to extract the information from the list and use it for drawing.