Programas

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 […]