Александр, снова есть вопрос относительно сверления.
Имеется пост несколько закрученный под сименс (насколько я понял несколько пытливых умов работали над ним,
каждый присобачил чего желал). Есть необходимость вывести в " *refht$ " плоскость отвода
в относительной координате (сейчас он выводится в абсолютных). т.е если , предположим,если tosz равен 10, а отвод в мастер каме
12 в абсолютных координатах, то *refht$ тоже будет 12. а мне надо получить *refht$ -tosz , 12-10 =2.
я так понимаю надо еще одну переменную вводить, как то ее описать и где то вывести выражение вида name =refht$ -tosz.
правильно? если да, скажите , пожалуйста, как это сделать
ps.
эту строчку убирать пробовал - результата нет
if absinc$ = zero, refht_a, !refht_i
else,
pdrlcommonb #Canned Drill Cycle common call, before
if initht$ <> refht$ , drillref = zero
else, drillref = one
if sav_dgcode = 81,
[
result = newfs(two, zinc)
if drillcyc$ = three | drillcyc$ = 7, drlgsel = fsg1(-ss$ ) + drillcyc$ * two
else, drlgsel = fsg2(dwell$ ) + drillcyc$ * two
prv_refht_a = c9k
prv_refht_i = c9k
prv_dwell$ = zero
prv_shftdrl$ = zero
]
if cuttype = three, sav_dgcode = gcode$
else, z$ = depth$
if cuttype = one, prv_zia = refht$ + (rotdia$ /two)
else, prv_zia = refht$
pcom_moveb
feed = fr_pos$
comment$
pcan
#5 axis must map the true Z, correct Z calculation here
if cuttype = three,
[
prv_zia = zabs + (-depth$ ) + refht$
zia = fmtrnd(zabs)
zinc = zia - prv_zia
]
prdrlout #R drill position
if cuttype = one, refht_a = refht$ + (rotdia$ / two)
else, refht_a = refht$
refht_i = refht$ - initht$
if cuttype = three, refht_a = w$
if absinc$ = zero, refht_a, !refht_i
else, refht_i, !refht_a
pdrill$ #Canned Drill Cycle
pdrlcommonb
pcan1 , pbld, n$ , *sgdrlref, *sgdrill,"(",*initht$ ,",",*tosz$,",",*refht$ ,",",*depth$ ,")",e$
n$ , pfxout ,pfyout , feed,e$
# n , prdrlout, dwell , *feed, strcantext, e
# n ,*initht ,*refht ,*drillcyc ,*dwell ,e
pcom_movea |
Страница 35 из 46: «« 1 2 ... 33 34 36 37 ... 45 46 »» 