如何自动画出pline上节点的垂线

fwdll · 发表于 2014-5-22 11:31:39

如何是在折角的地方，这条垂线其实是这个折角的等分线，没有思路，求教！谢谢。
上个图吧，怕没表达清楚。file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\378806873\QQ\WinTemp\RichOle\CK$N1BMGGYN)MJQ0HG4O5EI.jpg

fan_zh · 发表于 2014-5-22 11:53:34

应该不难吧，求顶点，再求角平分线，论坛上都有代码的

Gu_xl · 发表于 2014-5-22 11:59:49

(defun c:tt ()
(if (setq s (ssget ":S" '((0 . "*polyline"))))
(progn
(setq e (ssname s 0))
(setq n (fix (vlax-curve-getEndParam e)))
(setq i 1)
(repeat (- n 1)
(setq p1 (vlax-curve-getPointAtParam e (1- i))
p2 (vlax-curve-getPointAtParam e i)
p3 (vlax-curve-getPointAtParam e (1+ i))
)
(setq ang (* 0.5 (+ (angle p2 p1) (angle p2 p3))))
(setq p4 (polar p2 ang 10)
p5 (polar p2 ang -10)
)
(command "line"
"non"
(trans p4 0 1)
"non"
(trans p5 0 1)
""
)
(setq i (1+ i))
)
)
)
)

代码没考虑闭合多段线情况，闭合情况请自己动手改造！

fwdll · 发表于 2014-5-22 12:02:58

角平分线，好，谢谢。

fwdll · 发表于 2014-5-22 12:10:55

Gu_xl 发表于 2014-5-22 11:59
代码没考虑闭合多段线情况，闭合情况请自己动手改造！

好简洁的代码，谢谢了！

xyp1964 · 发表于 2014-5-22 13:14:17

fwdll · 发表于 2014-5-22 15:23:30

xyp1964 发表于 2014-5-22 13:14

牛人！

chenbh2 · 发表于 2014-12-30 22:16:25

Gu_xl 发表于 2014-5-22 11:59
代码没考虑闭合多段线情况，闭合情况请自己动手改造！

G版能不能做成内角或外角平分线!

vormittag · 发表于 2014-12-31 09:41:43

计算角点与前后两点形成向量并单位化，二者相加就是内角平分线向量，相减就是外角平分线向量。

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

[提问] 如何自动画出pline上节点的垂线

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

浏览过的版块