亚洲精品自拍偷拍_欧美八区_天堂中文资源在线_99热超碰在线_伊人亚洲精品_日本中文在线

若楓后處理論壇

標(biāo)題: 求高手幫忙改后處理 [打印本頁(yè)]

作者: hntjlgx 時(shí)間: 2011-12-13 20:07
標(biāo)題: 求高手幫忙改后處理
本帖最后由 hntjlgx 于 2011-12-13 20:14 編輯

各位老大，本人有一事在此求高手去來(lái)幫幫我，具體如下：
我改一個(gè)西門(mén)子840D的雙擺頭B C軸的PM后處理，因?yàn)榫唧w的機(jī)床參數(shù)有些尚不明了，我假設(shè)C軸是無(wú)限制旋轉(zhuǎn)的，Z軸上偏置為零，但后處理去來(lái)的程序總是會(huì)把刀具標(biāo)長(zhǎng)加在Z軸，我不知道是哪里出了問(wèn)題，，求若楓版主及各位高手幫幫忙，謝謝！！！修改后部分程序如下并附上附件：
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

[attach]4151[/attach]

作者: hntjlgx 時(shí)間: 2011-12-13 20:15
本帖最后由 hntjlgx 于 2011-12-13 20:43 編輯

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

附上五軸文檔及截圖

[attach]4153[/attach]
[attach]4154[/attach]

[attach]4155[/attach]

附上NC程序

[attach]4156[/attach]

作者: hntjlgx 時(shí)間: 2011-12-14 13:34
沒(méi)人幫我，自己琢磨，也許是這兒出了問(wèn)題

#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

作者: 若楓 時(shí)間: 2011-12-14 17:38
回復(fù) 3# hntjlgx

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

作者: hntjlgx 時(shí)間: 2011-12-14 18:50
謝謝地主的答復(fù)，不管怎樣，總算有人理我了！謝謝！！！

作者: 1990cu83 時(shí)間: 2012-1-11 12:41
呵呵，看大家評(píng)論如何

作者: 李夢(mèng)夢(mèng) 時(shí)間: 2012-1-19 18:32
樓主你太好了.........

作者: whl027 時(shí)間: 2012-1-26 20:53

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

作者: 小兔乖乖乖 時(shí)間: 2012-2-3 04:46
初來(lái)乍到，請(qǐng)多多關(guān)照。

作者: 83328 時(shí)間: 2012-2-8 01:09
學(xué)習(xí)了。。謝謝

作者: 旺旺雪餅哈 時(shí)間: 2012-2-13 05:15
真的很有用，謝謝啦！

作者: strlby 時(shí)間: 2012-2-16 14:28
LZ辛苦了，支持

作者: bobofly123 時(shí)間: 2012-2-21 20:03
up~~~~~~~~~~~~~~~~~~~~~~~~~~~

作者: 東佰粉 時(shí)間: 2012-3-21 16:29
非常謝謝樓主，頂一下

作者: scrollex 時(shí)間: 2012-3-23 19:02
有直接的4軸旋轉(zhuǎn)的后處理。在論壇里找得到。可以上機(jī)使用。4軸連續(xù)回轉(zhuǎn)。

作者: onyql 時(shí)間: 2012-3-28 06:24
感激涕零，謝謝樓主的好貼

永生

作者: zhilin.zhang 時(shí)間: 2012-4-13 12:45
路過(guò)。。。。。。。

作者: ridcha 時(shí)間: 2012-5-22 17:46
好謝謝了，我也剛學(xué)不會(huì)只能頂一下

作者: ridcha 時(shí)間: 2012-5-22 17:47
還有一個(gè)，我想你的后處理，

作者: 騰飛鳳舞 時(shí)間: 2012-7-4 16:02
這個(gè)估計(jì)只能自己摸索了！懂的人太少了！

作者: ucbzc 時(shí)間: 2012-8-2 19:12
改出國(guó)GPA提高美國(guó)TOP50成功申請(qǐng)QQ425302557 改后付.

作者: hdzxm 時(shí)間: 2014-9-14 11:47
哪位大哥有米克朗HPM1350U的五軸后處理啊

歡迎光臨若楓后處理論壇 (http://www.886378.cn/)