|
本帖最后由 dwlucien 于 2013-6-30 17:46 编辑
3 r& G) h# c* t6 F" n5 }6 @. Z: n& m3 L9 Z
全部源代码地址:$ j. t$ _5 q2 q/ {2 l" w
使用VB.net 快速出车间文档4 u2 i" B3 q& W1 j4 S, o. e
; j' B/ I" N( l. x9 t$ u; Y取切削时间'取切削时间(刀路生成,有没有进行过后处理过没影响)不需要进行处理运算!!时间正确与否自己输出看看就知道了;单位是分钟- '取切削时间
( I& @+ P6 Q0 R) U6 {; o - 7 V, A* l, m& T- U/ \+ _5 B
- Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
) e' k) t* s8 E+ D, l# V - ; r4 B4 A. P7 T# r) f0 ^* \' N8 @
- Dim CutTime As Double
; S5 p) B9 @& d+ A$ @& H - ! w0 d: V3 ^- }, }. b
- theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
i5 ?+ J% q1 @4 t8 Y2 a
( s% h1 u1 @. I( X- Return CutTime
: B) \; V, z" c
1 M' h+ ~6 C( P0 ^6 a% o, I$ n- End Function" f' u. z( {1 Q2 J2 ^
复制代码
9 ^8 @$ y2 z. s |
|