TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: well20152016 on March 23, 2018, 07:39:53 PM

Title: [challenge - C point coordinates]
Post by: well20152016 on March 23, 2018, 07:39:53 PM

[challenge - C point coordinates]
It is known that:
1. space point O
2. point A
3. point B
4. length L
Results: C point coordinates

Title: Re: [challenge - C point coordinates]
Post by: Lee Mac on March 23, 2018, 08:13:43 PM

The Cross Product (https://en.wikipedia.org/wiki/Cross_product) is your friend.  :-)

Title: Re: [challenge - C point coordinates]
Post by: VovKa on March 23, 2018, 08:19:28 PM

it does not look like a chalenge
OP is just looking for the formula :)

goto https://www.theswamp.org/index.php?topic=37319.msg423645#msg423645
and combine 21.zip with 25.zip

Title: Re: [challenge - C point coordinates]
Post by: GP on March 24, 2018, 05:47:48 PM

(setq C (cal "pld(O,O+nor(A,B,O),L)"))

Title: Re: [challenge - C point coordinates]
Post by: ahsattarian on February 01, 2021, 10:11:07 AM

Quote from: GP on March 24, 2018, 05:47:48 PM

(setq C (cal "pld(O,O+nor(A,B,O),L)"))

  It was Excellent  !!!    Thanks   I  Used it as :


(defun c:a ()
  (setvar "osmode" 12287)
  (setq p1 (getpoint "\n Base Point : "))
  (setvar "autosnap" 39)
  (setvar "orthomode" 0)
  (setq p2 (getpoint " First Hand : " p1))
  (grdraw p1 p2 2 1)
  (setq p3 (getpoint " Second Hand : " p1))
  (grdraw p1 p3 3 1)
  (cond ((not c:cal) (arxload "geomcal")))
  (setq po (cal "pld(p1,p1+nor(p2,p3,p1),1.0)"))
  (print (acet-geom-unit-vector p1 po))
  (command "3dpoly" p1 p2 p3 p1 po "close")
  (princ)
)

Title: Re: [challenge - C point coordinates]
Post by: ribarm on June 28, 2022, 12:17:02 AM

Euler would laugh on this...
Laughing something, but plutonning joking... Or is it ???