[求助]：如何求构成多边形的点表

animal212

一个多边形是由若干个点连线形成的.
   现在想知道怎样才能把构成这多边形的点表求出来呢.
    我用过 .......  cdr (assoc 10 ........) 求出来的点只有一个,不知道有没有更好的方法可以求出全部的点

   请高人指点哦.

zml84快来吧.

laoxie_1983

(setq zdm (ssname zxzj jj))
    (setq tym (entget zdm))
    (setq zdlist nil)
    (setq dh 0);点号初始化
    (setq n 0)
    (while (/= (nth n tym ) nil)
      (progn
        (if (= (car (nth n tym )) 10)
          (progn
            (setq dh (+ dh 1))
            (setq zdlist (append zdlist (list (list (cadr (nth n tym)) (caddr (nth n tym))))))
            (setq zb (list dh (list (cadr (nth n tym)) (caddr (nth n tym)))))
          );end progn
        );end if
      );end progn
      (setq n (+ n 1))
    );end while，坐标提取及坐标表构建完毕。
.......

knight928

(defun PointLIST(/ obj vtx n vtxlst ptlst cd pt1 pt)
    ;(vl-load-com)
    ;(setvar "luprec" 2)
    ;(setq ent (car(entsel)))
    (setq obj (vlax-ename->vla-object ent))
    (setq vtx (vla-get-Coordinates obj))
    (setq vtxlst (vlax-safearray->list (vlax-variant-value vtx)))
    (setq n 0)
    (setq ptlst nil cd (/ (length vtxlst) 2))
    (repeat cd
      (setq
        ptlst (append
                ptlst
                (list (list (nth n vtxlst) (nth (1+ n) vtxlst)))
              )
      )
      (setq n (+ n 2))
    )
  )

animal212

多谢各位‘晓东’们的支持。
  这个问题已经解决了。

zml84

仿照2楼的代码，改进后如下：

2. 
   
3. ;tmp2.lsp
   
4. ;document.write("最后修改时间: " + document.lastModified)
   
5. ;;获取多段线顶点坐标的代码片段
   
6. (if (setq S1 (entsel "\n请点选多段线对象:"))
   
7.     (progn
   
8.         (setq ENT    (entget (car S1))
   
9.               N             0
   
10.               PT-LST '()
    
11.         )
    
12.         (while (/= (setq EI (nth N ENT)) NIL)
    
13.             (if        (= (car EI) 10)
    
14.                 (setq PT-LST (cons (cdr EI) PT-LST))
    
15.             )
    
16.             (setq N (1+ N))
    
17.         )
    
18.         (setq PT-LST (reverse PT-LST))
    
19.     )
    
20. )
    
21. (princ pt-lst)
    

<br /> ;tmp2.lsp<br /> ;document.write("最后修改时间: " + document.lastModified)<br /> ;;获取多段线顶点坐标的代码片段<br /> (if (setq S1 (entsel "\n请点选多段线对象:"))<br />     (progn<br />         (setq ENT    (entget (car S1))<br />               N             0<br />               PT-LST '()<br />         )<br />         (while (/= (setq EI (nth N ENT)) NIL)<br />             (if        (= (car EI) 10)<br />                 (setq PT-LST (cons (cdr EI) PT-LST))<br />             )<br />             (setq N (1+ N))<br />         )<br />         (setq PT-LST (reverse PT-LST))<br />     )<br /> )<br /> (princ pt-lst)<br />

animal212

谢谢zml84,  就知道你会回复的