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

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

如何是在折角的地方，这条垂线其实是这个折角的等分线，没有思路，求教！谢谢。
上个图吧，怕没表达清楚。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 static/image/common/back.gif
代码没考虑闭合多段线情况，闭合情况请自己动手改造！

好简洁的代码，谢谢了！

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



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

xyp1964 发表于 2014-5-22 13:14 static/image/common/back.gif


牛人！

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

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

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

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

计算角点与前后两点形成向量并单位化，二者相加就是内角平分线向量，相减就是外角平分线向量。
页: [1]
查看完整版本: 如何自动画出pline上节点的垂线