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
Se alguem já usou o CAR, CADR, CAADR, etc, deve ter sentido falta de recuparar uma lista de elementos no meio da lista, exemplo: ( 1 2 3 4 5 6 ) se eu querer pegar os elementos do 2º ao 4º, temos (3 4 5), mas como fazê-lo?pode ser assim: (defun sub-list (lst a
