This blog post provides two Lisp functions to extract the vertex coordinates of LWPOLYLINE and POLYLINE entities in AutoCAD. The first function retrieves the 3D point coordinates for both entity types, while the second function focuses on generating vertex tables for LWPOLYLINE with arcs."
125873531,5690705,Windows中使用netsh命令设置端口转发,"['Microsoft', 'Windows', 'Network', 'Port Forwarding', '命令行']
(DEFUN getpl_pt ( / P EN P1 ET PT PL EN0 P2 PTC RR AN DF);返回三维坐标点
(setq e (car (entsel)))
(SETQ PL NIL)
(SETQ EN0 (ENTGET E)
ET (CDR (ASSOC 0 EN0))
)
(COND
((= ET "LWPOLYLINE")
(setq EN0 (entget E)
P (ASSOC 10 EN0)
h (list (cdr (ASSOC 38 EN0)))
PL nil
)
(WHILE P
(SETQ EN0 (MEMBER P EN0)
P (CDR (ASSOC 10 EN0))
EN0 (CDR EN0)
PL (CONS (append P h) PL)
P (ASSOC 10 EN0)
)
)
(setq PL (reverse PL))
)
((= ET "POLYLINE")
(SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
(WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
(SETQ P (CDR (ASSOC 10 EN)))
(SETQ P (TRANS P E 1))
(SETQ PL (CONS P PL))
(SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
)
)
)
(REVERSE PL)
最低0.47元/天 解锁文章
扫一扫
3301
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
