[编程交流] 3dpolyline例程

(if (and (setq s (car (entsel "\n Select [Polyline,SPline,Line,Arc] : ")))
        (wcmatch (cdr (assoc 0 (entget s))) "*POLYLINE,SPLINE,LINE,ARC")
   )
 (setq l (vlax-curve-getdistatparam s (fix (vlax-curve-getendparam s))))
)

(defun getcoords (ent)
 (vlax-safearray->list
   (vlax-variant-value
     (vlax-get-property
   (vlax-ename->vla-object ent)
   "Coordinates"
     )
   )
 )
)
(defun co-ords2xy ()
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
(setq numb (/ (length co-ords) 2))
(setq I 0)
(repeat numb
(setq xy (list (nth (+ I 1) co-ords)(nth I co-ords) ))
(setq coordsxy (cons xy coordsxy))
(setq I (+ I 2))
) ; end repeat
)
(setq plobjs (ssget (list (cons 0 "*polyline"))))
(setq numb1 (sslength plobjs))
(setq x numb1)
(repeat numb1
(setq obj (ssname plobjs (setq x (- x 1))))
(setq co-ords (getcoords obj))
)
(co-ords2xy)
(setq inc (length coordsxy))
(repeat (/ inc  2) 
(setq x (rtos (nth (setq inc (- inc 1)) co-ords) 2 3 ))
(setq y (rtos (nth (setq inc (- inc 1)) co-ords) 2 3 ))  
(setq xy (strcat x "," y ))
 (princ xy)
 (princ "\n ")
 )
(setq ent nil) (setq obj nil)(setq plobjs nil)