entnext获取二维多段线顶点该怎么理解正确？

zrg1 · 发表于 2019-10-21 19:39:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

函数帮助最后一句：调用 entnext 函数直至找到 SEQEND 图元，该图元的 -2 组中即包含了它的主图元名，，，，对于二维多段线，想要获取它的顶点坐标，(setq e (entnext ent)) (setq ee (entget e)) (setq pt (assoc 10 ee)) 该怎么用？如何理解直到找到“SEQEND 图元”；“该图元的 -2 组中即包含了它的主图元名”又怎么理解好？求高手能不能给个通俗易懂的解释？这是应用论坛Lispboy 的代码，附件

zrg1 · 发表于 2019-10-21 19:41:29

Lispboy代码：(defun _getVerts (ent / ed pts)

02.  (setq ed (entget ent))

03.  (if (= (cdr (assoc 0 ed)) "POLYLINE")

04. (progn

05.    (while

06.  (and (setq ent (entnext ent))

07.    (setq ed (entget ent))

08.    (/= (cdr (assoc 0 ed)) "SEQEND")

09.  )

10. (setq pts (cons (cdr (assoc 10 ed)) pts))

11.    )

12.    (reverse pts)

13. )

14.  )

15.)

账号		自动登录	找回密码
密码			立即注册

[求助] entnext获取二维多段线顶点该怎么理解正确？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。