困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
( M& l" X1 W4 O$ x, o  G* z; u0 w
  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
3 s( K1 U6 o' o4 j: ~  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
1 Q( |3 j, Y; V  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
  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
7 N4 O* J6 c) `- N0 z7 C2 H
" |: Z" P; c1 w  `
发送命令  PRINT ENTITY NCProgram  获取所有的NC:
( Z9 a! l+ Z$ e; j
  a8-f1
  a8-f2
  a8-f3



0 K& [, Z" I7 d* F1 Y2 B发送命令获取nc信息:   edit  NCProgram "a8-f1"  print

在PM命令栏下面显示：

' D* z( W# i% l4 X! [/ W                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
/ O( p3 k0 |3 J0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
* T9 x& p$ e8 a! {0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2 D8 (6)  8  160     无  无   D8
0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3 D8 (6)  8  160     无  无   D8
1 _8 d' v" I9 U6 T
' s! m& A0 M( p& Z4 y; u+ f. Y, Y在VB立即窗口中显示返回的结果:      

* O& c# P7 O3 E0 L0 B( h  |: ~% e   属性: 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状态 : 未写入


( `; w5 k8 F3 B* X7 k头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
2 `; i# T3 @/ m
) |. N$ A- I( m* y) E) [  [8 |" T; C
* }4 O# S+ B' c) S( l

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
3 G3 L4 q8 t  @' o8 x( H3 [1 H这个问题好解决：
看附件
如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
  A, T/ l# ?4 n4 U& H+ D# \Dim Spl() As String
dcam_window_ontop hwnd
+ s+ h( ~0 X" L/ L! P Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
3 _5 U* Y8 S# i% M/ F) f8 L; mCall pml_send_ex("Print ENTITY  toolpath", Buf)
! J9 e0 J% n6 a! i0 VIf Left(Buf, 1) = "0" Then: Exit Sub
0 ^8 l2 ^% u( w  V4 SSpl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
8 u# Q/ h( t" p0 ~9 R0 aSpl(i) = Trim(Spl(i))
8 b4 ?* O# d, Q, n  X( |8 s. |If Spl(i) <> "" Then
, e0 ^: y; e. N: _If Left(Spl(i), 1) = "*" Then '
* ~# r4 K; y& r" H6 Q# V
Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
1 _' J* p. \7 c5 l% n3 ?Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
4 B; A/ P- F& g1 C) XIf Len(Spl(i)) > 0 Then
2 G0 A' P6 @* Z# T) BList1.AddItem Spl(i)
End If
Next i