求助！！如何依次获得多边形网格的全部顶点

gamexia

使用edgesurf 生成的多边形网格，如何依次取得全部顶点？

lisperado

gamexia 发表于 2018-10-27 11:23
首先非常感谢帮助！！
有疑问如下：
1）顶点的编号与CAD的特性中的顶点编号刚好相反

1.相反因为之前 ( setq ls (cons x ls) ) 思路，已更正 :)
2.以下示范只以瞬态点取代替插入块以便直接预览（以免undo费时），思路相同以'p'变量坐标值。。

1. (defun c:tt2 (/ *error* l i s p )
   
2.   
   
3.   (defun *error* (msg)
   
4.    (princ "*cancel*")
   
5.     )
   
6.   (princ "\n选取多边形网格..")
   
7.   (cond        ((setq s (ssget "_:E:S+." '((0 . "POLYLINE") (-4 . "&=") (70 . 16)))
   
8.                l (vlax-get (vlax-ename->vla-object (ssname s 0)) 'coordinates)
   
9.                i 1
   
10.                )
    
11.          (while        l
    
12.            (setq p (list (car l) (cadr l) (caddr l)))                     (setq p (trans p 0 1)) ; UCS坐标只限于瞬态
    
13.            (or (zerop (logand i 1))
    
14. 
    
15.                ;; (command "-insert" "块名称" p 1 1 0 )
    
16.                               (grvecs                         (apply
    
17.                           'append
    
18.                           (mapcar
    
19.                            '(lambda (x)
    
20.                               (list 2 p (polar p (* x pi) (* 10. (/ (getvar "viewsize") (cadr (getvar "screensize"))))))
    
21.                               )
    
22.                            '(0.25 0.75 1.25 1.75)
    
23.                            )
    
24.                           )
    
25.                          )
    
26. 
    
27.                )
    
28.            (setq i (1+ i)
    
29.                  l (cdddr l)
    
30.                  )
    
31.            )
    
32.          )
    
33.         (t (princ "\n退出?"))
    
34.         )
    
35.   (*error* nil)
    
36.   (princ)
    
37.   )

(defun c:tt2 (/ *error* l i s p )<br />   <br />   (defun *error* (msg)<br />    (princ "*cancel*")<br />     )<br />   (princ "\n选取多边形网格..")<br />   (cond        ((setq s (ssget "_:E:S+." '((0 . "POLYLINE") (-4 . "&=") (70 . 16)))<br />                l (vlax-get (vlax-ename->vla-object (ssname s 0)) 'coordinates)<br />                i 1<br />                )<br />          (while        l<br />            (setq p (list (car l) (cadr l) (caddr l)))                     (setq p (trans p 0 1)) ; UCS坐标只限于瞬态<br />            (or (zerop (logand i 1))<br /> <br />                ;; (command "-insert" "块名称" p 1 1 0 )<br />                               (grvecs                         (apply<br />                           'append<br />                           (mapcar<br />                            '(lambda (x)<br />                               (list 2 p (polar p (* x pi) (* 10. (/ (getvar "viewsize") (cadr (getvar "screensize"))))))<br />                               )<br />                            '(0.25 0.75 1.25 1.75)<br />                            )<br />                           )<br />                          )<br /> <br />                )<br />            (setq i (1+ i)<br />                  l (cdddr l)<br />                  )<br />            )<br />          )<br />         (t (princ "\n退出?"))<br />         )<br />   (*error* nil)<br />   (princ)<br />   )

lisperado

1. (defun c:tt (/ *error* s w i r l)
   
2.   (defun *error* (msg)
   
3.     (if        r
   
4.       (close r)
   
5.       )
   
6.     )
   
7.   （princ "\n选取多边形网格.." )
   
8.   (cond        ((setq s (ssget "_:E:S+." '((0 . "POLYLINE") (-4 . "&=") (70 . 16)))
   
9.                l (vlax-get (vlax-ename->vla-object (ssname s 0)) 'coordinates)
   
10.                i 0
    
11.                w (setq w (vl-filename-mktemp))
    
12.                r (open w "w")
    
13.                )
    
14.          (while        l
    
15.            (write-line
    
16.              (apply 'strcat
    
17.                     (vl-list* (itoa i)
    
18.                               "\t"
    
19.                               (mapcar '(lambda (x) (strcat (rtos x 2 3) "\t")) (list (car l) (cadr l) (caddr l)))
    
20.                               )
    
21.                     )
    
22.              r
    
23.              )
    
24.            (setq i (1+ i)
    
25.                  l (cdddr l)
    
26.                  )
    
27.            )
    
28.          (close r)
    
29.          (startapp "notepad" w)
    
30.          )
    
31.         (t (princ "\n退出?"))
    
32.         )  (*error* nil)
    
33.   (princ)
    
34.   )
    

(defun c:tt (/ *error* s w i r l)<br />   (defun *error* (msg)<br />     (if        r<br />       (close r)<br />       )<br />     )<br />   （princ "\n选取多边形网格.." )<br />   (cond        ((setq s (ssget "_:E:S+." '((0 . "POLYLINE") (-4 . "&=") (70 . 16)))<br />                l (vlax-get (vlax-ename->vla-object (ssname s 0)) 'coordinates)<br />                i 0<br />                w (setq w (vl-filename-mktemp))<br />                r (open w "w")<br />                )<br />          (while        l<br />            (write-line<br />              (apply 'strcat<br />                     (vl-list* (itoa i)<br />                               "\t"<br />                               (mapcar '(lambda (x) (strcat (rtos x 2 3) "\t")) (list (car l) (cadr l) (caddr l)))<br />                               )<br />                     )<br />              r<br />              )<br />            (setq i (1+ i)<br />                  l (cdddr l)<br />                  )<br />            )<br />          (close r)<br />          (startapp "notepad" w)<br />          )<br />         (t (princ "\n退出?"))<br />         )  (*error* nil)<br />   (princ)<br />   )<br />

gamexia

lisperado 发表于 2018-10-27 05:05

首先非常感谢帮助！！
有疑问如下：
1）顶点的编号与CAD的特性中的顶点编号刚好相反

2）不用输出到EXCEL,我是在奇数编号的点的位置插入块  (只用到XY二维平面)