Um tutorialzinho pra descontrair, hehehehjá que tá aparecendo outro concorrente, hehehe O que eu acho ótimo, porque essa dica eu meio que “roubei” dele e tava na hora de alguem mais dizer “comofas” em vez de perguntar “comofas“ Bom, vamos lá, essa dica vai ajudar a você aprender um pouquino sobre expressions e qual é […]
Está disponível a versão DEMO do programa NotaServ, que faz… claro, hehehe, nota de serviço!!! Ainda está em desenvolvimento, mas já dá pra tirar algumas coisas, por exemplo: Na imagem, vemos os dados que já podem ser solicidados, e ao clicar “Calcula”, vemos: E podemos salvar isso em html, clicando o botão Salvar. Note que
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
