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 …
Extender Sample Lines Leia mais »