寻会编写 GC_CAM脚本的高手！

qmz

寻会编写 GC_CAM脚本的高手！我写了一个程序，目的是自动转 CNC 程序。我遇到的难点是 ISolatr 后面的一个选项 UNTITLED 这里没有参数给我选择了，这里有选择刀具的。还有后面的把层的属性更改的命令， a01--R01 这个没找到命令 Isolate 层 0.010, False 这里没有给参数UNTITLED的选项 DRL TYPE DIM 这几个选项我都要更改的，但 Isolate 不给命令，请高手指点。谢谢！

iclausca

先設定圖層所要用的aperture , 如 layers(1).traceapernum = 1

再執行 isolate ，指令裡面有目標圖層的參數。

這樣做一定可以跑。

qmz

终于有高手来啦，请留下联系方式。我的QQ:99060703 MSN:qmzzyf@msn.com

qmz

如何将 a01变成 r01 ，哪位高手知道？

iclausca

undefined

iclausca

    a001.copytorack  
[em05]

qmz

楼上的兄弟能不能留下联系方式，我有很多问题想向你学习请教！请留下你的QQ，或 MSN,或常用邮箱，谢谢！

qmz

Sub Main

  Dim s,d As String
 
  ' Load GC-Basic example file. 
  s = "d:\5"           ' The home directory.
  d = s + "\test2.gwk"       ' The path of the file.
  ' Restore the file and ask the user if the file in use
  ' needs to be saved.
 SaveAll d, GCB_OVERWRITE
 ' Hide layer 3.
  Layers(3).EditStatus = GCB_LAYER_EDIT_STATUS_HIDE

MarkAll

  MirrorXMarked 0, True  ' Mirror left-right about x = 0.
  RedisplayGraphicsWindow
  UnMark
  MsgBox "Board mirrored about the X-axis."
  Layers(2).EditStatus = GCB_LAYER_EDIT_STATUS_HIDE

  ' Layer to isolate.
  GCBEditReadyLayerGroup = "1"
  ' Hide all layers except layer 2.

  ' Isolate all marked data. Isolation layer is 5.
  MarkAll
  Layers(1).tracapernum = 2
  Isolate 5, 0.010, False
  UnMark

这里转向的还是第一把刀 ,  Layers(1).tracapernum = 2 这个参数好像没有起来作用

后面还有按Q ,更改刀具大小，缩刀，还有填充 mark 等。还有自动输出 CNC ,接着把 r01 更改为 A01,输出GBR,

qmz

iclausca   iclausca@yahoo.com.tw  请收一下邮件，我发了两封邮件给你

iclausca

    有看到你的檔案了，不過你好像沒有提出你的問題是在那裡 ?