[求助]：求一点P1到......

tuger · 发表于 2002-10-9 19:02:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求一点P1到一条直线L1的连线Line2,该连线Line2需垂直于直线L1
再求连线Line2和L1的交点坐标.各位高手能指点一下.

XDSoft · 发表于 2002-10-9 19:07:22

最初由 tuger 发布
[B]求一点P1到一条直线L1的连线Line2,该连线Line2需垂直于直线L1
再求连线Line2和L1的交点坐标.各位高手能指点一下. [/B]

没有看太清楚，你截个图贴论坛吧

Qlin · 发表于 2002-10-10 01:27:00

我想tuger是想求P1点到L1线段垂线的垂足坐标
L1的两个端点坐标很容易获得，加上P1的坐标，
用简单的三角函数就能得到垂足坐标。
有两个特殊情况：
1、P1在线段L1所在的直线上
2、垂足点不在线段L1的范围之内

tuger · 发表于 2002-10-10 01:47:13

Qlin兄说得对,我想要解决的就是你说的这两种特殊情况.

Qlin · 发表于 2002-10-10 08:41:02

关于第一个情况，假设L1的两个端点为PA和PB，
那么判断P1与PA所连直线与P1与PB所连直线的夹角
是否为0或π的整数倍既可。

而第二种情况，不知你想如何处理这个特殊点？

cy956 · 发表于 2002-10-10 09:19:51

最初由 Qlin 发布
[B]关于第一个情况，假设L1的两个端点为PA和PB，
那么判断P1与PA所连直线与P1与PB所连直线的夹角
是否为0或π的整数倍既可。

而第二种情况，不知你想如何处理这个特殊点？ [/B]

点好求。
夹角判断的办法要小心，
因为数值精度的影响。

newer · 发表于 2002-10-10 16:33:47

最初由 cy956 发布
[B][QUOTE]最初由 Qlin 发布
[B]关于第一个情况，假设L1的两个端点为PA和PB，
那么判断P1与PA所连直线与P1与PB所连直线的夹角
是否为0或π的整数倍既可。

而第二种情况，不知你想如何处理这个特殊点？ [/B... [/B]

大家是不是讨论的麻烦了？我想的办法，大家看看如何

1、先得到L1的两个端点PT1,PT2
2、求PT1,PT2夹角A1
3、A1+(/ PI 2)得到垂直的角A2
4、根据角度A2,和已知的点P1，构造一个临时点P2
(polar p1 a2 100)，距离100这个值随便输，目的获得垂线方向的任意点
5、求P1,P2和PT1,PT2的交点，使用INTERS函数，后面用参数NIL
(setq int (inters p1 p2 pt1 pt2 nil))

这个INT是不是就是上面朋友要的垂点？

Qlin · 发表于 2002-10-10 21:12:23

最初由 Qlin 发布
[B]
5、求P1,P2和PT1,PT2的交点，使用INTERS函数，后面用参数NIL
(setq int (inters p1 p2 pt1 pt2 nil)) ...
[/B]

这个方法有个问题，当点与直线共线，会得到一个不存在的垂点坐标。

XDSoft · 发表于 2002-10-10 21:20:19

最初由 Qlin 发布
[B]这个方法有个问题，当点与直线共线，会得到一个不?.. [/B]

我想上面的朋友的方法不错，目的就想求那个点，如果没有特殊要求的话，点在线上也无所谓。

如果有要求，那么再加上一个判断前后两点的距离是否等于0，就可以排除了。

[FONT=courier new]
(if (not (equal (distance int p1) 0 1e-5))
(progn
(.....) ;点在直线外，有垂线
)
(progn
; 点P1在直线L1上，没有垂线
)
)[/FONT]

长清 · 发表于 2002-10-11 17:22:20

自己写代码：

1  计算L1的端点PT1 和PT2
(setq pt1 (cdr (assoc 10 ...
(setq pt2 (cdr (assoc 11 ...

2  计算PT1到PT2的角度
  (setq ang (angle pt1 pt2))

3  假定虚拟点,使P1到PT-K的直线与L1垂直。
  (setq pt-k (polar p1 (+ ang (* pi 0.5))  20)

4  计算交点
(setq  pt-last
(inters p1 pt-k pt1 pt2 nil)
)
  注意了，需要 " nil "

无痕 · 发表于 2002-10-11 20:46:36

如果是画图，用 line ,点第二点的时候“per”点直线画垂直线，（getvar "lastpoint"）得到垂足。

tuger · 发表于 2002-10-12 01:37:19

[FONT=courier new]
;;标注断开或延伸
(defun c:zxbn (/ ang ang1 ang2 ent enta entdist l p1 p2 p3 p4 pt1 pt2 pt3 temppt temppt1
tempt x1 x2
)
(zxerrset)
(setvar "CMDECHO" 0)
(setq enta (car (entsel "\n请点一下要断开或延伸的标注<退出>:")))
(if enta
(progn
(setvar "osmode" 161)
(setq p4 (getpoint "\n断开点或延伸点<退出>:"))
(if p4
(progn
(setq ent (entget enta))
(setq p1 (cdr (assoc 13 ent))
p2 (cdr (assoc 14 ent))
p3 (cdr (assoc 10 ent))
)
(setvar "osmode" 0)
(setq ang (angle p1 p2)
ang1 (+ ang (/ pi 2))
ang2 (+ ang pi)
)
(setq entdist (distance p3 p2))
(setq tempt (polar p3 ang2 (distance p1 p2))) ;尺寸线另一端点
(setq temppt (polar p4 ang1 100)) ;临时点
(setq temppt1 (inters
p1
p2
p4
temppt
nil
)
);交点
(setq x1 (distance p1 temppt)
x2 (distance p2 temppt)
L (distance p1 p2)
) ;;
(if (or
(and
(> (- x1 L) 0)
(< (- x2 L) 0)
)
(and
(< (- x1 L) 0)
(> (- x2 L) 0)
)
)
(progn
(if (< 0 (- x1 x2))
(progn
(setq pt1 p1
pt2 temppt1
pt3 tempt
)
(zxdim)
) ;(if (> 0 (- x1 x2))
(progn
(setq pt1 temppt1
pt2 p2
pt3 p3
)
(zxdim)
) ;)
)
)
(progn
(setq pt1 p1
pt2 temppt1
pt3 tempt
)
(zxdim)
(setq pt1 temppt1
pt2 p2
pt3 p3
)
(zxdim)
)
)
(entdel enta)
)
)
)
)
(zxerrhf)
(princ)
)[/FONT]

[FONT=courier new] 
;;标注断开或延伸 
(defun c:zxbn (/ ang ang1 ang2 ent enta entdist l p1 p2 p3 p4 pt1 pt2 pt3 temppt temppt1 
                 tempt x1 x2 
              ) 
  (zxerrset) 
  (setvar "CMDECHO" 0) 
  (setq enta (car (entsel "\n请点一下要断开或延伸的标注<退出>:"))) 
  (if enta 
    (progn 
      (setvar "osmode" 161) 
      (setq p4 (getpoint "\n断开点或延伸点<退出>:")) 
      (if p4 
        (progn 
          (setq ent (entget enta)) 
          (setq p1 (cdr (assoc 13 ent)) 
                p2 (cdr (assoc 14 ent)) 
                p3 (cdr (assoc 10 ent)) 
          ) 
          (setvar "osmode" 0) 
          (setq ang (angle p1 p2) 
                ang1 (+ ang (/ pi 2)) 
                ang2 (+ ang pi) 
          ) 
          (setq entdist (distance p3 p2)) 
          (setq tempt (polar p3 ang2 (distance p1 p2)))  ;尺寸线另一端点 
          (setq temppt (polar p4 ang1 100))  ;临时点 
          (setq temppt1 (inters 
                          p1 
                          p2 
                          p4 
                          temppt 
                          nil 
                        ) 
          );交点 
          (setq x1 (distance p1 temppt) 
                x2 (distance p2 temppt) 
                L (distance p1 p2) 
          ) ;; 
          (if (or 
                (and 
                  (> (- x1 L) 0) 
                  (< (- x2 L) 0) 
                ) 
                (and 
                  (< (- x1 L) 0) 
                  (> (- x2 L) 0) 
                ) 
              ) 
            (progn 
              (if (< 0 (- x1 x2)) 
                (progn 
                  (setq pt1 p1 
                        pt2 temppt1 
                        pt3 tempt 
                  ) 
                  (zxdim) 
                )                ;(if (> 0 (- x1 x2)) 
                (progn 
                  (setq pt1 temppt1 
                        pt2 p2 
                        pt3 p3 
                  ) 
                  (zxdim) 
                )                ;) 
              ) 
            ) 
            (progn 
              (setq pt1 p1 
                    pt2 temppt1 
                    pt3 tempt 
              ) 
              (zxdim) 
              (setq pt1 temppt1 
                    pt2 p2 
                    pt3 p3 
              ) 
              (zxdim) 
            ) 
          ) 
          (entdel enta) 
        ) 
      ) 
    ) 
  ) 
  (zxerrhf) 
  (princ) 
)[/FONT]

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

[求助] [求助]：求一点P1到......

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：求一点P1到......

这样可以的

浏览过的版块