[LISP程序]：如何获取4个点的坐标

monkeyzxp

在LISP的群码中，矩形的四个角点的坐标都是以10开始的，请问怎么将他们都提出来。TKS!

xyp1964

试试签名栏中“实用程序汇总”之test065

YueFeng

方法可以有很多种，采用while Member 可以达到你想要的结果。
我现在是用Foreach的方法。

1. 
   
2.   [FONT=courier new]
   
3. (ForEach Rst Data
   
4.              (If (= 10 (Car Rst))
   
5.                 (SetQ Result (Cons (Append (Cdr Rst) (List Z)) Result))
   
6.              )
   
7.           )
   
8.   [/FONT]
   

复制代码

Z 为多段线的38组码值。
Result 为空表
Data 为对象数据表。

aeo

(mapcar 'cdr(vl-remove-if-not '(lambda(x)(= 10(car x)))(entget YourLWPOLYLINE)))

YueFeng

最初由 aeo 发布
[B](mapcar 'cdr(vl-remove-if-not '(lambda(x)(= 10(car x)))(entget YourLWPOLYLINE))) [/B]

呵，现在的代码是越来越精简啦。
如果需要加上Z坐标。再改如下：
(mapcar '(lambda (x) (append (cdr x) (list 0)))(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e1)))
这里暂定Z坐标为0.

eachy

Lwpolyline 是没有 z 的，polyline 才有，而且 polyline 没有 10 组码

xyp1964

对于polyline，以上程序实现不了。
除函数vlax-curve-getPointAtParam外，不知还有别的什么办法。
[php](defun c:test ()
  (setq        e (vlax-ename->vla-object (car (entsel "选择多义线 : ")))
        i    -1
        lst  '()
  )
  (while (setq pt (vlax-curve-getPointAtParam e (setq i (1+ i))))
    (setq lst (cons pt lst))
  )
  lst
)[/php]

eachy

nextent