诚挚的征求 模版改良的建议

原帖由 ynvnyx 于 2006-10-19 23:35 发表
能否再智能一些？

最初我做的 就带有部分智判断。。。。但现在看来那是天方夜谭。。。因为程序是要面向公众的。。。这就很难统一 判断的条件了。。

所以。。目标开始转变。。智能已彻底被放弃。。

原帖由 airen 于 2006-9-11 08:48 发表




清角有何难。。。残料又有何难。。

原帖由 airen 于 2006-9-11 08:49 发表




局限性。？

原帖由 airen 于 2006-10-20 12:12 发表



最初我做的 就带有部分智判断。。。。但现在看来那是天方夜谭。。。因为程序是要面向公众的。。。这就很难统一 判断的条件了。。

所以。。目标开始转变。。智能已彻底被放弃。。

[ 本帖最后由 cam-yp 于 2006-10-20 14:06 编辑 ]

原帖由 cam-yp 于 2006-10-20 14:03 发表

  还是那句 清角有何难。。

仔细看看，这里面包括残料 清角等

原帖由 cam-yp 于 2006-10-20 14:03 发表

无法智能。。你没有理解。。。。。。。。。这意思是说 没有办法去 面对公众的智能判断。。因为一千人就有一千零一种判断条件与方法。

这是无法统一的问题。。所以就等于天方夜谭。。。

你这个所谓的清角是针对整个PRT的，可以是某个角落吗？

整个PRT的清角那当然简单了，模板做好调进来直接计算就好，这没什么技术性。

原帖由 cam-yp 于 2006-10-20 15:32 发表
你这个所谓的清角是针对整个PRT的，可以是某个角落吗？

整个PRT的清角那当然简单了，模板做好调进来直接计算就好，这没什么技术性。

  你挺厉害的嘛。。这样都给你看出来。。

    给个范围就解决了。。

原贴由airen发表：


  还是那句 清角有何难。。

仔细看看，这里面包括残料 清角等

就是因为仔细看了，才看出原来是如此残料和清角的。
就象喝茶一样，先烧好开水，拿好茶叶，放在杯中，倒入适当的开水，再自动的喝上一口，美其名曰：‘自动泡茶’

[ 本帖最后由 cam-yp 于 2006-10-20 16:09 编辑 ]

原帖由 cam-yp 于 2006-10-20 15:32 发表
你这个所谓的清角是针对整个PRT的，可以是某个角落吗？

整个PRT的清角那当然简单了，模板做好调进来直接计算就好，这没什么技术性。

  这又不是考试。。技术有什么用。。只要能带来方便的结果。。开发就算OK

原帖由 cam-yp 于 2006-10-20 16:06 发表

就是因为仔细看了，才看出原来是如此残料和清角的。
就象喝茶一样，先烧好开水，拿好茶叶，放在杯中，倒入适当的开水，再自动的喝上一口，美其名曰：‘自动泡茶’

  口水啦。。

         看来在你心里 还存在 高难度 才是 高技术的思维哦。。
            
              我不知你为什么会这样的想法。。。

原帖由 airen 于 2006-10-20 16:09 发表


  口水啦。。

         看来在你心里 还存在 高难度 才是 高技术的思维哦。。
            
              我不知你为什么会这样的想法。。。

模板在好也只是模板，高难度高技术谈不上。
以下是从日记录的代码，希望有些朋友会用得上

调用模板：不难滴
' NX 4.0.0.21
' Journal created by yp on Wed Oct 11 18:04:43 2006 '
Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display

' ----------------------------------------------
'   Dialog Begin 创建操作
' ----------------------------------------------
Dim nCGroup1 As CAM.NCGroup = CType(workPart.CAMSetup.CAMGroupCollection.FindObject("N1"), CAM.NCGroup)

Dim nCGroup2 As CAM.NCGroup = CType(workPart.CAMSetup.CAMGroupCollection.FindObject("METHOD"), CAM.NCGroup)

Dim nCGroup3 As CAM.NCGroup = CType(workPart.CAMSetup.CAMGroupCollection.FindObject("D10"), CAM.NCGroup)

Dim nCGroup4 As CAM.NCGroup = CType(workPart.CAMSetup.CAMGroupCollection.FindObject("WP-1"), CAM.NCGroup)

Dim operation1 As CAM.Operation
operation1 = workPart.CAMSetup.CAMOperationCollection.Create(nCGroup1, nCGroup2, nCGroup3, nCGroup4, "makino", "ZLEVEL_PROFILE_MB", CAM.OperationCollection.UseDefaultName.False, "AAA")

' ----------------------------------------------
'   Dialog Begin ZLEVEL_PROFILE_MB
' ----------------------------------------------
' ----------------------------------------------
'   Menu: 工具->日记->停止
' ----------------------------------------------

End Sub
End Module