[LISP函数]：多段线数据提取的问题！

redapple

怎样提取一多段线中每个实体段的数据？主要是多段线组码中相同关键字中数据的提取！

eachy

最初由 redapple 发布
[B]怎样提取一多段线中每个实体段的数据？主要是多段线组码中相同关键字中数据的提取！ [/B]

返回包含每一出现在列表中的指定键的cdr(点对的后部分)的列表

2. 
   
3. (defun massoc (key alist / x nlist)
   
4.   (foreach x alist
   
5.     (if (eq key (car x))
   
6.       (setq nlist (cons (cdr x) nlist))
   
7.     )
   
8.   )
   
9.   (reverse nlist)
   
10. )
    

<br /> (defun massoc (key alist / x nlist)<br />   (foreach x alist<br />     (if (eq key (car x))<br />       (setq nlist (cons (cdr x) nlist))<br />     )<br />   )<br />   (reverse nlist)<br /> )<br />

功能

返回包含每一出现在列表中的指定键的cdr(点对的后部分)的列表。

参数

一个整数和一个图元定义列表

示例

(massoc 10 (entget (car (entsel))))

注意

该函数特别适合用于找到细多义线上的所有顶点。

作者

Jaysen Long

ago9999

如果多段线的法线不是W坐标的Z向，那是不是计算其顶点坐标呀

lsjjm

最初由 redapple 发布
[B]怎样提取一多段线中每个实体段的数据？主要是多段线组码中相同关键字中数据的提取！ [/B]

下面程序返回点击处多段线子段的序号,两端点坐标和凸度:
(defun c:test ()
  (cond ((setq ent (entsel "Pick a polyline: "))
         (getSegment (vlax-ename->vla-object (car ent))
                     (cadr ent)
         )
        )
  )
)
(defun getSegment (obj pt / cpt eParam stParam)
  (cond ((setq cpt (vlax-curve-getClosestPointTo obj pt T))
         (setq eParam (fix (vlax-curve-getEndParam obj)))
         (setq bul (vla-getBulge obj (fix (vlax-curve-getParamAtPoint obj cpt))))
         (if (= eParam (setq stParam (fix (vlax-curve-getParamAtPoint obj cpt))))
           (setq stParam (1- stParam))
           (setq eParam (1+ stParam))
         )
         (list eParam (vlax-curve-getPointAtParam obj stParam)
               (vlax-curve-getPointAtParam obj eParam) bul)
        )
  )
)