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

kss789678

$$
$$过某个点且与XC轴成一定角度生成直线
3 {. i5 a$ j; Z$ y- A( u$$
entity/obj,pt  
number/n,x,y,z
, p0 e2 w+ o/ o$ e( o data/n,45
l10:
3 s1 {1 H2 G! N. o   $$ident/'pick a point',pt,resp
. Z) ^( a  _: x& j& ^6 y$ G   gpos/'小蔡提示：点',x,y,z,resp
- ], H0 O, l) K. c3 o   jump/l10:,trm:,,resp
; Y+ R; x3 }; }7 X   pt=point/x,y,z
l20:
! ~: E( n/ E5 _   param/'小蔡提示：输入角度','角度=',n,resp
   jump/l20:,trm:,,resp
3 N; z9 C9 m" T6 S  t3 u6 i) L' Q
l30:
& E, J# N0 e+ o6 F& W
9 c$ O) h& a7 c# p    obj=line/pt,atangl,n
% x$ A& H- l, Y/ Q/ X
8 U+ K, H0 H1 I: j
trm:

    halt

kss789678