|
本帖最后由 dwlucien 于 2013-6-30 17:46 编辑
" q! r" u' j# _; Z8 h, s q5 G/ K0 y4 f1 \
全部源代码地址:
9 S3 K4 Q* u& p0 W0 P$ G; [使用VB.net 快速出车间文档* q$ V1 @2 r7 V7 F# P' W. O/ e
/ k$ J6 J9 T6 V& k1 Z( U: v" H- w# \4 {
取切削时间'取切削时间(刀路生成,有没有进行过后处理过没影响)不需要进行处理运算!!时间正确与否自己输出看看就知道了;单位是分钟- '取切削时间
0 {! q4 v3 e4 b6 A - 8 o/ f. S! O4 F
- Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
t. {- p T- s# K: ]5 E" p
% m! u* \, n& T& g/ h! q( U1 c- Dim CutTime As Double
7 ?4 A) c: E3 X* `8 P3 V% a! ? - : t/ B- S+ X. r/ g' V
- theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
; G$ G( n5 o9 w0 `- o5 k$ C3 n - 1 N8 h9 ]( ~; r* f" ~
- Return CutTime
8 q. M2 G. H$ o: P
: Q0 U, I, j0 O8 u% S4 h( d- End Function* j8 p7 U' n9 z
复制代码
. E1 ^: Y& O, j |
|