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)
Quem já desenhou uma hachura e, por algum motivo, apagou as linhas que delimitavam esta hachura e depois quiz alterar a dita cuja? Mas sem os contornos, como fazêlo? é o que esta rotina faz, desenha os contornos que definem esta hachura…que faz arquitetura deverá usar bastante, pra hachurar as “linhas do terreno” (defun c:cn2hatch
