[原创]用VLISP提取LWPOLYLINE坐标

lockmyeye

1. 
   
2. (DEFUN getlwpolylinepoints (ename / temp1)
   
3.     (VL-REMOVE-IF-NOT '(LAMBDA (temp1) (= 10 (CAR temp1))) (ENTGET ename))
   
4. )
   

复制代码

VLISP是比LISP强很多啊！

Gxiaofeng

!

龙龙仔

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

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

lockmyeye

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

meflying

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