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
Nenhum comentário:
Postar um comentário