设为首页收藏本站
开启辅助访问 切换到宽版

Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

搜索
Cadence Skill 论坛»首页 › 分享交流 › 代码展示 › 如何將Version 16.x 降到Version 15.7的代碼
123下一页
返回列表 发新帖
查看: 25159|回复: 20

如何將Version 16.x 降到Version 15.7的代碼

[复制链接]
发表于 2013-7-2 08:47:44 | 显示全部楼层 |阅读模式
本帖最后由 XYX365 于 2013-7-2 08:51 编辑

要使用以下的代碼,必須安裝多個版本的Allegro才能使用.
V16.5以上的話必須降到V16.3以下,才能再降到V15.7
  1. axlCmdRegister("16to15" 'fnExportV16xToV15xMain ?cmdType "general")

  3. procedure(fnExportV16xToV15xMain()
  4.   prog(()
  5.       fVersion = axlVersion('version)
  6.       tDesignFullName = axlGetDrawingName()
  7.       tDesignType = axlDesignType(t)
  8.       tHomePath = getShellEnvVar("CDSROOT")
  9.       if(fVersion > 16.0 then
  10.           unless(getShellEnvVar("DOWNREV_16_TO_15") setShellEnvVar("DOWNREV_16_TO_15=1"))
  11.           if(fVersion == 16.01 then
  12.                 tDesignFileName = car(reverse(parseString(tDesignFullName "/")))
  13.                 case(tDesignType
  14.                     ("BOARD"
  15.                         t15xFileName = strcat(cadr(reverse(parseString(tDesignFileName "."))) "_157.brd")
  16.                     )
  17.                     ("PACKAGE"
  18.                         t15xFileName = strcat(cadr(reverse(parseString(tDesignFileName "."))) "_157.dra")
  19.                 )
  20.             )
  21.             tDownSoftware = strcat(tHomePath "\\tools\\pcb\\bin\\vc5\\downrev15.exe")
  22.             if(isExecutable(tDownSoftware) then
  23.                 when(isFile(t15xFileName)
  24.                     deleteFile(t15xFileName)
  25.                 )
  26. sprintf(tSvaeFileCmd "%s %s -outfile %s " tDownSoftware tDesignFileName t15xFileName)
  27. bResult = axlRunBatchDBProgram("Downrev15" tSvaeFileCmd ?startMsg "Save design to 15.7 Start..." ?silent t)
  28. printf("Downrev Finish.")
  29. deleteFile(strcat(car(parseString(tDesignFileName ".")) ".log"))
  30. else
  31. printf("Can not find downrev15.exe")
  32. return(nil)
  33. )
  34. else
  35. if(fVersion < 16.5 then case(tDesignType
  36. ("BOARD"
  37. tNewDesignFileName = strcat(cadr(reverse(parseString(tDesignFullName "/."))) "_New1601.brd")
  38. )
  39. ("PACKAGE"
  40. tNewDesignFileName = strcat(cadr(reverse(parseString(tDesignFullName "/."))) "_New1601.dra")
  41. )
  42. )
  43. when(isFile(tNewDesignFileName)
  44. deleteFile(tNewDesignFileName)
  45. )
  46. tScriptFileName=axlTempFile()
  47. pScriptFile=outfile(tScriptFileName "w")
  48. fprintf(pScriptFile "setwindow pcb\n")
  49. fprintf(pScriptFile "downrev \n")
  50. fprintf(pScriptFile "setwindow form.downrev\n")
  51. fprintf(pScriptFile "FORM downrev downrev \n")
  52. fprintf(pScriptFile "fillin "%s"\n" tNewDesignFileName)
  53. fprintf(pScriptFile "FORM downrev close\n")
  54. close(pScriptFile)
  55. sprintf(tRunScriptCommand,"replay %s",tScriptFileName)
  56. axlShell(tRunScriptCommand)
  57. deleteFile(tScriptFileName)
  58. deleteFile("downrev.log")
  59. case(tDesignType
  60. ("BOARD"
  61. t15xFileName = strcat(cadr(reverse(parseString(tNewDesignFileName "."))) "_157.brd")
  62. )
  63. ("PACKAGE"
  64. t15xFileName = strcat(cadr(reverse(parseString(tNewDesignFileName "."))) "_157.dra")
  65. )
  66. )
  67. case(fVersion
  68. (16.2
  69. tDownSoftware = strcat(tHomePath "\\tools\\pcb\\bin\\vc5\\downrev15.exe"
  70. )
  71. (16.3
  72. tDownSoftware = strcat(tHomePath "\\tools\\pcb\\bin\\vc5\\downrev15.exe"
  73. )
  74. (16.5
  75. tDownSoftware = strcat(tHomePath "\\tools\\pcb\\bin\\vc5\\downrev15.exe"
  76. )
  77. (t
  78. tDownSoftware = strcat(tHomePath "\\tools\\pcb\\bin\\vc5\\downrev15.exe"
  79. )
  80. )
  81. if(isExecutable(tDownSoftware) then
  82. when(isFile(t15xFileName)
  83. deleteFile(t15xFileName)
  84. )
  85. sprintf(tSvaeFileCmd "%s %s -outfile %s " tDownSoftware tNewDesignFileName t15xFileName)
  86. bResult = axlRunBatchDBProgram("Downrev15" tSvaeFileCmd ?startMsg "Save design to 15.7 Start..." ?silent t)
  87. printf("Downrev Finish.")
  88. deleteFile(strcat(car(parseString(tNewDesignFileName ".")) ".log"))
  89. else
  90. printf("Can not find downrev15.exe")
  91. return(nil)
  92. )
  93. else
  94. case(tDesignType
  95. ("BOARD"
  96. tNewDesignFileName = strcat(cadr(reverse(parseString(tDesignFullName "/."))) "_New162.brd")
  97. )
  98. ("PACKAGE"
  99. tNewDesignFileName = strcat(cadr(reverse(parseString(tDesignFullName "/."))) "_New162.dra")
  100. )
  101. )

  103. tScriptFileName=axlTempFile()
  104. pScriptFile=outfile(tScriptFileName "w")
  105. fprintf(pScriptFile "setwindow pcb\n")
  106. fprintf(pScriptFile "downrev \n")
  107. fprintf(pScriptFile "setwindow form.downrev\n")
  108. fprintf(pScriptFile "FORM downrev save2 YES \n")
  109. fprintf(pScriptFile "FORM downrev save\n")
  110. fprintf(pScriptFile "fillin "%s"\n" tNewDesignFileName)
  111. fprintf(pScriptFile "FORM downrev close\n")
  112. close(pScriptFile)
  113. sprintf(tRunScriptCommand,"replay %s",tScriptFileName)
  114. axlShell(tRunScriptCommand)
  115. deleteFile(tScriptFileName)
  116. deleteFile("downrev.log")
  117. )
  118. )
  119. else
  120. return(nil)
  121. )
  122. )
  123. )
复制代码

回复

使用道具 举报

shape
发表于 2013-7-2 15:58:42 | 显示全部楼层
谢谢分享！！{:soso_e179:}
回复 支持 反对

使用道具 举报

发表于 2013-8-27 13:12:08 | 显示全部楼层
看起来很庞大
回复 支持 反对

使用道具 举报

发表于 2013-8-27 14:07:03 | 显示全部楼层
记得我们之前是用一个批处理语句就可以转了
回复 支持 反对

使用道具 举报

发表于 2013-8-27 14:07:42 | 显示全部楼层
记得我们之前是用一个批处理语句就可以转了
回复 支持 反对

使用道具 举报

发表于 2014-3-11 09:43:05 | 显示全部楼层
谁知道批处理怎么转呢？
回复 支持 反对

使用道具 举报

发表于 2014-3-19 21:34:18 | 显示全部楼层
谢谢分享。。。
回复 支持 反对

使用道具 举报

发表于 2014-3-28 08:48:36 | 显示全部楼层
15.7的安装破解包，谁有呢？群里有我的Q号，谁发我一份
回复 支持 反对

使用道具 举报

srqrs
发表于 2014-4-2 17:54:45 | 显示全部楼层
不错 支持；
回复 支持 反对

使用道具 举报

发表于 2014-4-12 12:45:43 | 显示全部楼层
这个能改成降到15.5的吗？
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备13024417号 )

GMT+8, 2024-12-26 13:59 , Processed in 0.502123 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表