[求助]怎样提取POLYLINE线各拐点坐标?

lht

如题,在POLYLINE线的群码表里是没有坐标的,请问要通过什么方法得到各拐点坐标呢?

Andyhon

http://hi.baidu.com/123523058/blog/item/1ed19c034756b7703812bb40.html

lht

谢谢Andyhon

highflybir

3. ;;Using DXF codes vertices are sub entities of the 3dpoly, have to use (entnext ...)
4. (defun get-3dpoly-by-alisp (poly / vtx elst lst)
5.   (setq vtx (entnext poly))
6.   (while (/= (cdr (assoc 0 (setq elst (entget vtx)))) "SEQEND")
7.     (setq lst (cons (cdr (assoc 10 elst)) lst)
8.    vtx (entnext vtx)
9.     )
10.   )
11.   (reverse lst)
12. )
13. ;;Another way using VisualLISP
14. (defun get-3dpoly-by-vlisp (poly / )
15.   (vl-load-com)
16.   ;; Split a flat list into a points list
17.   (defun 3d-coord->pt-lst (lst)
18.     (if lst
19.       (cons (list (car lst) (cadr lst) (caddr lst))
20.      (3d-coord->pt-lst (cdddr lst))
21.       )
22.     )
23.   )
24.   (3d-coord->pt-lst
25.     (vlax-get (vlax-ename->vla-object poly) 'Coordinates)
26.   )
27. )
28. ;;test
29. (defun C:test ()
30.   (if (setq 3dpoly (car (entsel)))
31.     (if (= (cdr (assoc 0 (entget 3dpoly)))  "POLYLINE")
32.       ;;(get-3dpoly-by-alisp 3dpoly)  ;1ST way
33.       (get-3dpoly-by-vlisp 3dpoly) ;2ND way
34.     )
35.   )
36. )

;;Using DXF codes vertices are sub entities of the 3dpoly, have to use (entnext ...) (defun get-3dpoly-by-alisp (poly / vtx elst lst)   (setq vtx (entnext poly))   (while (/= (cdr (assoc 0 (setq elst (entget vtx)))) "SEQEND")     (setq lst (cons (cdr (assoc 10 elst)) lst)    vtx (entnext vtx)     )   )   (reverse lst) ) ;;Another way using VisualLISP (defun get-3dpoly-by-vlisp (poly / )   (vl-load-com)   ;; Split a flat list into a points list   (defun 3d-coord->pt-lst (lst)     (if lst       (cons (list (car lst) (cadr lst) (caddr lst))      (3d-coord->pt-lst (cdddr lst))       )     )   )   (3d-coord->pt-lst     (vlax-get (vlax-ename->vla-object poly) 'Coordinates)   ) ) ;;test (defun C:test ()   (if (setq 3dpoly (car (entsel)))     (if (= (cdr (assoc 0 (entget 3dpoly)))  "POLYLINE")       ;;(get-3dpoly-by-alisp 3dpoly)  ;1ST way       (get-3dpoly-by-vlisp 3dpoly) ;2ND way     )   ) )