Já está disponível para download o c3drenesg2, agora com suporte ao civil 3d 2011 64 bits (agora para 32 e 64 bits!!!). Ah, lembrando que o C3DRENESG também roda no 2008, 2009 e 2010. o link é: C3D_DREN_ESG Ela conta com: preview de multiplos trechos na planilha, com zoom esquemático da planta, com zoom e […]
Sabe aquelas horas que voce precisa “extender” uma sample line até algum lugar, para que a seção mostre tudo o que voce quer? Já reparou como pode ficar lento estrechar uma a uma na mão? É… Eu também reparei… Bom, vamos tentar agilizar isso com o programinha abaixo: (defun C:EXTENDSECTION (/ e1 e2 ss pt p2 d dmax align sta offset vertex v fun) (tbn:error-init nil) (prompt “nSelecione a polilinha até onde extender”) (setq e1 (vlax-ename->vla-object (ssname (ssget “:S” ‘((0 . “LWPOLYLINE”))) 0))) (prompt “nSelecione as sample lines”) (setq ss (ssget ‘((0 . “AECC_SAMPLE_LINE”)))) (repeat (sslength ss) (setq e2 (vlax-ename->vla-object (ssname ss 0)) align (vlax-get-property (vlax-get-property e2 “Parent”) “Parent”) pt (vlax-safearray->list (vlax-variant-value (vla-IntersectWith e1 e2 acExtendOtherEntity))) pt (list (car pt) (cadr pt) 0.0) dmax 0) (vlax-invoke-method align “StationOffset” (car pt) (cadr pt) ‘sta ‘offset) (setq fun (if (> offset 0) > <) vertex nil) (vlax-for v (vlax-get-property e2 “vertices”) (setq off (vlax-get-property v “stationoffset”)) (if (fun off dmax) (setq vertex v dmax off))) (if vertex (vlax-put-property vertex “location” (vlax-3d-point pt))) (ssdel (ssname ss 0) ss) ) (tbn:error-restore)) Link(s) da(s) subrotina(s) usada(s):tbn:error-init, tbn:error-restore
Se você está usando o windows Vista, Seven, ou Xp sp3, talvez tenha problemas com alguns comando que precisam acessar o disco, por exemplo, no tutorial 1.1, onde eu ensino a definir um referencial. pode ser que ele diga que não é possível criar alguma coisa, como por exemplo o “Categories”. Isso acontece porque o
