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

Deixe um comentário

Carrinho de compras
Rolar para cima