88641787 发表于 2015-12-24 21:13:47

杜阳 发表于 2015-12-19 21:09 static/image/common/back.gif
(defun zcx()
    (setvar "osmode" 0)
   (setq p2 (polar p0 0.785398 3.0)

这两段程序都运行不了

杜阳 发表于 2015-12-25 19:11:43

88641787 发表于 2015-12-24 21:13 static/image/common/back.gif
这两段程序都运行不了

缺一个函数

知行ooo李肖坪 发表于 2015-12-26 12:06:17

同步学习………………

yoyoho 发表于 2015-12-30 20:42:27

;;返回多段线顶点表
(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
)
页: 1 [2]
查看完整版本: 标注各多段线端点坐标