如何获得 POLYLINE 顶点坐标？

xujinhua

caoyin 发表于 2013-1-20 18:17
二楼的代码过于冗长,还是vlax-curve函数简洁
(defun get_pline-vertexs (e / i v lst)
  (setq i - ...

好用。。。谢谢啊

tigcat

caoyin 发表于 2013-1-20 18:17
二楼的代码过于冗长,还是vlax-curve函数简洁
(defun get_pline-vertexs (e / i v lst)
  (setq i - ...

我点了一个圆，然后无限循环了，这个怎么解决了？

表骑马实开车

caoyin 发表于 2013-1-20 18:17
二楼的代码过于冗长,还是vlax-curve函数简洁
(defun get_pline-vertexs (e / i v lst)
  (setq i - ...

版主好，  (setq i -1) i等于-1的时候会多一个重复的坐标出来，设置成0就好了。这个是什么情况？

caoyin

表骑马实开车 发表于 2022-4-8 12:25
版主好，  (setq i -1) i等于-1的时候会多一个重复的坐标出来，设置成0就好了。这个是什么情况？

根据需要，对于闭合多段线加个判断 vlax-curve-isClosed

hetozju_ming

(vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget(car(entsel)))))这是我从别人那里抄来的

hh_lj007

hetozju_ming 发表于 2022-4-12 09:10
(vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget(car(entsel)))))这是我从 ...

这个是获取LWPOLYLINE轻量多段线的方法

表骑马实开车

caoyin 发表于 2022-4-12 04:26
根据需要，对于闭合多段线加个判断 vlax-curve-isClosed

理解了，感谢回复