whcdjh 发表于 2006-3-10 13:22:00

多段线控制点

<P>怎么提取多个多段线控制点????</P>
<P>我用list结果是:</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR></P>
<P>按 ENTER 键继续:<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LWPOLYLINE&nbsp; 图层: 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 空间: 模型空间<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 颜色: 253&nbsp;&nbsp;&nbsp; 线型: CONTINUOUS<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 句柄 = 8cfc6<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 打开<BR>&nbsp;&nbsp;&nbsp; 固定宽度&nbsp;&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 长度&nbsp;&nbsp; 5.441<BR>按 ENTER 键继续:</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5484.000&nbsp; Y=&nbsp; 298.000&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5487.900&nbsp; Y=&nbsp; 299.200&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5489.000&nbsp; Y=&nbsp; 300.000&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ARC&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 图层: 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 空间: 模型空间<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 颜色: 253&nbsp;&nbsp;&nbsp; 线型: CONTINUOUS<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 句柄 = 8cef8<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 圆心 点， X= 5418.880&nbsp; Y=&nbsp; 293.824&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 半径&nbsp;&nbsp;&nbsp; 13.209<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 起点 角度&nbsp;&nbsp;&nbsp;&nbsp; 67<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 端点 角度&nbsp;&nbsp;&nbsp; 130<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 长度&nbsp;&nbsp;&nbsp; 14.527</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LWPOLYLINE&nbsp; 图层: 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 空间: 模型空间<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 颜色: 253&nbsp;&nbsp;&nbsp; 线型: CONTINUOUS<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 句柄 = 8cef2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 打开<BR>&nbsp;&nbsp;&nbsp; 固定宽度&nbsp;&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 面积&nbsp;&nbsp; 6.588<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 长度&nbsp;&nbsp; 8.337</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5412.000&nbsp; Y=&nbsp; 297.000&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5411.000&nbsp; Y=&nbsp; 297.000&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5410.000&nbsp; Y=&nbsp; 298.000&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 于端点&nbsp; X= 5410.353&nbsp; Y=&nbsp; 303.912&nbsp; Z=&nbsp;&nbsp;&nbsp; 0.000</P>
<P>如果我只要X和Y的数据,应该怎么办???</P>
<P>谢谢!!!</P>

xyp1964 发表于 2006-3-11 16:40:00

;;;多义线顶点坐标集(支持框选)
(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)
)
页: [1]
查看完整版本: 多段线控制点