Bom, postei essa lisp aí no site do autolisp e vou colocar ela aqui também: (DEFUN C:AREA2 (/ ent pt polig model application thisdrawing Height) (vl-load-com) (setq ent (car (Entsel “\nSelecione pline”)) pt (getpoint “\nInforme o ponto de inserção”) Height (getdist “\nQual a altura do texto”) polig (vlax-ename->vla-object ent) application (vlax-get-acad-object) thisdrawing (vla-get-activedocument application) model […]
Polilinhas e suas áreas Read More »
Você ainda não usa o civil 3d? ok, tudo bem, heheheE quando você quer cotar curvas de nível, como você faz? Usa o comando “text”?aff… que tal agilizar isso um pouco?Só pra exercitar um pouco: mais… (setq dc1:altura 1.0 dc1:estilo “ARIAL” dc1:alin “mc” dc1:layer “S-CURVA_TXT”) (defun c:dc1 (/ tmp pt rot lst pt) (tbn:error-init nil)
Cotar curvas de nivel Read More »
Uma lispezinha so pra descontrair… Serve para calcular o comprimento acumulado de diversas linhas selecionadas, que podem ser LINE, SPLINE, ARC, LWPOLYLINE, POLYLINE, ELLIPSESe tiver outro tipo de linhas ( tem será? ) pode ser adaptada facilmente!!! mais… (defun c:ctotal (/ n ss soma ent) (tbn:error-init nil) (setq ss (ssget ‘((0 . “LINE,SPLINE,ARC,LWPOLYLINE,POLYLINE,ELLIPSE”))) n 0 soma 0.0) (repeat (sslength ss) (setq ent (ssname ss n) n (1+ n) soma (+ soma (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)) )) ) (prompt (fnum soma 3)) (tbn:error-restore)) Link(s) da(s) subrotina(s) usada(s):tbn:error-init, fnum, tbn:error-restore Ah claro, faço uso de algumas subrotintas, então ANTES de
