指点我下:如何遍历pline线的每个顶点?

碎玉す全瓦

 我用list可以查看到多义线的总长度,请问如何用lisp提取这个长度?DXF组码是多少啊?

还有我怎么才能遍历pline线的每个顶点的数据呢?

请高手们指点我一下,弄了一下午都没弄明白.

BDYCAD

2. (command "lengthen" 对象 "")
3. (setq len (getvar "perimeter"))

(command "lengthen" 对象 "") (setq len (getvar "perimeter"))

碎玉す全瓦

谢谢指点

rongyifei

遍历pline线的每个顶点的数据

(defun c:test ()
  (setq plobj (vlax-ename->vla-object
    (car (entsel "选取一条轻装多义线:"))
  )
 pt_list (vlax-safearray->list
    (vlax-variant-value (vla-get-coordinates plobj))
  )
 pt_str ""
 n 0
  )
  (while (< n (length pt_list))
    (setq pt_str (strcat pt_str
    "第"
    (itoa (+ (/ n 2) 1))
    "点的坐标为:  "
    "X="
    (vl-princ-to-string (nth n pt_list))
    "   "
    "Y="
    (vl-princ-to-string (nth (1+ n) pt_list))
   )
   pt_str (strcat pt_str "\n")
   n  (+ n 2)
    )
  )
  (alert pt_str)
)

hb_xiaofen

一句话就可以

 (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget PlineEname))

碎玉す全瓦

这句比较深，我要消化一下，先谢谢了