[LISP程序]：多义线的顶点坐标

solidbullet

矩形有四个顶点，我想依次取出！定义为p1,p2,p3,p4
(setq p (getpoint "选取点位置:")
(command "boudary"  p "")
(setq ent1 (entget (entlast)))
取出p1,p2,p3,p4
然后(entdel (entlast))

158466939

返回多段线第n点的坐标
[PHP](defun dc-getpoint (ename n)
  (setq obj (vlax-ename->vla-object ename))
  (setq        plist (vlax-safearray->list
                (vlax-variant-value
                  (vla-get-coordinates obj)
                )
              )
  )
  (list (nth (* n 2) plist) (nth (1+ (* n 2)) plist))
)[/PHP]

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun th-get-allvertexs (ename / n ptlist)
   
5.   (foreach n (entget ename)
   
6.     (if (= 10 (car n))
   
7.       (setq ptlist (cons (cdr n) ptlist))
   
8.     )
   
9.   )
   
10.   (reverse ptlist)
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-get-allvertexs (ename / n ptlist)<br />   (foreach n (entget ename)<br />     (if (= 10 (car n))<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br /> )<br />   [/FONT]<br />

xshrimp

[php]
;;;取得pline所有等顶点
(vl-remove-if-not
'(lambda(x) (if (= 10 (car x) )(list x)))  
  (entget (car (entsel)))
)
[/php]

kohi

直接使用内部函数:
(acet-geom-vertex-list poly)