多义线顶点数量函数

phoenixdjq

哪位大神指点一下，求多义线顶点函数，好久没用，想不起来了

谢谢！

start4444

是不是这个
;;返回多段线顶点表
(defun vertexs (ename / plist pp n)
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list
  (vlax-variant-value
    (vla-get-coordinates obj))))
  (setq n 0)
  (repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n 2))
  )
  pp
)

自贡黄明儒

entget只取10的组码

nzl1116

vlax-curve-getendparam

弥勒

当年猫老师给的：(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Coordinates )

guosheyang

提取多段线节点表
(mapcar 'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget tym)))

phoenixdjq

自贡黄明儒 发表于 2024-6-12 12:40
entget只取10的组码

谢谢，组码这个是可以提取，我是想用函数
对于多义线顶点数量，组码是90

phoenixdjq

nzl1116 发表于 2024-6-12 12:43
vlax-curve-getendparam

感谢，就是这个函数

phoenixdjq

感谢以上大神们的回复，问题已经解决，也学到了其他方法

xyp1964

数量和顶点，感觉有点文不对题