求剖面直線角度穩定

各位版上的前輩好~
小蝦自學LISP中遇到困難，一直搞不懂使剖面線段可以穩定於不同角度唯一直線，在裡面設置的IF CAL' ANG不太理解，想請各位大大指點迷津>~<



(DEFUN C:S07()
(setq cir 12
cir2 (* cir 0.5)
TT 2.5
T1 2
       bc (getpoint "\n START line 1 point:")
       bp1 (getpoint bc "\n END line 2 point:")
       Bp2 (getpoint BP1"\n direction:")
      )

 (setq p1 (cal "Bc+nor(bP1,bp2)*cir2")
       p2 (cal "rot(p1,bc,-45)")
       p3 (cal "P2+nor(bc,P2)*cir2")
       PR (inters BC p1 p2 p3 nil)
       h (distance BC PR )
)
(setq A (cal "ang(BC,BP1,BP2)"))
(if (> A PI )
   (setq way +1)
   (setq way -1)
 )
(SETQ BL1 (CAL "PLD(BP1,BC,H)")
   
     BL2 (CAL "ROT(BL1,BP1,-90)")
     BA (cal "ang(BP1,BP2,BC)"))
(IF (> BA 1)
  (SETQ BA -90)
  (SETQ BA +90)
)

(COMMAND "circle" Bc (* CIR2))
   (setq p4 (cal "PLD(BC,BP1,H)")
         p5 (cal "rot(p2,bc,-45)")
 p6 (cal "rot(p5,bc,-45)")
 P61 (cal "rot(p3,bc,-90)")
 P3 (cal "P6-nor(bc,P6)*cir2*WAY")
 P7 (cal "rot(p6,bc,-45)")
   P8 (cal "rot(p7,bc,-45)")
 P9 (cal "rot(p8,bc,-45)")
 P10 (cal "rot(p9,bc,-45)")
 P11 (cal "rot(p10,bc,-45)")
 P12 (CAL "PLD (P7,P11,1/2)")
 PT1 (CAL "PLT (P6,BC,1/2)")
 PT2 (CAL "PLT (P2,BC,1/2)")
 PT3 (CAL "PLT (PT2,PT1,1/2)")
       )
(COMMAND "PLINE" P3 p7 "A" "S" P5 P11 "L" PR  P61 "C" "" )
 (command "LAYER" "M" "MARK" "C" "2" "MARK" "")
 (setvar "CECOLOR" "2")
 (setq p (entlast) )
 (command "hatch" "P" "solid" "s" P "")
(COMMAND "Line" p11 p7 "" "LINE" P12 P13 "" "LINE" P15 P14 "")  



(setq V1 (CAL "PLD(BP1,BC,CIR2*0.4)")
      V2 (CAL "PLD(BC,BP1,H)")
      V3 (CAL "PLD(V2,BP1,CIR)")
      V4 (CAL "PLD(V3,BP1,-CIR2)")
      V5 (CAL "PLT(V4,V3,1/3)")
      V6 (CAL "PLT(V5,V2,1/2)")
      V7 (CAL "PLD(BP1,V1,CIR2)")
      V8 (CAL "PLD(V7,V1,-CIR2)")
      V9 (CAL "PLT(V8,V7,1/3)")
      V10 (CAL "PLT(V9,V7,1/2)")
      )
(COMMAND "PLINE" BP1 BL2 V1 "C" )
(COMMAND "LINE" V2 V6 "" "LINE" V4 V5 "" "LINE" V9 V10 "" "LINE" V7 V1 "" "PLINE" BP1 BL2 V1 "C" )
(command "LAYER" "M" "MARK" "C" "2" "MARK" "")
(setvar "CECOLOR" "2")
(setq O (entlast))
(command "hatch" "P" "solid" "s" O "")
)

IF函數是單一條件
(IF 條件表達式 是表達式 [否表達式] )
函數先檢查條件表達式,若其傳回值為 T,便會執行其後的是表達式

CAL指令是內建計算機
在指令提示下或在指令中演算數學和幾何表示式。
CAL 是一個線上幾何計算器，可演算點 (向量)、實數或整數表示式。表示式可以使用 CEN、END 和 INS 等物件鎖點函數來存取既有幾何圖形。

不太明白你的問題剖面直角唯一角度問題😅

取得角度 (CAL 指令)
ang(apex,p1,p2)
取得線段 (apex,p1) 與線段  (apex,p2) 的夾角。


我也看不懂你的問題
可以把你有問題程式碼的部分圈出來
或是妳想要的結果與程式產生的結果的比較，用圖片等方式呈現
可以讓人比較知道你的問題在哪裡

= =謝謝兩位前輩的提醒，出使用網站還不太熟....