标注各多段线端点坐标

88641787

杜阳 发表于 2015-12-19 21:09
(defun zcx()
    (setvar "osmode" 0)
   (setq p2 (polar p0 0.785398 3.0)

这两段程序都运行不了  

杜阳

88641787 发表于 2015-12-24 21:13
这两段程序都运行不了

缺一个函数

知行ooo李肖坪

同步学习………………

yoyoho

;;返回多段线顶点表
(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
)