Olá!! Dias corridos ultimamente, hehehe Olhaí, a enquete acabou e o tema mais votado foi lisp, seguido de superelevação. Bom, como lisp é um assinto mais complexo, vou deixar para a continuação do cursinho, ok? Vamos de superelevação e superlargura desta vez. Basicamente estes dois itens não deveriam ter muito mistério, é só definir os …
Civil 3D – Tutoriais – Superelevação e Superlargura Leia mais »
Dica de hoje: Como fazer seção de corredor, sem modelar o corredor!!!Bem, quase, hehehehe!!! A idéia é usar um recurso que pouca gente sabe, mas que na hora de “refinar” o greide ou mesmo o alinhamento, ajuda pra caramba. Pra começar, tenha um alinhamento com greide e tenha uma seção típica. Faça uma única sampleline …
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 …
