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

kss789678

$$
( {; Z0 F1 M% }$$过某个点且与XC轴成一定角度生成直线
$$
) _( c4 p3 r3 i; _) \ entity/obj,pt  
0 a8 x! d3 Q1 x+ h number/n,x,y,z
data/n,45
l10:
   $$ident/'pick a point',pt,resp
! B0 L( `+ s; p. U6 ^; ^   gpos/'小蔡提示：点',x,y,z,resp
   jump/l10:,trm:,,resp
; X& u5 v  E- V8 L9 x   pt=point/x,y,z
l20:
   param/'小蔡提示：输入角度','角度=',n,resp
   jump/l20:,trm:,,resp

8 H+ z2 R+ B8 I2 a- H1 d1 w& yl30:
0 \# t$ n# v  C8 r. q: T
- r% g8 ~; V. ?. V, u    obj=line/pt,atangl,n


trm:

    halt
. x2 G) g& Z9 ]) d7 Y& |: y6 J

kss789678