如何循环读取PL线里面的10坐标

张大锤

((-1 . <Entity name: 0b87fc40>) (0 . "LWPOLYLINE") (5 . "2C029E") (330 . <Entity name: 043810e0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 . "水管") (347 . <Entity name: 04643080>) (62 . 121) (284 . 0) (100 . "AcDbPolyline") (90 . 10) (70 . 0) (43 . 0.0) (38 . 0.0) (10 -39933.6 9630.69) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -39766.6 9516.27) (40 . 0.0) (41 . 0.0) (42 . -0.247416) (10 -39679.6 9351.27) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -39679.6 8505.88) (40 . 0.0) (41 . 0.0) (42 . 0.198912) (10 -39621.0 8364.46) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -38923.2 7666.62) (40 . 0.0) (41 . 0.0) (42 . -0.198912) (10 -38864.6 7525.2) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -38864.6 6704.42) (40 . 0.0) (41 . 0.0) (42 . -0.414214) (10 -39064.6 6504.42) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -39404.6 6504.42) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))



以上是我读取出来的 90代表着有多少个10坐标
我想用90判断出 循环的次数 之后读出去 里面10的坐标 并画一个50的圆

(defun c:xxx()
(setq ss (ssget '((-4 . "<AND")(0 . "LWPOLYLINE")(-4 ."AND>"))))
(repeat (cdr (assoc 90 (entget (ssname ss 0))))
    (cond
    (setq clrA (cdr (assoc 10 (entget (ssname ss 0)))))
    (setq clrB (cdr (assoc 10 (entget (ssname ss 1)))))
    (setq clrC (cdr (assoc 10 (entget (ssname ss 2)))))
    (setq clrD (cdr (assoc 10 (entget (ssname ss 3)))))
    (setq clrE (cdr (assoc 10 (entget (ssname ss 4)))))
    (setq clrF (cdr (assoc 10 (entget (ssname ss 5)))))
    )
)
(princ)
)
这个是我写的  但是不对

想请问如何读取出所有的坐标点呢？

duotu007

(defun pl_get_pts (e / i v lst)
  (setq i -1)
  (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
    (setq lst (cons v lst))
  )
  (reverse lst)
)
；测试
(pl_get_pts (car (entsel)))

start4444

不用搞那么复杂吧，你是想每个顶点都画个圆？那就提取多段线的顶点列表，再循环画圆就好了。

这是论坛上的提取函数
;;46.2 [功能] pline,lwpline点坐标表  By 无痕
;;示例(vxs (car (entsel))),返回三维点坐标
(defun vxs (e / i v lst)
  (setq i -1)
  (while
    (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
     (setq lst (cons v lst))
  )
  (reverse lst)
)

张大锤

start4444 发表于 2019-3-28 19:32
不用搞那么复杂吧，你是想每个顶点都画个圆？那就提取多段线的顶点列表，再循环画圆就好了。

这是论坛上 ...

嗯 谢谢你 是的我想取每个点 画个圆
后来想了一个 选择第n个串行的办法。。。但是写的很麻烦 也不好运用

张大锤

duotu007 发表于 2019-3-28 16:38
(defun pl_get_pts (e / i v lst)
  (setq i -1)
  (while (setq v (vlax-curve-getpointatparam e (setq ...

谢谢你很感谢

fangmin723

张大锤 发表于 2019-3-29 08:10
谢谢你很感谢

mapcar你可以了解一下！！！

ljfdjjj

(setq ent(ssname(ssget)0))
(mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget ent)))