请教各位大侠，曲线测量问题

LIHUISHUAN

看罢曲线测量函数，有一个问题一直没搞清楚，特请教如下：
做一函数，输入点pt1及曲线，返回曲线上的点pt2, pt1与pt2的连线应与曲线在pt2点处的切线垂直。
最好是加载函数后，在屏幕上选定曲线，然后移动光标，即动态显示光标所在位置到pt2点的连线，随着光标移动，pt2点及连线随之移动。

[em00][em00][em00][em00][em00]

meflying

(defun c:test( / ent entl pt pt_close)
  (setq ent (car (entsel)))
  (setq ent (vlax-ename->vla-object ent))
  (command "_.line" '(0 0) '(1 0) "")
  (setq entl (entget (entlast)))
  (while (= (car (setq pt (grread 2 4))) 5)
    (setq pt (cadr pt))
    (setq pt_close (vlax-curve-getClosestPointTo ent pt))
    (setq entl (subst (cons 10 pt_close) (assoc 10 entl) entl))
    (setq entl (subst (cons 11 pt) (assoc 11 entl) entl))
    (entmod entl)
  )
  (princ)
)

龙龙仔

這個好!以後很多地方會用得著,當然不會是這樣,可能改為虛線移動用於指定距離、指定點、指定方向。

tukuitk

飞哥，你好历害！
小弟我真的佩服！
我对grread函数不太懂，我先去看看书，不懂再来向你请教，嘿嘿。：）

LIHUISHUAN

飞哥当然厉害！
我的问题有一多半都是飞哥帮助解答的！
不过您的程序好像不支持延长线，能在改进一下就更好了！
谢谢！

meflying

这样即可，不过不支持SPLINE，因为SPLINE的延长线本身就不好确定。
而且程序也不会将曲线（好象只有圆弧）延长
[CODE](defun c:test( / ent entl pt pt_close)
  (setq ent (car (entsel)))
  (setq ent (vlax-ename->vla-object ent))
  (command "_.line" '(0 0) '(1 0) "")
  (setq entl (entget (entlast)))
  (while (= (car (setq pt (grread 2 4))) 5)
    (setq pt (cadr pt))
    (setq pt_close (vlax-curve-getClosestPointTo ent pt t))
    (setq entl (subst (cons 10 pt_close) (assoc 10 entl) entl))
    (setq entl (subst (cons 11 pt) (assoc 11 entl) entl))
    (entmod entl)
  )
  (princ)
)CODE]

LIHUISHUAN

飞哥您好：
您的程序问题在于vlax-curve-getClosestPointTo返回的是距离曲线最近的点，而非垂直点，所以在pline角点处、曲线的起点及终点处返回不正确，在以上点位应返回曲线或多段线某一段延长线处的垂点。

meflying

希望多测试一下，不是所有曲线都返回不正确，PLINE端点无法延长，SPLINE端点也无法延长是这个程序的局限。至于其它曲线都是正确的。

你说PLINE的角点不正确，那我问你，角点处的切线你能作出来吗？无法作切线，谈何与切线垂直？

最后，你用几何知识分析一下，在光滑曲线外一点到这条曲线的最近点的切线是否和最近点同已知点连线垂直

LIHUISHUAN

惭愧！！！！！！！

无痕

1