困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
9 t2 ^/ G) j' r- ~8 H! j: [, c# u: v+ ~+ 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
  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
  `1 f: `) }' j# t7 ^, E1 G9 M7 ^: C  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
( a1 ~+ T5 O, l  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8

" b7 R2 J# ^8 p! Z
$ J5 N& j; U, ~. m; s8 x发送命令  PRINT ENTITY NCProgram  获取所有的NC:
! z/ b2 p5 r0 O5 u
  a8-f1
8 l) }6 Q  S! L6 j2 K% P  a8-f2
" S' t& ~3 U' J% b* ^9 u  a8-f3

% s/ Z! F- E2 c/ q4 R
) v5 w/ v7 z. _
发送命令获取nc信息:   edit  NCProgram "a8-f1"  print
1 v8 e/ k# J  x* v  L7 ^
" G8 B1 f+ z0 {- N  i在PM命令栏下面显示：

2 x& L; G0 [# t. i                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具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

在VB立即窗口中显示返回的结果:      
5 w! x) i8 D" F
8 v0 f1 t# W+ ]9 H- c   属性: 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状态 : 未写入


# }- Z; R5 \/ o  N% X头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
7 M! v5 c8 g6 [* P9 h+ f, n
# f  ~* x- f5 [
' I  X& S) k: V- b$ |

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
) t4 P0 l! G& a3 m这个问题好解决：
3 b) m' h0 n8 I8 L0 i看附件
如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
- k$ e7 o  a- @( `; E/ U  }; X可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
4 v* B0 y! K2 f; Q$ _) vDim Spl() As String
) o* P* ?" D- I6 N" B9 @  D dcam_window_ontop hwnd
" S) a* ]6 [( P" g2 M7 e% y4 H Me.Top = Screen.Height - Me.Height
9 w2 @, I; ?# H5 p Me.Left = Screen.Width - Me.Width
! `1 ^* c9 g# i; m  \! _ pml_start (False)
9 U3 s" u; P) j/ T& d; I3 Jpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
3 B/ t* }5 J& d( D- o; b4 b8 V'pml_send ("Delete All yes")
+ c. u- c$ Z- j$ x- y9 WCall 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)
+ G& K& y5 ~* r  LSpl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '

$ G+ Y7 f; R6 S) sSpl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
3 b3 }+ W: J4 @; S; I' uEnd If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
If Len(Spl(i)) > 0 Then
List1.AddItem Spl(i)
End If
Next i