exemplo de como desenhar um TEXT com o entmakex: (defun get-alh-alv () (setq ali (vl-position (strcase ali) ‘(“L” “C” “R” “A” “M” “F” “TL” “TC” “TR” “ML” “MC” “MR” “BL” “BC” “BR”)) alh (nth ali ‘(0 1 2 3 4 5 0 1 2 0 1 2 0 1 2)) alv (nth ali ‘(0 0 […]
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
Já tentaram descobrir os pontos de interseção de duas entidades? eu já… inclusive já vi artifícios usando as funções OSNAP e INTERS… mas não são tão eficientes quanto o método usado por esta rotina: (defun get-intersectpoints (e1 e2 / tmp lst n) (setq tmp (vlax-variant-value (vla-IntersectWith (vlax-ename->vla-object (ename-of e1)) (vlax-ename->vla-object (ename-of e2)) acExtendNone)) n 0)
