如何获得 POLYLINE 顶点坐标？

fxxpleasure

多段线分获得 POLYLINE 和获得 LWPOLYLINE 两种，后都的坐标好获取，如何获得 POLYLINE 顶点坐标呢？
以下是某提取的一个POLYLINE图元表
((-1 . <图元名: 7e148630>) (0 . "POLYLINE") (330 . <图元名: 7e3a7d18>) (5 .
"121336") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "钢束") (62 . 3)
(100 . "AcDb2dPolyline") (66 . 1)
(10 0.0 0.0 0.0) (70 . 0) (40 . 60.0) (41 . 60.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0))

没有发现你坐标信息呢。求高手指点

caoyin

二楼的代码过于冗长,还是vlax-curve函数简洁
(defun get_pline-vertexs (e / i v lst)
  (setq i -1)
  (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
    (setq lst (cons v lst))
  )
  (reverse lst)
)

caoyin

表骑马实开车 发表于 2022-4-8 12:25
版主好，  (setq i -1) i等于-1的时候会多一个重复的坐标出来，设置成0就好了。这个是什么情况？

根据需要，对于闭合多段线加个判断 vlax-curve-isClosed

表骑马实开车

caoyin 发表于 2013-1-20 18:17
二楼的代码过于冗长,还是vlax-curve函数简洁
(defun get_pline-vertexs (e / i v lst)
  (setq i - ...

版主好，  (setq i -1) i等于-1的时候会多一个重复的坐标出来，设置成0就好了。这个是什么情况？

snddd2000

1. (defun get-pline-point (ent / ptlist ptlist1)
   
2. (setq ptlist '() ptlist1 '() n 0)
   
3. (setq ptlist (vlax-safearray->list
   
4.                 (vlax-variant-value
   
5.                   (vlax-get-property
   
6.                     (vlax-ename->vla-object ent)
   
7.                     'Coordinates
   
8.                     )
   
9.                   )
   
10.                 )
    
11.        )
    
12.   (cond
    
13.     (
    
14.      (= "LWPOLYLINE" (cdr (assoc 0 (entget ent)
    
15.                                  )
    
16.                           )
    
17.         )
    
18.     (progn
    
19.       (repeat (/ (length ptlist) 2)
    
20.         (setq ptlist1 (cons (list (nth n ptlist)
    
21.                                   (nth (setq n (1+ n)) ptlist)
    
22.                                   )
    
23.                             ptlist1)                           
    
24.               )
    
25.         (setq n (1+ n))
    
26.         )
    
27.       )
    
28.      )
    
29.     (
    
30.      (= "POLYLINE" (cdr (assoc 0 (entget ent)
    
31.                               )
    
32.                        )
    
33.      )
    
34.     (progn
    
35.       (repeat (/ (length ptlist) 3)
    
36.         (setq ptlist1 (cons (list (nth n ptlist)
    
37.                                   (nth (setq n (1+ n)) ptlist)
    
38.                                   (nth (setq n (1+ n)) ptlist)
    
39.                                   )
    
40.                             ptlist1)
    
41.               )
    
42.         (setq n (1+ n))
    
43.         )
    
44.       )
    
45.      )
    
46.     )
    
47.    
    
48. (princ (reverse ptlist1))
    
49. (princ)
    
50. )
    
51. 
    
52. (defun C:tt1()
    
53. (setq ent nil)
    
54. (while
    
55.    (= ent nil)
    
56.     (setq ent (ssget "_:S:E"  (list
    
57.                                   (cons 0 "LWPOLYLINE,POLYLINE")
    
58.                                    )
    
59.                      )
    
60.          )
    
61.    )
    
62.   (setq ent (ssname ent 0))
    
63.   (get-pline-point ent)
    
64.   )

(defun get-pline-point (ent / ptlist ptlist1)<br /> (setq ptlist '() ptlist1 '() n 0)<br /> (setq ptlist (vlax-safearray->list<br />                 (vlax-variant-value<br />                   (vlax-get-property<br />                     (vlax-ename->vla-object ent)<br />                     'Coordinates<br />                     )<br />                   )<br />                 )<br />        )<br />   (cond<br />     (<br />      (= "LWPOLYLINE" (cdr (assoc 0 (entget ent)<br />                                  )<br />                           )<br />         )<br />     (progn<br />       (repeat (/ (length ptlist) 2)<br />         (setq ptlist1 (cons (list (nth n ptlist)<br />                                   (nth (setq n (1+ n)) ptlist)<br />                                   )<br />                             ptlist1)                            <br />               )<br />         (setq n (1+ n))<br />         )<br />       )<br />      )<br />     (<br />      (= "POLYLINE" (cdr (assoc 0 (entget ent)<br />                               )<br />                        )<br />      )<br />     (progn<br />       (repeat (/ (length ptlist) 3)<br />         (setq ptlist1 (cons (list (nth n ptlist)<br />                                   (nth (setq n (1+ n)) ptlist)<br />                                   (nth (setq n (1+ n)) ptlist)<br />                                   )<br />                             ptlist1)<br />               )<br />         (setq n (1+ n))<br />         )<br />       )<br />      )<br />     )<br />     <br /> (princ (reverse ptlist1))<br /> (princ)<br /> )<br /> <br /> (defun C:tt1()<br /> (setq ent nil)<br /> (while<br />    (= ent nil)<br />     (setq ent (ssget "_:S:E"  (list<br />                                   (cons 0 "LWPOLYLINE,POLYLINE")<br />                                    )<br />                      )<br />          )<br />    )<br />   (setq ent (ssname ent 0))<br />   (get-pline-point ent)<br />   )

yoyoho

感谢 snddd2000 分享程序!

xiabin68

楼上你还更牛，，，

fxxpleasure

snddd2000 发表于 2013-1-18 13:08

谢谢，指点。

fxxpleasure

caoyin 发表于 2013-1-20 18:17
二楼的代码过于冗长,还是vlax-curve函数简洁
(defun get_pline-vertexs (e / i v lst)
  (setq i - ...

这个太牛了，我的LWPOLYLNE顶点获取还是通过图元表得到的，写了好长。

yoyoho

感谢 caoyin 版主分享函数!

yclz

这个函数怎么用啊，请教各位高手？

hbgsw

4楼的代码让我膜拜啊。