困扰我睡不着觉的难题！

t253377892

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

  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
5 J) T$ O! q7 c/ a( x  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
7 D+ M9 Q9 r) b$ q$ Z  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
# N0 m2 j# W5 t2 [+ S- C6 `! K  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
* Y7 l. u8 z' ?% Z  u  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
5 |6 E) H1 m& S  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
* E. m. @4 F  x" v4 D% r# M# x  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8

' \8 w; D7 t$ U) M, m5 S
+ `: E% P2 f. m发送命令  PRINT ENTITY NCProgram  获取所有的NC:
( `. f" Q/ `2 l' i1 s! |, z
$ B- R7 \; y- C  a8-f1
3 ]" z& |6 w: N3 F3 Q/ v, [  a8-f2
  a8-f3
6 v  f& E4 ~. h; @! L
5 e4 }+ L# ~$ O9 O. g$ ]# _
0 \2 F; @) _9 u& x: d( f
发送命令获取nc信息:   edit  NCProgram "a8-f1"  print

在PM命令栏下面显示：

6 i5 \* V* N$ v                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
/ x" ^3 B% k( @; O9 s  Z0.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

在VB立即窗口中显示返回的结果:      
5 ]) j2 D6 h# U+ 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状态 : 未写入

) \  _9 T% m$ [  E, v* T
头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
, @9 B8 l5 I; @3 ~7 g, a


( g& r2 ?1 m) i; I

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

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

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
) B) B8 B. K) p5 N" [可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
Dim Spl() As String
$ Z, N+ @" S+ l7 r dcam_window_ontop hwnd
Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
pml_start (False)
/ Y) Q: |  W2 v2 a. ^8 h  w" ppml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
! N. `5 I/ j$ |5 x1 H/ ?Call pml_send_ex("Print ENTITY  toolpath", Buf)
4 N" @% D9 U/ S2 o: [5 VIf Left(Buf, 1) = "0" Then: Exit Sub
1 e# d% R/ K: Q0 `0 L: h5 x- x: K. zSpl = Split(Buf, vbCrLf)
" S7 V+ Q, p; C- zFor i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
6 g) S" q: w* K5 c# X8 D+ [If Spl(i) <> "" Then
) x3 ?) |2 m9 |4 U/ lIf Left(Spl(i), 1) = "*" Then '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
# D% ^; A) m- a8 q+ bEnd If
$ v( W1 N- p& S4 |9 f% o* KSpl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
! a* Y& Z' y  R2 hEnd If
2 y$ [% J  q( |If Len(Spl(i)) > 0 Then
List1.AddItem Spl(i)
% }, w- p: i! U- A0 {# y+ @End If
Next i