qmz
发表于 2007-8-21 02:21:00
寻会编写 GC_CAM脚本的高手！
寻会编写 GC_CAM脚本的高手！我写了一个程序，目的是自动转 CNC 程序。我遇到的难点是 ISolatr 后面的一个选项 UNTITLED 这里没有参数给我选择了，这里有选择刀具的。还有后面的把层的属性更改的命令， a01--R01 这个没找到命令 Isolate 层 0.010, False 这里没有给参数UNTITLED的选项 DRL TYPE DIM 这几个选项我都要更改的，但 Isolate 不给命令，请高手指点。谢谢！
iclausca
发表于 2007-8-21 09:29:00
先設定圖層所要用的aperture , 如 layers(1).traceapernum = 1<br/><br/>再執行 isolate ，指令裡面有目標圖層的參數。<br/><br/>這樣做一定可以跑。<br/>
qmz
发表于 2007-8-22 01:32:00
<p>终于有高手来啦，请留下联系方式。我的QQ:99060703 MSN:qmzzyf@msn.com</p>
qmz
发表于 2007-9-11 13:48:00
如何将 a01变成 r01 ，哪位高手知道？
iclausca
发表于 2007-9-26 10:26:00
undefined
iclausca
发表于 2007-9-26 10:27:00
a001.copytorack <br/>
qmz
发表于 2007-9-26 13:03:00
楼上的兄弟能不能留下联系方式，我有很多问题想向你学习请教！请留下你的QQ，或 MSN,或常用邮箱，谢谢！
qmz
发表于 2007-9-26 13:06:00
<p>Sub Main</p><p> Dim s,d As String<br/> <br/> ' Load GC-Basic example file. <br/> s = "d:\5" ' The home directory.<br/> d = s + "\test2.gwk" ' The path of the file.<br/> ' Restore the file and ask the user if the file in use<br/> ' needs to be saved.<br/> SaveAll d, GCB_OVERWRITE<br/> ' Hide layer 3.<br/> Layers(3).EditStatus = GCB_LAYER_EDIT_STATUS_HIDE</p><p>MarkAll</p><p> MirrorXMarked 0, True ' Mirror left-right about x = 0.<br/> RedisplayGraphicsWindow<br/> UnMark<br/> MsgBox "Board mirrored about the X-axis."<br/> Layers(2).EditStatus = GCB_LAYER_EDIT_STATUS_HIDE</p><p><br/> ' Layer to isolate.<br/> GCBEditReadyLayerGroup = "1"<br/> ' Hide all layers except layer 2.</p><p> ' Isolate all marked data. Isolation layer is 5.<br/> MarkAll<br/> Layers(1).tracapernum = 2 <br/> Isolate 5, 0.010, False<br/> UnMark</p><p>这里转向的还是第一把刀 , Layers(1).tracapernum = 2 这个参数好像没有起来作用</p><p>后面还有按Q ,更改刀具大小，缩刀，还有填充 mark 等。还有自动输出 CNC ,接着把 r01 更改为 A01,输出GBR,</p>
qmz
发表于 2007-9-26 15:04:00
<font face="Verdana" color="#61b713"><strong>iclausca </strong><a class="fgy" href="mailto:iclausca@yahoo.com.tw"><font color="#3f62ba">iclausca@yahoo.com.tw</font></a> 请收一下邮件，我发了两封邮件给你</font>
iclausca
发表于 2007-10-8 09:02:00
有看到你的檔案了，不過你好像沒有提出你的問題是在那裡 ? <br/><br/><br/>