Ctotal

Uma lispezinha so pra descontrair... Serve para calcular o comprimento acumulado de diversas linhas selecionadas, que podem ser LINE, SPLINE, ARC, LWPOLYLINE, POLYLINE, ELLIPSE
Se 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 dizer que não funcionou, baixe as subrotinas... tem os links para elas no final da lisp... E claro, salve tudo num único arquivo, pra facilitar

Ou baixe isto: ctotal.fas

Carregue com o appload normalmente....

LinkWithin

Related Posts Plugin for WordPress, Blogger...