Total Length

[mousho]

I'm trying to get the length of pline in a lisp and wonder if there is a fast way.

i try to change a lisp of area but there isnt getvar for lengthen.

 

area lisp:

(Command "area" "e" ent "text" "m" pause (* (GetVar "DimScale") S) pause (StrCat "S=" (Rtos (GetVar "area")) 2 2)))

 

length lisp:

(Command "LENGTHEN" "L" "" "text" "m" p333 4.8 "0" (StrCat "S=" (Rtos (GetVar "LENGTHEN") 2 2)))

 

ill be glad if someone would help me with this

[ReMark]

Are you trying to get the length of just one pline or are you trying to get the total length of several plines?

 

Here is a lisp you might be interested in...

 

https://ravikumarvemana.wordpress.com/2011/10/17/to-get-the-length-of-selected-linesplinelwpolypolylines/

[mousho]

i'm trying to get the length of just one pline.

i change the line to:

(Command "LENGTHEN" "L" "" "text" "m" p333 4.8 "0" (StrCat "S=" (Rtos (GetVar "Perimeter") 2 2)))

 

for now it's work for me.

[ReMark]

Is this part of a much larger routine?

[mousho]

yes. this part of a much larger routine

and i'm new with the lisp programming

so thanks for the respond and the forum

[alanjt]

(vla-get-length (vlax-ename->vla-object (car (entsel))))

[Lee Mac]

Another:

(defun getlength ( ent / par )
   (if (not (vl-catch-all-error-p (setq par (vl-catch-all-apply 'vlax-curve-getendparam (list ent)))))
       (vlax-curve-getdistatparam ent par)
   )
)

(getlength (car (entsel)))

[alanjt]

Another:

(defun getlength ( ent / par )
   (if (not (vl-catch-all-error-p (setq par (vl-catch-all-apply 'vlax-curve-getendparam (list ent)))))
       (vlax-curve-getdistatparam ent par)
   )
)

(getlength (car (entsel)))

 

Also, this method will work on lines, circle, arc, lwpolylines, 2d polylines, 3d polylines, etc.