困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
. E7 J) Q) K8 a( I: A. H6 U. k+ M
  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
8 L5 Q% P: J# D5 F: o  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
. q7 k" o9 c( q. \9 D+ ^( E  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
4 G( I2 F) Y* G+ {! J& H5 ~- r- W  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8
- @5 W( A% Z9 ^- ]9 X/ X

发送命令  PRINT ENTITY NCProgram  获取所有的NC:
6 g% L( r4 v/ X; M5 M
; E" W$ C/ @( _* E  K- T4 J: O  a8-f1
3 }% L. F% e' K- A1 g" e7 ?  a8-f2
) Y: ]6 M1 ^- V) ^$ o6 \9 M  a8-f3

. J) r* s: J( h$ w! ?

; g( f) }8 K2 j, g0 C. f, }发送命令获取nc信息:   edit  NCProgram "a8-f1"  print
+ e: K) M2 @  v; c9 ?  p: x
在PM命令栏下面显示：
; I9 `) A. w$ u* ~
                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
9 B% F4 z3 B: v" s) X& X- c% E9 z; R0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2 D8 (6)  8  160     无  无   D8
4 U4 j% I1 `8 h; K1 \) G4 N: |0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3 D8 (6)  8  160     无  无   D8

4 }" X5 S% m/ Z1 Z在VB立即窗口中显示返回的结果:      

: ]- Q& Y1 x: j0 [6 M9 y   属性: NC程序 a8-f1输出文件 C:\Documents and Settings\Administrator\桌面\a8-f1.tap选项文件  standard                                       刀具编号直径长度刀尖圆角半径冷却补偿刀具ID0.03<<刀具D8>><<0.00*0.00>>\S:8500\F:3500*1D8 68160 无无D80.04<<刀具D8>><<0.00*0.00>>\S:8500\F:3500*2D8(6)8160 无无D80.03<<刀具D8>><<0.00*0.00>>\S:8500\F:3500*3D8(6)8160 无无D8状态 : 未写入

' m9 F- X+ C1 {9 v  O- \# c
头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
3 |! i9 V- |/ H1 n8 \1 D) Q( E


4 s$ o) a% w* x

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
+ H, N( g# a2 ^6 E/ r' V- K这个问题好解决：
2 C: @5 M2 p9 m' B% m$ p0 i看附件
如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

4#的老大，我想知道具体实现的源代码，不是要exe文件,可以吗？谢谢!

t253377892

强烈期待源码实例!

yishabing

7# t253377892
) ?: S0 H( a! F' `! ?+ l可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
5 x% Q, {* w" _6 l2 x# F' SDim Spl() As String
dcam_window_ontop hwnd
Me.Top = Screen.Height - Me.Height
) L0 g% z  o: p; i7 M: | Me.Left = Screen.Width - Me.Width
pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
Call pml_send_ex("Print ENTITY  toolpath", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
6 |" c5 U* T; m7 n$ g  pFor i = 1 To UBound(Spl)
1 W" ]2 `( P( j: y4 X/ \Spl(i) = Trim(Spl(i))
. O+ K, w% |5 q' S) ^If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '
& K& T. I$ B" D; x( J4 O
  H' o5 J3 a4 h7 [Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
- v, U3 f& I+ ]# e2 xEnd If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
3 G7 Z1 }( u' X; kEnd If
If Len(Spl(i)) > 0 Then
, S' I8 ^' J. H* y9 i, CList1.AddItem Spl(i)
End If
# x% v0 }2 j4 I, b* MNext i