过某个点且与XC轴成一定角度生成直线

kss789678

$$
  h/ L/ p5 a& W% I& v' O$ a$$过某个点且与XC轴成一定角度生成直线
# Y' {7 H' g- ~/ l, i$$
0 W+ _- T, E) f+ F, m  _! u3 Y; m entity/obj,pt  
4 F. V0 E9 g" r' i1 ?$ l- Z number/n,x,y,z
  L, Q2 {! L& i: h$ G9 h; f" D data/n,45
3 Y7 z6 [1 S) z% v" Pl10:
- a" E6 o) Y; e! ^   $$ident/'pick a point',pt,resp
: [+ B, \0 k! E% W   gpos/'小蔡提示：点',x,y,z,resp
# F3 D- E# `  q. s4 i   jump/l10:,trm:,,resp
   pt=point/x,y,z
l20:
   param/'小蔡提示：输入角度','角度=',n,resp
0 D7 i4 o3 j7 f. Q   jump/l20:,trm:,,resp
0 m' E% V* D' N0 b
& b4 s2 [0 S" X, l( [+ O  h( l: }8 U# Wl30:
2 i/ F' q/ F- Q; e- e5 {
    obj=line/pt,atangl,n
( M- D7 p7 ?: P# W- K/ l

trm:

    halt
8 I# x* {# T& m- F: k  k

kss789678