Topic: Calculating a point defining a line

[Keith™]

Great solutions .. I was able to utilize both of the solutions from CAB and Evgeniy and I now have a working solution.

Thanks for the help guys ... I really appreciate it.

Code: [Select]

(defun getPx (pt1 pt2 thick / ang)
  (defun asin (z /)
    (atan z (sqrt (- 1.0 (* z z))))
  )
  (defun absdis (p1 p2)
    (abs (- p1 p2))
  )
  (setq ang (- (/ pi 2.0) (asin (/ thick (distance pt1 pt2)))))
  (polar pt1 (+ ang (atan (/ (absdis (cadr pt1) (cadr pt2)) (absdis (car pt1) (car pt2))))) thick)
)