直線思路尋求解答

terryyang516

各位大神
想請教思路如何做到下列情形




簡單說我想要藉由使用者取得兩點 (basepointX, basepointY)
再取得使用者想要的寬度(width)
不管形成的角度如何  都保持四角都是90度
但實際情形我卻做成了右邊的情況
估計是我搞錯了角度旋轉的問題
有請大神協助!

edata

1. (defun c:tt(/ BasePtX BasePtY width ang1 offsetx1 offsetx2 offsety1 offsety2)
   
2.   (if(and(setq BasePtX(getpoint "BasePtX: "))
   
3.          (setq BasePtY(getpoint BasePtX "BasePtY: "))
   
4.          )
   
5.     (progn
   
6.       (setq width (cond((getdist "Enter width<10>: " ))(10)))
   
7.       (setq ang1(angle BasePtX BasePtY))
   
8.       (setq offsetx1(polar BasePtX (+ ang1(* pi 0.5)) (* width 0.5))
   
9.             offsetx2(polar BasePtX (+ ang1(* pi 1.5)) (* width 0.5))
   
10.             offsety1(polar BasePtY (+ ang1(* pi 1.5)) (* width 0.5))
    
11.             offsety2(polar BasePtY (+ ang1(* pi 0.5)) (* width 0.5))
    
12.             )
    
13.       (command "pline" "non" offsetx1 "non" offsetx2 "non" offsety1 "non" offsety2 "c")
    
14.       )
    
15.     )
    
16.   (princ)
    
17.   )

(defun c:tt(/ BasePtX BasePtY width ang1 offsetx1 offsetx2 offsety1 offsety2)<br />   (if(and(setq BasePtX(getpoint "BasePtX: "))<br />          (setq BasePtY(getpoint BasePtX "BasePtY: "))<br />          )<br />     (progn<br />       (setq width (cond((getdist "Enter width<10>: " ))(10)))<br />       (setq ang1(angle BasePtX BasePtY))<br />       (setq offsetx1(polar BasePtX (+ ang1(* pi 0.5)) (* width 0.5))<br />             offsetx2(polar BasePtX (+ ang1(* pi 1.5)) (* width 0.5))<br />             offsety1(polar BasePtY (+ ang1(* pi 1.5)) (* width 0.5))<br />             offsety2(polar BasePtY (+ ang1(* pi 0.5)) (* width 0.5))<br />             )<br />       (command "pline" "non" offsetx1 "non" offsetx2 "non" offsety1 "non" offsety2 "c")<br />       )<br />     )<br />   (princ)<br />   )

terryyang516

edata 发表于 2014-7-26 13:38

謝謝e神!
馬上茅塞頓開!