get-tan-of-pt

Como calcular o ângulo da reta tangente à curva num determinado ponto:

(defun get-tan-of-pt (ent pt / deriv param ang)
  (
if (setq ent (ename-of ent))
    (
if (setq param 
          (vlax-curve-getparamatpoint ent pt))
      (
setq deriv 
        (vlax-curve-getfirstderiv ent param)
            ang   (angle '(0 0) deriv)))))


Ent é a ename da entidade, pt é uma coordenada SOBRE a linha, o retorno será em radianos, sentido anti-horário, em relação a X do WCS

LinkWithin

Related Posts Plugin for WordPress, Blogger...