Horizontal Directional Drill Lisp

[Shablab]

Hey guys,  I have a HDD bore I'm working on getting a rough sketch into autocad.  I have over 60+ rods on some of the drills.  I am wondering if there is anything that asks for typical rod length and then I can import either a .txt or excel file to get rod angles from?  The lisp I am looking for would, in this case, put polylines 15 feet long, back to back, at the respective pitches (-31%, -31%, -29%) which I converted into angles in degrees.

 

Let me know how I can go about this or if anyone wants more information.  Thank you.

 

 

 

[ronjonp]

Here is a simple example:

(defun c:foo (/ d l p)
  ;; RJP » 2020-10-13
  ;; Depths
  (setq l '(0. 3. 7.5 12. 15.5 23 33 43 100))
  ;; Rod distance
  (setq d 15.)
  ;; Start point
  (setq p (list 0. 0. (car l)))
  ;; Make lines
  (foreach x (cdr l)
    (entmakex (list '(0 . "LINE")
		    '(8 . "RODS")
		    (cons 10 p)
		    ;; Set point + distance and at Z value in list
		    (cons 11 (setq p (list (+ d (car p)) (cadr p) x)))
	      )
    )
  )
  (princ)
)

 

[dspok]

Just curious. i work in plan view and maybe its a european problem.

but how can i change it to draw horizontally and vertically downwards in plan view.

thankyou

[huygens]

how can this be made to work in planview?

[BIGAL]

Dspok so you want a 3d pline it would need maybe X & Y pitch then could draw vertically. 

 

line 0,0,0 0,2,10 3,3,20 0,0,40

-vpoint 1,1,1

 

Shalab post excel or txt and a dwg please.

 

Edited February 24, 2022 by BIGAL

[huygens]

thank you Bigal. I wasnt uptodate with this thread. Email problems.

 

anyway. Ronjonp had a good lisp. And your hints are good.

 

thankyou BIGAL. <- years active here