請問，G41/G42有辦法改成以下的格式嗎?謝謝

k7403290

, y9 h' k3 s* c( e3 T1 d
0 c+ x# E6 `  t0 U3 F5 X+ K正常輸出的程式
. E: T8 W, @9 W# ?+ B" y( R" X* rG0 X-93.634 Y3.509
4 S9 C9 m" J; X) _Z25.
" i* C& r; o- c3 e' T* a# T8 gZ10.
; o: C8 W3 ^5 {- N5 J, {! v: _  [G1 Z0. F600.
9 R2 J* Q# R7 `5 k" k, G8 ZG41 D3 X-83.634 F120.
Y33.587
3 B  e( `# D4 w0 W/ YX-1.253
Y-26.569
' P: Q* _1 W! ~' L* Y- sX-83.634
Y3.509
; I- G+ s5 K7 _" e; _G40 X-93.634
5 s. C/ O  a/ c8 P1 l$ hG0 Z25.

3 J& q- b' l3 {- N9 r' j5 U; ~希望修改的格式，G41/G42前一行增加固定文字
G0 X-93.634 Y3.509
8 S# j6 o- E* J4 F) U! nZ25.
Z10.
6 l0 ~- w& S" c& {0 mG1 Z0. F600.
(XXYY)增加註解
G41 X-83.634 F120.不要D
8 {' N3 O) V+ X) T( `Y33.587
' n& ]* a0 ^- d' t& v" Y' f4 ~* A: E' MX-1.253
Y-26.569
X-83.634
Y3.509
" |3 t1 i8 I, \! [+ b/ H# B; CG40 X-93.634
(AABB)增加註解，G40下一行增加文字
  K) E* D( L4 I/ v# xG0 Z25.

lyd_2005

有辦法,
6 f4 `# b/ O! {6 l不要D，查找pccdia，删除if cc_pos$,后面的东西
问题不清楚，xxyy，aabb是固定字符，还是任意字符

k7403290

lyd_2005 发表于 2023-11-22 08:24
有辦法,
9 ^( Y" w/ b% @( i! j! N不要D，查找pccdia，删除if cc_pos$,后面的东西
$ D/ u( d; t; A; g3 G$ G; e' C问题不清楚，xxyy，aabb是固定字符，还是任意字符 ...

) r, y0 i( C  W固定字符

k7403290

lyd_2005 发表于 2023-11-22 08:24
有辦法,
不要D，查找pccdia，删除if cc_pos$,后面的东西
" i+ o5 [* S* p8 U5 u问题不清楚，xxyy，aabb是固定字符，还是任意字符 ...

不要D，已處理
就是程式中只要遇到G41/G42那上面一行就要多一組固定的字
3 ]' Q# S0 i  o; C  i. U  h同理，遇到G40，下面一行也是要多一行固定的字

lyd_2005

* ^8 I7 |' x- ^. c* s
) W! j! N* z9 `6 J% u! E' v#Output to NC of linear movement - feed
cc_pos 1 : 0
3 Q9 x5 I' G( n5 W. bplinout
. }$ [# Q+ A/ Y' g6 ~; i5 i, G6 b+ R          if prv_ca_pos$ <> ca_pos$ & ca_pos$, prv_tloffno$ - c9k, " (XXYY) ", e$
          if prv_cc pos$ <> cc pos$ & cc pos$ = 0, cc_pos_1 = 1
9 p% y9 {. }5 [) M! C          pcan1, pbld, [if sgplane <> "G17", sgplane], 'sgcode, sgabsinc, pccdia,
! d. J, J% ]1 M2 Y. ?( U. r( |          pxout, pyout, pzout, pcout, 'feed, strcantext, scoolant, e$
% }. y7 ?  R' Q          if cc_pos_1 =1, [cc_pos_1 = 0, "(AABB) ", e$]
# {! A* t2 ], r
9 U6 `/ N# o( Q, I
; A$ L* n$ K0 a" V/ G9 S* l

# V) }; Q; \; [0 k

: s$ [/ y! a7 z0 `- p0 H' {