如何获取和修改多段线的多个顶点坐标

ThinkerHua · 发表于 2016-1-5 13:24:17

例如：
(assoc 10 (entget (car (entsel))))
运行上述代码后，选择了一个多段线，只能返回第一个顶点的坐标。
如何获取多段线的所有顶点？

lizagen · 发表于 2016-1-5 13:36:58

(defun c:abc (/ curve dxf point)
  (vl-load-com)
  (setq curve (car (entsel "\n选择对象")))
  (setq dxf (entget curve))
  (setq point
   (mapcar
   '(lambda (x) (vlax-curve-getclosestpointto curve (cdr x)))
   (vl-remove-if-not '(lambda (x) (= 10 (car x))) dxf)
   )
  )
  (princ point)
  (prin1)
)

lucas_3333 · 发表于 2016-1-5 13:42:37

http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7303840
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7303840

bori · 发表于 2016-1-5 13:45:06

有个笨方法，用vl-remove删除，while循环获取。

xyp1964 · 发表于 2016-1-5 18:44:57

;; (PLVertexs (setq s1 (car (entsel "\n选择多段线: "))))
(defun PLVertexs (s1)(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget s1))))

fan_zh_mjtd · 发表于 2016-1-5 19:55:10

lisp入门必学题-------获取多段线顶点坐标

ThinkerHua · 发表于 2016-1-6 11:34:55

多谢楼上各位的回答，现在基本了解如何获取多段线的各个顶点了。
但是这些方法都是另外建立了一个存储数据的表，如何修改多段线顶点数据并更新还是不清楚。
还请各位再帮帮忙

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

[提问] 如何获取和修改多段线的多个顶点坐标