[求助]：如何一次得到一条多义线的所有顶点坐标？

它山之石

如何一次得到一条多义线的所有顶点坐标？
TSSD的函数可以得到所有点，可我要在没装TSSD的机器上用：
      (setq gjjdb (&Gpts gjst 10))        ;得到钢筋节点表
但晓东API只能得到一个组码
      (setq qq (xdrx_GetEntDxf 10))

lijiao

(setq ent          (vlax-ename->vla-object ent)
          pt_list (vlax-safearray->list
                    (vlax-variant-value (vla-get-Coordinates ent))
                    )
          )

它山之石

谢谢斑主，如果不用VLISP，只用LISP怎么办？
晓东API是否一次只能得到一组组码？

lsjjm

参考这个:
[php]
(defun c:test ( / pts)
  (foreach i (entget (car (entsel)))
    (if        (= (car i) 10)
      (setq pts (cons (cdr i) pts))
    )
  )
  (reverse pts)
)
[/php]

它山之石

LS长老的办法我试过了，很好的思路，完全满足了我的要求。
非常感谢你的程序。
另外不好意思还有个问题，你将顶点表倒置是为了在命令行显示出来吗？
  (reverse pts)

梦断江南

为了恢复次序,因为cons的特性是把新元素加到表头,循环完之后,pts就是反的.因此要用reverse倒转,才得到正序

它山之石

对，我把这个给忘记了。
非常感谢

lihb

请问怎样把一条polyline线的所有节点求出来.

它山之石

楼上是什么意思，没明白。
你用4楼楼主的方法就可以得到顶点表了。
如果你想知道有几个，只需对顶点表求元素个数就行了。

ll_j

最初由 lihb 发布
[B]请问怎样把一条polyline线的所有节点求出来. [/B]

[php]
(defun c:test(/ en ptlist)
  (setq en (car(entsel "\n拾取重多义线：")))
  (if (= (cdr (assoc 0 (entget en))) "POLYLINE")
    (progn
      (setq ptlist nil
            en (entnext en)
      )
      (while (= (cdr (assoc 0 (entget en))) "VERTEX")
        (setq ptlist (cons (cdr (assoc 10 (entget en))) ptlist)
              en (entnext en)
        )
      )
    )
    (princ "\n拾取的不是重多义线。")
  )
  (reverse ptlist)
)[/php]

lihb

谢谢ll_j 长老.
假如我想得这条多义线的中点坐标,
应该如何去写这个程序.

它山之石

最初由 lihb 发布
[B]谢谢ll_j 长老.
假如我想得这条多义线的中点坐标,
应该如何去写这个程序. [/B]

如果是封闭的多义线，哪个点才能算是中点？
你不妨贴张图上来看看。

梦断江南

如果是曲线实体长度中点
可以用 vlax-curve-getpointatdist 求

winabcd

看到一个好东东, 谢谢楼上提供这些好东东的长老!!

lihb

图片怎么贴上去.我不知道怎么贴??????????
不是闭合.就是一根曲线.

楼上  能不再说具体点呀.