Topic: Tough Questions - Override "Z" Elevation Lisp

[Keith™]

Well, there are others posting solutions so I figured what the heck ... I'll add my 2p

Code: [Select]

(defun dist2D (pt1 pt2)
  (apply 'distance
    (mapcar
      '(lambda (x)
        (if (= (length x) 3)
         (reverse (cdr (reverse x)))
         x
        )
       )
       (list pt1 pt2)
    )
  )
)


[alanjt]

http://www.theswamp.org/index.php?topic=30416.0

[johnshar123xx]

Wow, I thank you all for taking the time to help me out with this and any of my other questions, it is greatly appreciated, it appears as if OSNAPZ does the trick.  I realize that some of my requests are rather complex, I wish I had the ability to write lisps myself, I am looking into it, but the lisps users are supplying to answer my questions help me to get an idea as to what it takes to create them.  I still have quite a few questions, so thanks again ahead of time to those willing to lend their time and knowledge to help.