求高手幫忙改后處理

hntjlgx · 發(fā)表于 2011-12-13 20:07:55

馬上注冊(cè)，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)

您需要登錄才可以下載或查看，沒有賬號(hào)？立即注冊(cè)

×

本帖最后由 hntjlgx 于 2011-12-13 20:14 編輯

各位老大，本人有一事在此求高手去來(lái)幫幫我，具體如下：
我改一個(gè)西門子840D的雙擺頭B C軸的PM后處理，因?yàn)榫唧w的機(jī)床參數(shù)有些尚不明了，我假設(shè)C軸是無(wú)限制旋轉(zhuǎn)的，Z軸上偏置為零，但后處理去來(lái)的程序總是會(huì)把刀具標(biāo)長(zhǎng)加在Z軸，我不知道是哪里出了問題，，求若楓版主及各位高手幫幫忙，謝謝！！！修改后部分程序如下并附上附件：
machine siem850
#################################################
# Company -                  #
# Machine - GENERIC                  #
# Control - SIEMENS840D                #
# Axis Configuration Code : 3000 #
#                --------------- #
# | HEAD  | HEAD | #
#  ---------------|-------|-------| #
# | A axis | -    | - | #
# |---------------|-------|-------| #
# | B axis | -    | Y | #
# |---------------|-------|-------| #
# | C axis | -    | Z | #
#  ------------------------------- #
# #
# Metric output #
# Absolute output #
# Cutter Compensation #
# Drilling cycles      #
# Drilling cycles 200 series #
# Parameterised feedrates #
# Inverse time feedrates #
# RTCP #
# Active Working Plane #
# Connection moves enabled #
# Spline machining #
# #
#################################################
# Above part Modified by - HNTJLGX(CHINA)

#  Siemens 840D control.
#  Code : 3000
#  Created by LGX  -  13.12.2011
#
#
#

#10
  define word %D
address letter = "MSG(\\"DATE - "
address width  = 13
field width = 2
  end define
#16
  define word %M
address letter = "."
address width  = 1
field width = 2
  end define
#22
  define word %Y
address letter = "."
address width  = 1
field width = 2
  end define
#28
  define word %h
address letter = "- "
address width  = 2
field width = 2
  end define
#34
  define word %m
address letter = ":"
address width  = 1
field width = 2
decimal places = 0
decimal point  = false
  end define
#42
  define word %s
address letter = ":"
address width  = 1
field width = 2
  end define
#48
  define word TPN
address letter = "MSG(\\"TOOLPATH  - "
address width  = 17
field width = 20
  end define
#54
  define word TNO
address letter = "MSG(\\"TOOL NO.  "
address width  = 16
field width = 3
decimal places = 0
decimal point  = false
leading zeros  = false
trailing zeros = false
  end define
#64
  define word TN
address letter = "MSG(\\"TOOL ID "
address width  = 16
field width = 20
  end define
#70
  define word TT
address letter = "MSG(\\"TOOL TYPE "
address width  = 16
field width = 32
decimal places = 0
decimal point  = false
leading zeros  = false
trailing zeros = false
  end define
#80
  define word TD
address letter = "MSG(\\"TOOL DIA. "
address width  = 16
field width = 8
scale factor = 2
decimal places = 3
decimal point  = true
leading zeros  = false
trailing zeros = false
  end define
#91
  define word TR
address letter = " TIP RAD "
address width  = 9
scale factor = 1
field width = 8
decimal places = 3
decimal point  = true
leading zeros  = false
trailing zeros = false
  end define
#102
  define word TLH
address letter = " LENGTH "
address width  = 8
scale factor = 1
field width = 8
decimal places = 3
decimal point  = true
leading zeros  = false
trailing zeros = false
  end define
#113
  define word TOL
address letter = "MSG(\\"Tolerance = "
address width  = 18
field width = 5
decimal places = 3
decimal point  = true
leading zeros  = false
trailing zeros = false
  end define
#123
  define word THK
address letter = "MSG(\\"Allowance = "
address width  = 18
field width = 7
decimal places = 3
scale factor = 1
decimal point  = true
leading zeros  = false
trailing zeros = true
sign          = always
  end define
#135
  define word VER
address letter = "MSG(\\"DP Version "
address width  = 17
field width = 4
tape position  = 0
  end define
#142
  define word OFN
address letter = "  Option File : "
address width  = 16
field width = 32
tape position  = 0
  end define
#149
  define word RFP
address letter = ","
address width  = 1
field width = 8
sign          = if negative
metric formats
decimal point  = true
decimal places = 3
leading zeros  = false
trailing zeros = false
  end define
#161
  define word DP
address letter = ","
address width  = 1
sign          = if negative
  end define
#167
  define word Q1
address letter = ","
address width  = 1
  end define
#172
  define word PT
address letter = " , "
address width  = 3
field width = 5
sign          = none
metric formats
decimal point  = true
decimal places = 3
leading zeros  = false
trailing zeros = false
  end define
#184
  define word ST
address letter = ", "
address width  = 2
field width = 5
sign          = none
metric formats
decimal point  = false
decimal places = 0
leading zeros  = false
trailing zeros = true
  end define
#196
  define word ST1
address letter = ", "
address width  = 2
scale factor = 3
scale divisor  = 2
sign          = none
  end define
#204
#vvvvvvvvvv WORKPLANE words vvvvvvvvvvvvv
#
  define word RTC
address letter = "TRAORI("
address width  = 7
field width = 1
  end define
#212
  define word AWK
address letter = "A2="
address width  = 3
  end define
#217
  define word BWK
address letter = "B2="
address width  = 3
  end define
#222
  define word CWK
address letter = "C2="
address width  = 3
  end define
#227
  define word XWK
address letter = "ATRANS X"
address width  = 8
  end define
#232
  define word YWK
address letter = "ATRANS Y"
address width  = 8
  end define
#237
  define word ZWK
address letter = "ATRANS Z"
address width  = 8
  end define
#242
  define format ( AWK BWK CWK XWK YWK ZWK  )
field width = 5
tape position  = 1
sign          = if negative
metric formats
decimal point  = true
decimal places = 3
trailing zeros = false
  end define
#252
  define format ( ID )
address letter  = ";%MPF"
address width = 5
field width    = 12
leading zeros = false
  end define
#259
  define format ( %D %M %Y )
field width = 2
modal
  end define
#264
  define format ( G4 )
address letter  = "MCALL CYCLE"
address width = 11
  end define
#269
  define format ( DP ST1 )
field width = 5
metric formats
decimal point  = false
decimal places = 0
leading zeros  = false
trailing zeros = true
  end define
#278
  define format ( R11 )
address letter = "("
address width  = 1
sign          = if negative
  end define
#284
  define format ( Z2 R2 Q P )
address letter = ", "
address width  = 1
  end define
#289
  define format ( R11 P Q Q1 TD )
field width  = 5
metric formats
decimal point  = true
decimal places = 3
trailing zeros = false
imperial formats = metric formats
  end define
#298
  word order = ( + RTC AWK BWK CWK XWK YWK ZWK )
  word order = ( + RFP DP Q1 PT ST ST1 )
  word order = ( + %D %M %Y %h %m %s )
  word order = ( + TPN TNO TN TT TD TR TLH TOL THK VER OFN )
#303
  define format all
tape position  = 1
  end define
#307
  define format ( %D %M %Y %m %s )
tape position = 0
  end define
#311
  define keys
   cycle dwell = P
  end define
#315
  message output       = false
  block order          = true
  block start          = 1
  block increment       = 1
  integer 12          = 0
  integer 51          = 6
  use hole top in cycles = true
  integer 69          = 2
  max feedrate          = 10000.0
  rapid feedrate       = 16000.0
  rapid feed code       = 1
  tool reset coordinates = 2

SIEM840D-5axis-B C(2011121319).rar (2.86 KB, 下載次數(shù): 9)

hntjlgx · 發(fā)表于 2011-12-13 20:15:29

本帖最后由 hntjlgx 于 2011-12-13 20:43 編輯

期盼！非常期盼！！！有什么不對(duì)的歡迎指正！！！

附上五軸文檔及截圖

5-04 curve projection.rar (113.38 KB, 下載次數(shù): 4)

登錄/注冊(cè)后可看大圖

登錄/注冊(cè)后可看大圖

附上NC程序

11.rar (39.56 KB, 下載次數(shù): 3)

hntjlgx · 發(fā)表于 2011-12-14 13:34:25

沒人幫我，自己琢磨，也許是這兒出了問題

#338
  define block tool change first
TT ToolType ; " \")"
TN ToolName ; " \")"
if ( ToolType = "BALLNOSED" or ToolType = "ENDMILL" or ToolType = "DRILL" )
   TD ToolRadius[ToolNum] ; TLH ToolLength[ToolNum] ; " \")"
else
   TD ToolRadius[ToolNum] ; TR TipRadius[ToolNum] ; TLH ToolLength[ToolNum] ; " \")"
end if
N ; tool number ToolNum
N ; " L9006"
N ; G3 64 ; M1 74
N ; spindle ToolSpeed ; spindle on cw ; tool radius 1
  end define
#352
  define block tool change
TT ToolType ; " \")"
TN ToolName ; " \")"
if ( ToolType = "BALLNOSED" or ToolType = "ENDMILL" or ToolType = "DRILL" )
   TD ToolRadius[ToolNum] ; TLH ToolLength[ToolNum] ; " \")"
else
   TD ToolRadius[ToolNum] ; TR TipRadius[ToolNum] ; TLH ToolLength[ToolNum] ; " \")"
end if

若楓 · 發(fā)表于 2011-12-14 17:38:59

回復(fù) 3# hntjlgx

我不會(huì)pm。對(duì)pm后處理沒有研究。
但看你用色標(biāo)記的地方。我想應(yīng)該是的。

hntjlgx · 發(fā)表于 2011-12-14 18:50:10

謝謝地主的答復(fù)，不管怎樣，總算有人理我了！謝謝！！！

1990cu83 · 發(fā)表于 2012-1-11 12:41:23

呵呵，看大家評(píng)論如何

李夢(mèng)夢(mèng) · 發(fā)表于 2012-1-19 18:32:45

樓主你太好了.........

whl027 · 發(fā)表于 2012-1-26 20:53:35

學(xué)習(xí)學(xué)習(xí)

小兔乖乖乖 · 發(fā)表于 2012-2-3 04:46:35

初來(lái)乍到，請(qǐng)多多關(guān)照。

83328 · 發(fā)表于 2012-2-8 01:09:32

學(xué)習(xí)了。。謝謝

賬號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

亚洲二区精品_国产精品com_日本高清精品_国产高清一级毛片在线不卡

[求助] 求高手幫忙改后處理

馬上注冊(cè)，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)

站長(zhǎng)推薦 /2