多段线控制点

whcdjh

怎么提取多个多段线控制点????

我用list结果是:

       

按 ENTER 键继续:
                  LWPOLYLINE  图层: 0
                            空间: 模型空间
                   颜色: 253    线型: CONTINUOUS
                   句柄 = 8cfc6
              打开
    固定宽度     0.000
     
            长度   5.441
按 ENTER 键继续:

          于端点  X= 5484.000  Y=  298.000  Z=    0.000
          于端点  X= 5487.900  Y=  299.200  Z=    0.000
          于端点  X= 5489.000  Y=  300.000  Z=    0.000

            ARC       图层: 0
                            空间: 模型空间
                   颜色: 253    线型: CONTINUOUS
                   句柄 = 8cef8
              圆心 点， X= 5418.880  Y=  293.824  Z=    0.000
              半径    13.209
              起点 角度     67
              端点 角度    130
            长度    14.527

                  LWPOLYLINE  图层: 0
                            空间: 模型空间
                   颜色: 253    线型: CONTINUOUS
                   句柄 = 8cef2
              打开
    固定宽度     0.000
              面积   6.588
            长度   8.337

          于端点  X= 5412.000  Y=  297.000  Z=    0.000
          于端点  X= 5411.000  Y=  297.000  Z=    0.000
          于端点  X= 5410.000  Y=  298.000  Z=    0.000
          于端点  X= 5410.353  Y=  303.912  Z=    0.000

如果我只要X和Y的数据,应该怎么办???

谢谢!!!

xyp1964

2. ;;;多义线顶点坐标集(支持框选)
3. (defun c:test124 ()
4.   (princ "\n选取*PLINE多义线...")
5.   (setq ss    (ssget '((0 . "*POLYLINE")))
6. i     -1
7. ptlst '()
8.   )
9.   (if ss
10.     (progn
11.       (while (setq ssn (ssname ss (setq i (1+ i))))
12. (setq retcoord (vla-get-Coordinates (vlax-ename->vla-object ssn))
13.        n        0
14. )
15. (repeat
16.    (/ (length (vlax-safearray->list (vlax-variant-value retcoord))
17.       )
18.       2
19.    )
20.     (setq ptx   (vlax-safearray-get-element
21.     (vlax-variant-value retcoord)
22.     n
23.          )
24.    n     (1+ n)
25.    pty   (vlax-safearray-get-element
26.     (vlax-variant-value retcoord)
27.     n
28.          )
29.    n     (1+ n)
30.    pt    (list ptx pty)
31.    ptlst (cons pt ptlst)
32.     )
33. )
34.       )
35.       (princ "\n多义线顶点坐标集（!ptlst） : ")
36.       (if ptlst
37. (princ ptlst)
38.       )
39.     )
40.     (princ "\n未选到多义线!")
41.   )
42.   (princ)
43. )

;;;多义线顶点坐标集(支持框选) (defun c:test124 ()   (princ "\n选取*PLINE多义线...")   (setq ss    (ssget '((0 . "*POLYLINE"))) i     -1 ptlst '()   )   (if ss     (progn       (while (setq ssn (ssname ss (setq i (1+ i)))) (setq retcoord (vla-get-Coordinates (vlax-ename->vla-object ssn))        n        0 ) (repeat    (/ (length (vlax-safearray->list (vlax-variant-value retcoord))       )       2    )     (setq ptx   (vlax-safearray-get-element     (vlax-variant-value retcoord)     n          )    n     (1+ n)    pty   (vlax-safearray-get-element     (vlax-variant-value retcoord)     n          )    n     (1+ n)    pt    (list ptx pty)    ptlst (cons pt ptlst)     ) )       )       (princ "\n多义线顶点坐标集（!ptlst） : ")       (if ptlst (princ ptlst)       )     )     (princ "\n未选到多义线!")   )   (princ) )