本帖最后由 杜阳 于 2014-6-10 19:04 编辑

综合利用院长xyp1964的代码  及一个函数，这个函数是哪位大师的 我不知道了  在此谢谢l了，也非常谢谢明经  学到了很多       我就是拼凑的一个莱鸟小程序  和大家共享   
;批量标注角度
(vl-load-com)
(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
)
(defun c:jbz ()
(setvar "CMDECHO" 0)
(setq s1 (car (entsel "\n选择多段线: ")))
(setq ptn (vertexs s1))
(setq i 0)
(while (and (setq p0 (nth i ptn))
(setq p1 (nth (+ i 1) ptn))
(setq p2 (nth (+ i 2) ptn))
)
(setq i (1+ i)
pt (polar p1 (angle p1 p0) 50)
p2 (polar p1 (angle p1 p2) 50)
)
(COMMAND "DIMANGULAR" "" p1 p2 pt pt)
)
)

网友答: 无法判定锐角钝角

网友答:
很实用，顶起来哦

网友答: 很实用，顶起来哦

网友答: 角度标点，学习下

网友答: 学习看看！！！！！！！！！！

网友答: 看是否实用

网友答: 看帖，坐地上看

网友答: 回复看看..

网友答: 来瞧瞧！

网友答: 谢谢了！呵呵

网友答: 瞅瞅...

网友答: 个人建议COMMAND修改为ENTMAKE，执行速度更有效率！