如何获取多义线的端点坐标

GUO960 发表于 2005-5-26 09:15:00

在纯vlisp环境里，如何获取多义线（LWPOLYLINE）的两端点及各节点坐标呢？

BDYCAD 发表于 2005-5-27 08:21:00

(setq sel-one (car (entsel)); 选取对象 spt (vlax-curve-getstartpoint sel-one);对象的起点 ept (vlax-curve-getendpoint a));对象的终点

LONGXIN 发表于 2005-5-26 20:31:00

(DEFUN C:XX (/ E1 DXF XY ) (SETQ E1 (CAR (ENTSEL))) (SETQ E1 (ENTNEXT E1)) (SETQ DXF (ENTGET E1)) (while (= (cdr (assoc 0 dxf)) "VERTEX") (setq XY (cdr (assoc 10 dxf))) (COMMAND "POINT" XY) (SETQ E1 (ENTNEXT E1)) (SETQ DXF (ENTGET E1)) ) )

sieben 发表于 2005-5-28 00:46:00

vlax-curve-getpointatparam

vla-get-coordinate (Lwpolyline Object Property)

LONGXIN 发表于 2005-5-28 08:49:00

我帮楼上的再帖得更全一些吧！

功能取得对象顶点的坐标：

vla-get-Coordinate 

<TABLE id=AutoNumber2 height=26 cellSpacing=1 width=925 align=left border=0>
<TBODY>
<TR>
<TD width=53 height=5>语法

</TD>
<TD width=997 colSpan=2 height=5>(vla-get-Coordinate Object index)</TD></TR>
<TR>
<TD width=53 height=1></TD>
<TD width=292 height=1>Object </TD>
<TD width=705 height=1><A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/3DPolyline%20对象.htm" target="_blank" >3DPoly</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Leader%20对象.htm" target="_blank" >Leader</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/LightweightPolyline%20对象.htm" target="_blank" >LightweightPolyline</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Point%20对象.htm" target="_blank" >Point</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/PolyfaceMesh%20对象.htm" target="_blank" >PolyfaceMesh</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/PolygonMesh%20对象.htm" target="_blank" >PolygonMesh</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Polyline%20对象.htm" target="_blank" >Polyline</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Solid%20对象.htm" target="_blank" >Solid</A>, <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Trace%20对象.htm" target="_blank" >Trace</A></TD></TR>
<TR>
<TD width=53 height=1></TD>
<TD width=292 height=1></TD>
<TD width=705 height=1>这个属性适用的对象。</TD></TR>
<TR>
<TD width=53 height=1></TD>
<TD width=292 height=1>Coordinate</TD>
<TD width=705 height=1>变体（双精度的三元素或二元素数组）；读/写</TD></TR>
<TR>
<TD width=53 height=1></TD>
<TD width=292 height=1></TD>
<TD width=705 height=1>指定的顶点的X、Y与Z坐标值的数组。 <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/LightweightPolyline%20对象.htm" target="_blank" >LightweightPolyline</A>对象：具有两个元素的变体，表示OCS中 的X与Y坐标值。 <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Polyline%20对象.htm" target="_blank" >Polyline</A>对象：具有三个元素的变体，代表OCS的X与Y坐标值。 Z坐标以变体表示但被忽略。 所有其它对象：变体具有三个元素，代表WCS的X与Y坐标，Z坐 标在当前的UCS上将默认为0</TD></TR>
<TR>
<TD width=53 height=1></TD>
<TD width=292 height=1>index</TD>
<TD width=705 height=1>整数</TD></TR>
<TR>
<TD width=53 height=1></TD>
<TD width=292 height=1></TD>
<TD width=705 height=1>顶点数组中要设定或查询的顶点的索引。 顶点数组是以0为基底。</TD></TR></TBODY></TABLE>

 

　

　

　

说明 这个属性会置换指定对象的任何已有的顶点。可使用标准的数组处理方法来处理这个 属性包含的值。 3DPoly, Polyline, PolygonMesh：如果是简单多段线（不是样条曲线或曲线拟合）， 这个属性指定简单顶点。如果是样条曲线或曲面拟合多段线，这个属性指定顶点的控制点。 <A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Polyline%20对象.htm" target="_blank" >Polyline</A>与<A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/LightweightPolyline%20对象.htm" target="_blank" >LightweightPolyline</A>对象的OCS坐标值可使用<A href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/TranslateCoordinates%20方法.htm" target="_blank" >TranslateCoordinates</A>方法 转换成其它坐标系统，或从其它坐标系统转换为OCS坐标值。 范例

(defun Example_Coordinate()

;;; 这个范例在模型空间中建立一条Polyline，接着 ;;; 查询与改变第一个索引位置的坐标

 (VL-LOAD-COM)

 (setq AcadObject(vlax-get-acad-object)

 AcadDocument(vla-get-ActiveDocument Acadobject)

 mSpace(vla-get-ModelSpace Acaddocument)

 )

;;; 定义 2D 多段线的点

 (setq pnts(vlax-make-safearray vlax-vbDouble '(0 . 14)))

 (vlax-safearray-fill pnts '(10 10 0 10 20 0 20 20 0 30 20 0 40 40 0))

;;; 在模型空间中建立一个轻Polyline对象

 (setq PolylineObj(vla-AddPolyline mSpace pnts))

 (vla-ZoomExtents AcadObject)

;;; 找出第一个索引位置的坐标

 (setq coord(vla-get-Coordinate PolylineObj 0))

 (princ (STRCAT "多义线的第一个索引位置的坐标是:" (rtos (vlax-safearray-get-element (vlax-variant-value coord) 0))

 "," (rtos (vlax-safearray-get-element (vlax-variant-value coord) 1))

 "," (rtos (vlax-safearray-get-element (vlax-variant-value coord) 2)) "\n"

　　　　 )

　)

 (PROMPT "<Enter>进行:")(VL-CMDF pause)

;;; 改变坐标

 (setq temp(+ (vlax-safearray-get-element (vlax-variant-value coord) 0) 1))

 (setq coord(vlax-variant-value coord))

 (vlax-safearray-put-element coord 0 temp)

 (vla-put-Coordinate PolylineObj 0 coord)

 (vla-Update PolylineObj)

;;; 查询新的坐标

 (setq coord(vla-get-Coordinate PolylineObj 0))

 (princ (STRCAT "多义线的第一个索引位置的坐标当前是:" (rtos (vlax-safearray-get-element (vlax-variant-value coord) 0))

 "," (rtos (vlax-safearray-get-element (vlax-variant-value coord) 1))

 "," (rtos (vlax-safearray-get-element (vlax-variant-value coord) 2))

　　　　 )

　)

 (princ)

)

zhuangxu_521 发表于 2011-8-23 20:34:58

今天又学到不少东东

zzl9105 发表于 2018-5-23 17:16:18

BDYCAD 发表于 2005-5-27 08:21
(setq sel-one (car (entsel)); 选取对象 spt (vlax-curve-getstartpoint sel-one);对象的起点 e ...

试了半天，发现自己少了一个car。

oistre 发表于 2018-8-5 02:33:16

学习了，谢谢楼主

页: [1]

明经CAD社区's Archiver

如何获取多义线的端点坐标