Esta subrotina é útil nos casos quem que você precisa das coordenadas do retângulo que circunscreve uma determinada entidade… pra dar um “zoom” nela por exemplo… vejam como eu usei o método boundingbox do activex: (defun get-bounding-box (ent / maxp minp) (setq ent (vlax-ename->vla-object (ename-of ent))) (if (vl-catch-all-error-p (vl-catch-all-apply ‘vla-GetBoundingBox (list ent ‘minp ‘maxp))) (list […]
editado em 01/12/2006: Lwpolylines usam o dxf 10 em OCS, é preciso converter para WCSEsta subrotina me ajuda em muitas das minhas rotinas, ela serve para coletar as coordenadas das linhas… sei que dá pra usar as subrotinas do express, mas nem todo mundo usa, por isso prefiro programar as minhas próprias… (defun get-points-polig (ent
Usei esta subrotina, mas não a defini na rotina Mlh2mas ai está: (defun tan (ang) (/ (sin ang) (cos ang)))
