困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
5 S  F5 }- G/ q) w" Y
2 S$ G* z$ O  L4 t& K4 b  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
9 W1 p2 J. l* _% |1 k% K- `8 A  k  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
9 Q; T* R2 o" v. t2 K. q" ?  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
- w0 M$ x2 `; G6 G7 ?5 U) n, L4 ]  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8
( V) D8 X, o0 W0 u; p+ l
- k+ |% V# u3 d5 u1 P. L+ g
发送命令  PRINT ENTITY NCProgram  获取所有的NC:
: f, q# M; p) I& U2 K7 I
  a8-f1
* T7 |7 G0 D4 F& C: o* X+ N  a8-f2
  a8-f3


& z6 _0 ]/ k4 X* T$ E8 A( a  a
$ ^2 J* W3 @0 {1 U5 [* H发送命令获取nc信息:   edit  NCProgram "a8-f1"  print

在PM命令栏下面显示：
1 ]+ `: i- X: `. \# c
* Y/ Q( V5 H. \                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
" E0 c0 Y- F* b: A' y0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
2 H& x# Y7 T0 d* _9 }" h0.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
+ y2 D/ u$ ]" |5 p$ V
在VB立即窗口中显示返回的结果:      
0 K9 @; k7 E& t) t% m
   属性: 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状态 : 未写入


头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
2 ^" Y+ M+ A; q  I

$ V8 j4 k$ ~1 [8 `
" g; \- ~' T  C0 f! N1 [

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

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

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
: c( t- y' ~* f3 o! {; X: J& S6 V可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
Dim Spl() As String
dcam_window_ontop hwnd
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")
5 o1 R! M5 O, |0 ~Call pml_send_ex("Print ENTITY  toolpath", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
+ L# j* S( `5 @: ~If Left(Spl(i), 1) = "*" Then '
) r+ S9 s4 l; k! [
$ R8 X5 g. K/ }7 X# U* u+ kSpl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
If Len(Spl(i)) > 0 Then
& I9 J4 h. ?3 u) [0 z" W: xList1.AddItem Spl(i)
End If
9 g$ X2 l! x0 ]; V% ^0 ]5 INext i