[编程申请]：如何获取任意曲线上距指定点等距的法线（标注公里标）

silen618

如何实现获取任意曲线上距指定点等距的法线，给曲线等距等分。

试过mearsure命令，但它只能朝一个方向，并且是从离选择点较近的曲线端点开始等分的。

需要从曲线（包括直线、多段线、圆弧）上任意指定点开始等距等分，并在等分点向指定法线方向绘制一给定长度线段，标明文字。

具体比如，给曲线标注公里标。

lsjjm

关键有两个问题:一是找出距给定点指定距离(沿曲线)的点, 二是在这个点上做曲线的法线. 搜索一下论坛, 这两个方面的贴子都有.

xyp1964

可以利用(vlax-curve-getPointAtDist curve-obj dist)和(vlax-curve-getDistAtPoint curve-obj point)函数

silen618

楼主的方法只能获取等分点或距离，但怎么获取法线方向呢？

xyp1964

什么是法线？定义！

lsjjm

请参考:
[php]
曲线上任意点的法线:
(defun C:test ()
  (setvar "osmode" 512)
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (car (entsel)))
  (setq tan (vlax-Curve-GetFirstDeriv cur
              (vlax-Curve-GetParamatDist cur
                (vlax-curve-getDistAtPoint cur p))))
  (setq pe (polar p (+ (/ pi 2)(atan (/ (cadr tan)(car tan)))) 1))
  (vl-cmdf "xline" p pe  "")
)
[/php]

silen618

测试过，可以改成：
(defun C:test ()
  (setvar "osmode" 512)
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (car (entsel)))
  (setq tan (vlax-Curve-getFirstDeriv cur (vlax-Curve-getParamAtPoint cur p)))
  (setq pe (polar p (+ (/ pi 2) (atan (/ (cadr tan) (car tan)))) 1))
  (vl-cmdf "xline" p pe "")
  )

更简洁。