[LISP函数]：有关polyline的问题

redapple

欲提取起点和终点的坐标值，查询其dxf组码后发现二者都是带有10的组码，该怎样分别提取？谢谢帮助！

ll_j

(assoc 10 (entget ename))
(assoc 10 (reverse (entget ename)))

redapple

谢谢
能再解释一下好吗
why?I don't understand!
3x!

eachy

最初由 redapple 发布
[B]欲提取起点和终点的坐标值，查询其dxf组码后发现二者都是带有10的组码，该怎样分别提取？谢谢帮助！ [/B]

来个ActiveX方法：
vlax-curve-getStartPoint 函数


语法

      (vlax-curve-getStartPoint curve-obj)

功能

      返回曲线的开始点（在 WCS 中）。

说明

参数 curve-obj 为要测量的 VLA 对象。

返回值：

若成功，则返回表示开始点的三维点表，否则返回 nil。

范例

获取 vlax-curve-getArea 范例中椭圆的开始点：

_$ (vlax-curve-getStartPoint ellipseObj)

(3.0 3.0 0.0)

对于椭圆，起点和端点圆弧是相同的。

获取 vlax-curve-getDistAtParam 范例中样条曲线的开始点：

_$ (vlax-curve-getStartPoint splineObj)

(1.34521 1.68943 0.0)


语法

     (vlax-curve-getEndPoint curve-obj)

功能

      返回曲线的端点（按 WCS 表示）

说明

参数 curve-obj 为要测量的 VLA 对象。

返回值：

若成功则返回表示端点的三维点表，否则返回 nil。

范例

获取 vlax-curve-getArea 范例中椭圆的端点：

_$ (vlax-curve-getEndPoint ellipseObj)

(3.0 3.0 0.0)

redapple

第二贴
怎样才知道哪个是起点，哪个终点？
谢谢！

aeo

前面的是起点: (cdr(assoc 10 en))

redapple

请帮忙解释第二贴好吗？

eachy

最初由 redapple 发布
[B]请帮忙解释第二贴好吗？ [/B]

有很多 10 开头的表，第一个是起点，倒过来的第一个就是终点了。

redapple

谢谢各位的耐心解释！！
请问帮助里面有这方面的详细解释吗？
哪里有？

libo2000

最初由 redapple 发布
[B]欲提取起点和终点的坐标值，查询其dxf组码后发现二者都是带有10的组码，该怎样分别提取？谢谢帮助！ [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;;提取第n个assoc值
   
5. ;ename:对象  ;n:第N个assoc_num,n>=1
   
6. (defun chengs_assoc (assoc_num ename n / elist edate i loop enum m len result)
   
7.   (if (listp ename) (setq ename (car ename)))
   
8.   (setq elist (entget ename)
   
9.         i 0
   
10.         loop T
    
11.         m 1
    
12.         len (length elist)
    
13.   )
    
14.   (while (and (= loop T) (<= i len))
    
15.     (setq enum (car edate))
    
16.     (if (= enum assoc_num)
    
17.       (progn
    
18.         (if (= m n)
    
19.           (setq loop nil)
    
20.           (progn
    
21.             (setq m (+ m 1)
    
22.                      i (+ i 1)
    
23.                      edate (nth i elist)
    
24.             )
    
25.           )
    
26.         )
    
27.       )
    
28.       (progn
    
29.         (setq i (+ i 1))
    
30.         (setq edate (nth i elist))
    
31.       )
    
32.     )
    
33.   )
    
34.   (setq result edate)
    
35. );endfun chengs_assoc
    
36.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;提取第n个assoc值 <br /> ;ename:对象  ;n:第N个assoc_num,n>=1<br /> (defun chengs_assoc (assoc_num ename n / elist edate i loop enum m len result)<br />   (if (listp ename) (setq ename (car ename)))<br />   (setq elist (entget ename)<br />         i 0<br />         loop T<br />         m 1<br />         len (length elist)<br />   )<br />   (while (and (= loop T) (<= i len))<br />     (setq enum (car edate))<br />     (if (= enum assoc_num)<br />       (progn<br />         (if (= m n)<br />           (setq loop nil)<br />           (progn<br />             (setq m (+ m 1)<br />                      i (+ i 1)<br />                      edate (nth i elist)<br />             )<br />           )<br />         )<br />       )<br />       (progn<br />         (setq i (+ i 1))<br />         (setq edate (nth i elist))<br />       )<br />     )<br />   )<br />   (setq result edate)<br /> );endfun chengs_assoc<br />   [/FONT]<br />

陌生人

我觉得提取第n个的方法不科学,不准确