[原创]用VLISP提取LWPOLYLINE坐标

lockmyeye · 发表于 2003-11-5 18:10:00

复制代码
VLISP是比LISP强很多啊！

Gxiaofeng · 发表于 2003-11-5 19:11:00

龙龙仔 · 发表于 2003-11-6 07:56:00

vlisp & lisp 各有所長
;;Jaysen Long
(defun MASSOC_J       (KEY ALIST / NLIST)
  (foreach X ALIST
(if       (eq KEY (car X))
   (setq NLIST (cons (cdr X) NLIST))
)
  )
  (reverse NLIST)
)

BDYCAD · 发表于 2003-11-6 08:12:00

主要是提取pline的各個頂點嗎?

lockmyeye · 发表于 2003-11-6 11:27:00

只是lwpolyline的顶点，polyline的顶点不可以。

meflying · 发表于 2003-11-6 11:49:00

其实lockmyeye将entget改成直接的列表，就和龙龙仔的一样，就函数功能来说，就是提取列表中指定关键字的所有项

[原创]用VLISP提取LWPOLYLINE坐标

发表回复

精选推荐