[已解决]有关垂直距离

AMTONNY

现已知图形中的三点的,求其中的一点&ltt2>到到另外两点&ltt6  Pt7>的垂直距离,如附图所示,本人弄了好久也没有搞成功.

yxp

AMTONNY，你看这个DLT返回的是不是你需要的距离，pt1应该是你需要的点，用autolisp程序如下：

(defun Dlt(pt2 pt6 pt7 / pt1)
(setq pt1(inters pt2 (polar pt2 (+ (angle pt6 pt7) (/ pi 2.0)) 1.0) pt6 pt7 nil))
(distance pt1 pt2)
)

如果采用VL的话似乎应该用vlax-curve-getClosestPointTo，即返回曲线上离指定点最近的点，当然你的pt6和pt7是直线也属于曲线范畴
语法：(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])
参数:  curve-obj   要测量的 VLA 对象。
          givenPnt   点（在 WCS 上），寻找曲线上距该点最近的点。
          extend     如果指定该参数且其值不为 nil，vlax-curve-getClosestPointTo 在搜索最近点时扩展曲线。

返回值：如果成功则返回表示曲线上一点的三维点表，否则返回 nil。

5061220

知道三角形的三个顶点位置，求任一个顶点的垂线距离，这个是一道中学生的题。

AMTONNY

yxp发表于2009-8-11 11:24:00AMTONNY，你看这个DLT返回的是不是你需要的距离，pt1应该是你需要的点，用autolisp程序如下：(defun Dlt(pt2 pt6 pt7 / pt1)(setq pt1(inters pt2 (polar pt2 (+ (angle pt6 pt7) (/ pi 2.0))

谢谢YXP大侠的热心,我用了你的程序还是找不到我要的点,都怪我没有表达清楚,现在我重新上传了附件了,此附件加载到那张图中后运行即可知道我所需要的点了.

yshf

3. (setq jd  (inters pt2 (polar pt2 (+ (* 0.5 pi) (angle pt6 pt7)) 1.0) pt6 pt7 nil))

(setq jd  (inters pt2 (polar pt2 (+ (* 0.5 pi) (angle pt6 pt7)) 1.0) pt6 pt7 nil))

yxp

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3. (setq aw (getdist pt2 "\n请指定底边上一点(垂直):"))
4. ;(如何自动求得此点距离<附有CAD图档》就是要程序自动求得此AW点，不需要再用鼠标点此点了)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq aw (getdist pt2 "\n请指定底边上一点(垂直):")) ;(如何自动求得此点距离<附有CAD图档》就是要程序自动求得此AW点，不需要再用鼠标点此点了)

将你中间那句替换为：
(setq aw (distance pt2 (inters pt2 (polar pt2 (+ (angle pt6 pt7) (/ pi 2.0)) 1.0) pt6 pt7 nil)))

AMTONNY

谢谢楼上几位大侠的热心帮忙，此问题已经完美解决了，谢谢！

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;(setq aw (getdist pt2 "\n请指定底边上一点(垂直):"))
(setq aw (distance pt2 (inters pt2 (polar pt2 (+ (angle pt6 pt7) (/ pi 2.0)) 1.0) pt6 pt7 nil)))
    (setq bda (polar pt2 (* pi 1.5) aw))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (command "_line" pt2 bda "")；此处画线已OK