[求助]角度的问题

夜未眠

如图，L1，L2，D和零件摆放方向都是可变的，如何在程序中确保做出来的一定是A而不是B？？？

PS：这太机子上没CAD，就用画图板画 了个，做完1看——好丑

ZZXXQQ

程序：

2. (DEFUN C:PIN1 ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETVAR "OSMODE" 0)
6. (SETQ D1 (GETDIST "\nD = ? :")
7.        L1 (GETDIST "\nL1 = ? :")
8.        L2 (GETDIST "\nL2 = ? :")
9.        L3 (GETDIST "\nL3 = ? :")
10.        D2 (GETDIST "\nD2 = ? :")
11.        P0 (GETPOINT "\nInsert Point :")
12.        A  (GETREAL "\nRotate Angle (DEG) :")
13.        A1 (+ (/ PI 2) A)
14.        A2 (- A1 PI)
15.        P1 (POLAR P0 A1 (/ DB 2))
16.        P2 (POLAR P1 A L1)
17.        P3 (POLAR (POLAR P2 A L3) A2 (/ L3 2))
18.        P4 (POLAR (POLAR P0 A (+ L1 L3)) A1 (/ D2 2))
19.        P5 (POLAR P4 A L2)
20.        P6 (POLAR P5 A2 D2)
21.        P7 (POLAR P4 A2 D2)
22.        P9 (POLAR P2 A2 D1)
23.        P8 (POLAR (POLAR P9 A L3) A1 (/ L3 2))
24.        P10 (POLAR P1 A2 D1))
25. (COMMAND "LINE" P1 P2 P9 P10 "" "LINE" P2 P3 P8 P9 "" "LINE" P4 P5 P6 P7 "")
26. (SETVAR "OSMODE" OLDOS)
27. (SETVAR "CMDECHO" 1)
28. (PRINC)
29. )

复制代码

phoenixdjq

  P1 (POLAR P0 A1 (/ DB 2))
应该改为

  P1 (POLAR P0 A1 (/ D1 2))