求高手帮忙改后处理

hntjlgx · 发表于 2011-12-13 20:07:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 hntjlgx 于 2011-12-13 20:14 编辑

各位老大，本人有一事在此求高手去来帮帮我，具体如下：
我改一个西门子840D的双摆头B C轴的PM后处理，因为具体的机床参数有些尚不明了，我假设C轴是无限制旋转的，Z轴上偏置为零，但后处理去来的程序总是会把刀具标长加在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, 下载次数: 9)

hntjlgx · 发表于 2011-12-13 20:15:29

本帖最后由 hntjlgx 于 2011-12-13 20:43 编辑

期盼！非常期盼！！！有什么不对的欢迎指正！！！

附上五轴文档及截图

5-04 curve projection.rar (113.38 KB, 下载次数: 4)
图片.jpg

附上NC程序

11.rar (39.56 KB, 下载次数: 3)

hntjlgx · 发表于 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

若枫 · 发表于 2011-12-14 17:38:59

回复 3# hntjlgx

我不会pm。对pm后处理没有研究。
但看你用色标记的地方。我想应该是的。

hntjlgx · 发表于 2011-12-14 18:50:10

谢谢地主的答复，不管怎样，总算有人理我了！谢谢！！！

1990cu83 · 发表于 2012-1-11 12:41:23

呵呵，看大家评论如何

李梦梦 · 发表于 2012-1-19 18:32:45

楼主你太好了.........

whl027 · 发表于 2012-1-26 20:53:35

学习学习

小兔乖乖乖 · 发表于 2012-2-3 04:46:35

初来乍到，请多多关照。

83328 · 发表于 2012-2-8 01:09:32

学习了。。谢谢

账号		自动登录	找回密码
密码			立即注册

求高手帮忙改后处理

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

站长推荐 /2