批量标注角度

杜阳 · 发表于 2014-6-10 19:02:13

本帖最后由杜阳于 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)
)
)

meja · 发表于 2023-6-14 20:39:48

无法判定锐角钝角

技术工作室 · 发表于 2023-9-6 22:35:13

很实用，顶起来哦

seamopan · 发表于 2022-5-3 10:21:15

看看实用不实用

qyming · 发表于 2014-6-10 19:12:56

角度标点，学习下

spp_wall · 发表于 2014-6-10 20:23:46

学习看看！！！！！！！！！！

sqqr · 发表于 2014-6-10 20:27:49

看是否实用

emk · 发表于 2014-6-10 20:28:36

看帖，坐地上看

kwok · 发表于 2014-6-10 20:29:19

回复看看..

xiaobaixiaobu · 发表于 2014-6-10 20:49:32

来瞧瞧！

cuyong123 · 发表于 2014-6-10 21:06:55

谢谢了！呵呵

AbnerXk · 发表于 2014-6-10 22:34:14

瞅瞅...

AbnerXk · 发表于 2014-6-10 22:36:02

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

账号		自动登录	找回密码
密码			注册

[源码] 批量标注角度

本帖被以下淘专辑推荐: