[LISP程序]：热 获取多义线上的所有顶点

hopechan

(defun C:getp (/ ent PLTYPE obj vtx vtxlst n ptlst)
    (vl-load-com)
    (setq ent (entsel "\n选取多线:\n"))
    (if ent
        (progn
          (setq PLTYPE (cdr (assoc 0 (entget (car ent)))))
          (if (or (= "POLYLINE" PLTYPE) (= "LWPOLYLINE" PLTYPE))
              (progn
                 (setq obj (vlax-ename->vla-object (car ent)))
                 (setq vtx (vla-get-Coordinates obj))
                 (setq vtxlst (vlax-safearray->list (vlax-variant-value vtx)))
                 (setq n 0)
                 (setq ptlst nil)
                 (repeat (/ (length vtxlst) 2)
                         (setq ptlst (append ptlst (list (list (nth n vtxlst) (nth (1+ n) vtxlst)))))
                         (setq n (+ n 2))
                 )
                 (if ptlst ptlst nil)
             )
             (prompt "\n选取实体不是多义线!")
          );if
       )      
     );if
  )

taner

[QUOTE]最初由 hhc_1 发布
[B]"LWPOLYLINE"的顶点坐标是2维的,而"POLYLINE"的顶点坐标是3维的

2. 
   
3.   [FONT=courier new]
   
4. ;;; ==================================================================
   
5. ;;; 求多義線所有頂點.返回所有頂點表.
   
6. ;;; ==================================================================
   
7. (defun th1-get-allvertexs (ename / plist pp n)
   
8.   (setq obj (vlax-ename->vla-object ename))
   
9.   (setq plist (vlax-safearray->list (vlax-variant-value
   
10.                                                         (vla-get-coordinates obj)
    
11.                                     )
    
12.               )
    
13.   )
    
14.   (setq n 0)
    
15.   (repeat (/ (length plist) 2)
    
16.     (setq pp (append
    
17.                pp
    
18.                (list (list (nth n plist) (nth (1+ n) plist)))
    
19.              )
    
20.     )
    
21.     (setq n (+ n 2))
    
22.   )
    
23.   pp
    
24. )
    
25. ;;; 二维点表
    
26. (defun th2-get-allvertexs (e / n lst)
    
27.   (repeat (setq n (fix (1+ (vlax-curve-getendparam e))))
    
28.     (setq lst (cons (vlax-curve-getpointatparam e (setq n (1- n))) lst))
    
29.   )
    
30. )
    
31. ;;; 三维点表
    
32. (defun th3-get-allvertexs (ename / n ptlist)
    
33.   (foreach n (entget ename)
    
34.     (if (= 10 (car n))
    
35.       (setq ptlist (cons (cdr n) ptlist))
    
36.     )
    
37.   )
    
38.   (reverse ptlist)
    
39. )
    
40. ;;; 二维点表
    
41. 
    
42.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; ==================================================================<br /> ;;; 求多義線所有頂點.返回所有頂點表.<br /> ;;; ==================================================================<br /> (defun th1-get-allvertexs (ename / plist pp n)<br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list (vlax-variant-value<br />                                                         (vla-get-coordinates obj)<br />                                     )<br />               )<br />   )<br />   (setq n 0)<br />   (repeat (/ (length plist) 2)<br />     (setq pp (append<br />                pp<br />                (list (list (nth n plist) (nth (1+ n) plist)))<br />              )<br />     )<br />     (setq n (+ n 2))<br />   )<br />   pp<br /> )<br /> ;;; 二维点表<br /> (defun th2-get-allvertexs (e / n lst)<br />   (repeat (setq n (fix (1+ (vlax-curve-getendparam e))))<br />     (setq lst (cons (vlax-curve-getpointatparam e (setq n (1- n))) lst))<br />   )<br /> )<br /> ;;; 三维点表<br /> (defun th3-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 /> ;;; 二维点表<br /> <br />   [/FONT]<br />

Underway

(or (= "POLYLINE" PLTYPE) (= "LWPOLYLINE" PLTYPE))

"POLYLINE" ===> (x y z) != "LWPOLYLINE" ==> (x y)

雨箭风刀

哈，看来还不完善，两种实体要区别对待

hhc_1

"LWPOLYLINE"的顶点坐标是2维的,而"POLYLINE"的顶点坐标是3维的