[讨论]：如何让两线平行

zml84

最初由 szx025 发布
[B]有一点不得其解,p10 (polar pt1 0 xx)这句的意思我的理解是P10沿0度角从PT1平移XX.也就是说P10一定在PT1的右边,但程序执行是,当PT1定位在左下角,PT2定位在右上角时,P10为何自动定位到PT1的左边.[/B]

取核心代码讨论如下：

2. 
   
3. (progn
   
4.     ;;置入常数，计算角度
   
5.     (setq l 100.
   
6.           k (angle pt1 pt2)
   
7.     )
   
8.     ;;为防止除以零而出错，进行判断
   
9.     (if        (or (= k pi) (= k 0))
   
10.         ;;若PT1、PT2两点水平，则复制将PT1做与PT2相同处理得到P10。
    
11.         (setq p10 (polar pt1 (* pi 1.5) l))
    
12.         ;;否则，计算P10点位位置。
    
13.         ;;因为这里的xx可正可负，所以P10不一定都在PT1的X轴正方向。
    
14.         (setq xx  (* l (/ (cos k) (sin k)))
    
15.               p10 (polar pt1 0 xx)
    
16.         )
    
17.     )
    
18.     ;;计算P20点位位置
    
19.     (setq p20 (polar pt2 (* pi 1.5) l))
    
20.     ;;绘制线段
    
21.     (setvar "OSMODE" 0)
    
22.     (command "line" pt1 pt2 "")
    
23.     (command "line" p10 p20 "")
    
24. )
    

<br /> (progn<br />     ;;置入常数，计算角度<br />     (setq l 100.<br />           k (angle pt1 pt2)<br />     )<br />     ;;为防止除以零而出错，进行判断<br />     (if        (or (= k pi) (= k 0))<br />         ;;若PT1、PT2两点水平，则复制将PT1做与PT2相同处理得到P10。<br />         (setq p10 (polar pt1 (* pi 1.5) l))<br />         ;;否则，计算P10点位位置。<br />         ;;因为这里的xx可正可负，所以P10不一定都在PT1的X轴正方向。<br />         (setq xx  (* l (/ (cos k) (sin k)))<br />               p10 (polar pt1 0 xx)<br />         )<br />     )<br />     ;;计算P20点位位置<br />     (setq p20 (polar pt2 (* pi 1.5) l))<br />     ;;绘制线段<br />     (setvar "OSMODE" 0)<br />     (command "line" pt1 pt2 "")<br />     (command "line" p10 p20 "")<br /> )<br />

再举个例子：我从你那里借了-100元，那么最后我们该如何结算呢？

szx025

谢谢ZML的耐心指导,建议其他高手向你学习,也让我们能知其然,也能知其所以然