,
. .
,
<> <>.grb ( — .grs ).
.
, : . . T‑FLEX CAD, , . , . T‑FLEX CAD.
, — .
<> <>.grb. -01.02.03.01 . , , — . (. 1).
. 1.
, V . T‑FLEX CAD , — : . V, .
→ Ctrl+N. (. 2).
. 2.
? , , . , . 4 , — 6, — 8. (), . N — , , - .
T‑FLEX CAD : . — (, ), . , . , .
$. — . . .
$_. : tgetv("shortfilename") . , … (. 3).
. 3. $_
? tgetv(). T‑FLEX CAD: , . , , — "shortfilename" , . "filename", , .grb. T‑FLEX CAD .
, "-01.02.03.01 ", . , . , , .
$ : tword($_, 1). tword() . : , , . tword() $_ — "-01.02.03.01 ". (. 4).
. 4. $
, $ tpart($_, 19, 3). . tpart : , , , , , . 19 ( ). . , 19- (. 5 6).
. 5.
. 6. $ ( 1)
, , , . , T‑FLEX CAD .
: $ . 19 strlen($) + 2, strlen() — , . $ : tpart($_, strlen($) + 2, 3) (. 7 8).
. 7.
. 8. $ ( 2)
T‑FLEX CAD , . $_ . 3 :
strlen($_) - strlen($ + " ").
strlen() $ ( ). $ (. 9):
tpart($_, strlen($)
+ 2, strlen($_) - strlen($ + " ")).
. 9. $ ( 3)
, . . : {$} . : {$} (. 10).
F8.
. 10. :
) $, ) $
, . , . , -01.02.03.02 . . , .
. . , , . , , . , (. 11).
. 11.
.
. , , , , Shift, . . → Ctrl+C. . , , . CTRL+V ( → ). .
$ , . $ $_ (. 12).
. 12.
$ :
tpart($_, 1, strlen($_) - 2).
: $_ , . , $_ . (. 13).
. 13.
: $_. , $. {$_}. {$}, , . $ (. 14).
. 14.
, . , , «» . , .
, . . , -01.02.01 (. 2). .
$. , $_ + :
strlen($_) - strlen($ + " ").
, . .
tfind(). : , , .
tfind($_, "(") - 2.
, ,
strlen($_) - strlen($ + " ").
,
tfind($_, "(") - 2 - strlen($ + " ").
T‑FLEX CAD , .
:
tfind($_, "(") > 0 ? tfind($_, "(") - 2 - strlen($ + " ") : strlen($_) - strlen($ + " ").
(. 15):
- — , ;
- — ;
- — .
. 15.
, , — .
, . , tfind() , . , , .
, tfind() , . , , .
$ :
tpart($_, strlen($) + 2, tfind($_, "(") > 0 ?
tfind($_, "(") - 2 - strlen($ + " ") :
strlen($_) - strlen($ + " "))
$ :
tpart($_, strlen($_) + 2, tfind($_, "(") > 0 ?
tfind($_, "(") - 2 - strlen($_ + " ") :
strlen($_) - strlen($_ + " "))
, $ $_.
. T‑FLEX CAD 16 , «» « ». (. 16).
. 16. T‑FLEX CAD 17
T‑FLEX CAD . .
(. 17 18).
. 17.
. 18.
, , . , , . , .
, , , . — , $ $. "" ( ). . , — (. 19).
