[编程交流] 检索VLA obj的顶点

(vl-load-com)
(setq *KEYS* (list "wall"))
 
(defun getUserInput (/ ent nms)
 (foreach e *KEYS*
   (if        (setq ent (car (entsel (strcat "Select " e " line \n"))))
     (if (eq (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
(setq lst (cons (list e (vlax-ename->vla-object ent)) lst))
(princ "\n the selected entity is not a pline")
)
     )
   )
 )
(defun getLayoutStracture ( data / obj p x)
(setq x 1)
(if(setq obj (cdr (assoc "wall" data)))
  (while (setq p (vlax-curve-getPointAtParam obj x))
    (setq x (1+ x))
    )
)
)
(defun main (/ userInput )
  (setq userInput (getUserInput))
 (getLayoutStracture userInput)
   )

(setq coords (vlax-safearray->list (vlax-variant-value (vlax-get-property pl-obj 'Coordinates))))

(setq pl-obj  (vlax-ename->vla-object (car(entsel)))) 
(setq lst (setq coords (vlax-safearray->list (vlax-variant-value (vlax-get-property pl-obj 'Coordinates)))))

(setq n 0) ;n will be our counter
(setq len (/ (length lst) [color="red"]2[/color])) ;This is the number of vertices
(repeat len
 (setq x (nth n lst)); we have the x from the nth of the list
 (setq y (nth (+ n 1) lst)); we have the y from the nth + 1 of the list
 (setq xy (list x y))
 ;do something with the xy
 (setq n (+ n 2)); increment the counter by 2
);end repeat

;;                                                                            ;
;; listpol     by ymg    (Simplified a Routine by Gile Chanteau               ;
;;                                                                            ;
;; Parameter:  en,  Entity Name or Object Name of Any Type of Polyline        ;
;;                                                                            ;
;; Returns:    List of Points in Current UCS                                  ;
;;                                                                             
;; Notes:      On Closed Polyline the Last Vertex is Same as First)           ;
;;                                                                            ;
(defun listpol (en / i l)
  (repeat (setq i (fix (1+ (vlax-curve-getEndParam en))))
     (setq l (cons (trans (vlax-curve-getPointAtParam en (setq i (1- i))) 0 1) l))
  )
)

; pline co-ords example
; By Alan H
(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 len (length co-ords))
(setq numb (/ len 2)) ; even and odd check required
(setq I 0)
(repeat numb
(setq xy (list (nth i co-ords)(nth (+ I 1) co-ords) ))
; odd (setq xy (list (nth i co-ords)(nth (+ I 1) co-ords)(nth (+ I 2) co-ords) ))
(setq co-ordsxy (cons xy co-ordsxy))
(setq I (+ I 2))
)
)
; program starts here
(setq co-ords (getcoords (car (entsel "\nplease pick pline"))))
(co-ords2xy) ; list of 2d points making pline

(defun getcoords (ent)
 (vlax-get (vlax-ename->vla-object ent) 'coordinates)
)