[编程交流] 多段线长度

(defun c:PolyLen (/ ss)
 (vl-load-com)
 (if (ssget '((0 . "*POLYLINE")))
   (progn
     (vlax-for obj (setq ss (vla-get-ActiveSelectionSet
                              (vla-get-ActiveDocument
                                (vlax-get-acad-object))))
       (print (vla-get-length obj)))
     (vla-delete ss)))
 (princ))

Sub Example_Length ()
   Dim lineObj As AcadLWPolyline
   Dim Points(0 To 9) As Double
   points(0) = 1: points(1) = 1
   points(2) = 1: points(3) = 2
   points(4) = 2: points(5) = 2
   points(6) = 3: points(7) = 2
   points( = 4: points(9) = 4
   ' Create the line in model space
   Set lineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   ThisDrawing.Application.ZoomAll
   
   MsgBox "The length of the new Line is: " & lineObj.length
End Sub

(defun c:PLen (/ ent Len)
 (vl-load-com)
 (while
   (progn
     (setq ent (car (nentsel "\nSelect Object: ")))
     (cond (  (eq 'ENAME (type ent))
              (if (vl-catch-all-error-p
                    (setq Len
                      (vl-catch-all-apply (function vlax-curve-getDistatParam)
                        (list ent (vlax-curve-getEndParam ent)))))
                (princ "\n** Invalid Object **")
                (princ (strcat "\n-->>  Length = " (rtos Len)  "  <<--")))))))
 (princ))