[求助]：用lisp获取polyline坐标（高手请进）

byghbcaixin

ABD软件还是比较周到,分别判断多义线是否闭合,如闭合返回起点、终点一样的表，以及加了凸度。总之为了满足工作的需要，够用就行了。

highflybird

2. 
   
3. ;;方法一
   
4. ;;Using DXF codes vertices are sub entities of the 3dpoly, have to use (entnext ...)
   
5. (defun get-3dpoly-by-alisp (poly / vtx elst lst)
   
6.   (setq vtx (entnext poly))
   
7.   (while (/= (cdr (assoc 0 (setq elst (entget vtx)))) "SEQEND")
   
8.     (setq lst (cons (cdr (assoc 10 elst)) lst)
   
9.           vtx (entnext vtx)
   
10.     )
    
11.   )
    
12.   (reverse lst)
    
13. )
    
14. ;;方法二
    
15. ;;Another way using VisualLISP
    
16. (defun get-3dpoly-by-vlisp (poly / )
    
17.   (vl-load-com)
    
18.   ;; Split a flat list into a points list
    
19.   (defun 3d-coord->pt-lst (lst)
    
20.     (if        lst
    
21.       (cons (list (car lst) (cadr lst) (caddr lst))
    
22.             (3d-coord->pt-lst (cdddr lst))
    
23.       )
    
24.     )
    
25.   )
    
26.   (3d-coord->pt-lst
    
27.     (vlax-get (vlax-ename->vla-object poly) 'Coordinates)
    
28.   )
    
29. )
    
30. ;;test
    
31. (defun C:test ()
    
32.   (if (setq 3dpoly (car (entsel)))
    
33.     (if (= (cdr (assoc 0 (entget 3dpoly)))  "POLYLINE")
    
34.       (get-3dpoly-by-alisp 3dpoly)  ;1ST way
    
35.       ;(get-3dpoly-by-vlisp 3dpoly) ;2ND way
    
36.     )
    
37.   )
    
38. )
    

<br /> ;;方法一<br /> ;;Using DXF codes vertices are sub entities of the 3dpoly, have to use (entnext ...)<br /> (defun get-3dpoly-by-alisp (poly / vtx elst lst)<br />   (setq vtx (entnext poly))<br />   (while (/= (cdr (assoc 0 (setq elst (entget vtx)))) "SEQEND")<br />     (setq lst (cons (cdr (assoc 10 elst)) lst)<br />           vtx (entnext vtx)<br />     )<br />   )<br />   (reverse lst)<br /> )<br /> ;;方法二<br /> ;;Another way using VisualLISP<br /> (defun get-3dpoly-by-vlisp (poly / )<br />   (vl-load-com)<br />   ;; Split a flat list into a points list<br />   (defun 3d-coord->pt-lst (lst)<br />     (if        lst<br />       (cons (list (car lst) (cadr lst) (caddr lst))<br />             (3d-coord->pt-lst (cdddr lst))<br />       )<br />     )<br />   )<br />   (3d-coord->pt-lst<br />     (vlax-get (vlax-ename->vla-object poly) 'Coordinates)<br />   )<br /> )<br /> ;;test<br /> (defun C:test ()<br />   (if (setq 3dpoly (car (entsel)))<br />     (if (= (cdr (assoc 0 (entget 3dpoly)))  "POLYLINE")<br />       (get-3dpoly-by-alisp 3dpoly)  ;1ST way<br />       ;(get-3dpoly-by-vlisp 3dpoly) ;2ND way<br />     )<br />   )<br /> )<br />

这个问题在autodesk讨论组中出现过。

newer

panzhongw 发表于 2007-3-23 23:22

LWPOLYLINE的Z在elevation属性里面呢。

lgh04212

感谢学习了