困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:

' @  m9 m6 S3 X; w  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
$ z3 m1 D1 Q5 b: p  ^  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
' [# r5 W  r3 J- q4 |  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
8 g: j6 Q, D! U3 [  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
; Q% y! i/ E/ O$ i* }- i" N  u
4 s6 k7 @7 z3 H) V5 I: E0 j& D
9 l+ D: _! X" d; @7 |. q发送命令  PRINT ENTITY NCProgram  获取所有的NC:

  a8-f1
  a8-f2
  a8-f3
) i& D5 [1 T0 b  \( F, I) |

) v' N/ i+ B& k
$ K( U. l, b* w- w发送命令获取nc信息:   edit  NCProgram "a8-f1"  print

- l" j$ r% H# b. H在PM命令栏下面显示：

" t0 F, q0 ~+ r% n* Z9 |0 c& G1 l                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
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 Z/ N5 k# _" r8 G" a在VB立即窗口中显示返回的结果:      
- s$ ~0 n0 K  G3 b
   属性: 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状态 : 未写入
6 l; d; A$ C. E0 f  {
' ~: \0 y/ m8 M' X0 R4 F& J
2 P' {/ U) T3 F5 X9 ^7 ^5 ~头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
5 e2 ]( k( D% `* Q2 R+ B: l+ j
/ j9 I3 ~4 J/ {' w# D7 X4 L
( l- P# M/ m2 k9 z3 r/ J. O

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
这个问题好解决：
看附件
如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
" t$ S7 b( u2 m3 p8 @  M1 ^( q/ SDim Spl() As String
5 R2 h6 R8 G4 v7 z$ ?5 k5 `3 `- c  p dcam_window_ontop hwnd
) i1 j$ W: D+ t% X: o Me.Top = Screen.Height - Me.Height
( U5 b' w( i7 Y 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)
/ g6 F+ U* L: y$ fIf Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
' _. L" q/ S; u5 J9 k- _5 lSpl(i) = Trim(Spl(i))
" M* H: Z2 F% U  HIf Spl(i) <> "" Then
# T# k; q5 |" V4 w: HIf Left(Spl(i), 1) = "*" Then '
( V: I9 ~% U: J' r9 }. e8 k
, _, `  L1 t7 k0 ]" n+ Y, M9 W8 |Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
6 b  D3 M! i9 e" W2 zSpl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
, x3 r& H. z, o- m3 XEnd If
If Len(Spl(i)) > 0 Then
8 P1 B7 e3 F1 [: v" x4 SList1.AddItem Spl(i)
' F2 A) c! O& }! G) R/ z" j, u# mEnd If
Next i