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

kss789678

$$
8 P& w- z7 C5 y! h# c$ W$$过某个点且与XC轴成一定角度生成直线
7 h" Y$ U) p) T) m$$
entity/obj,pt  
: O5 z5 p1 \0 h% @4 B" I- B/ u% F, y: ? number/n,x,y,z
. Z5 {4 c/ d/ K+ ~# [ data/n,45
+ j* H, ]. ?! P' |l10:
4 [% D* ?+ p2 H& _0 _2 P4 {- s& g   $$ident/'pick a point',pt,resp
   gpos/'小蔡提示：点',x,y,z,resp
   jump/l10:,trm:,,resp
+ H* h9 ~$ y) f- }   pt=point/x,y,z
& R% `! P& N% S: h6 R8 fl20:
" q9 B2 A+ S0 L   param/'小蔡提示：输入角度','角度=',n,resp
   jump/l20:,trm:,,resp
2 J6 `! p8 A, |6 u5 I; b
l30:
, D6 \( l4 W1 E5 w$ a
. C: h) V6 o  m& A8 O/ c) F" h    obj=line/pt,atangl,n
& Y$ M2 F( r- _& B6 c4 n' ^

( z8 C9 @/ {  d1 Mtrm:

* H- _0 g$ \: X  Y+ c9 q    halt
' i" B( q1 }" R

kss789678