困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
* N+ ^& H- x+ j% ]- w8 J
1 J) n  c6 a9 A1 ]; y0 ^  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
5 c* N6 B9 U) B* W; w  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
, K$ u3 K' D* x; S" O  T' }5 Z  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
% l8 p" E- m- ~  x' r" }( H& Y  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
) s' [% w; c( P/ @1 r3 z! y2 o  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
* ?  r+ f- u( l! T; k% Y9 }  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8
) H& k0 l' G3 C. y
9 r* _  T/ ^  n8 N  r: g
发送命令  PRINT ENTITY NCProgram  获取所有的NC:

  a8-f1
& ^$ c, R6 j! u% Y: ~+ _: J  a8-f2
1 ?+ a: l2 V0 E! ?- D: O  a8-f3
, C0 c3 Q0 z0 _! B$ P

7 X5 f: B  `) D6 M! c9 g
发送命令获取nc信息:   edit  NCProgram "a8-f1"  print
! V( f& l& B( l2 I2 \/ J! T
/ [% W" C, m8 j, N2 w' S$ j在PM命令栏下面显示：
  `1 b7 R3 {) v4 d
                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具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

2 N5 {/ D5 J2 B- Z2 r. z* ?1 k6 {在VB立即窗口中显示返回的结果:      

   属性: 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状态 : 未写入
" B: Y* V* B/ G9 `
2 P2 j/ Z. k* r' K
头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
& Q7 N0 S2 n  \) F1 F, m; M8 p

4 }% ?$ a+ h" [2 Z

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
这个问题好解决：
: n2 ^3 z  ^6 q) B$ q看附件
如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
* l# o2 `: R& y% s# O* \可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
Dim Spl() As String
, S( L: l$ g5 Q; D6 }" h dcam_window_ontop hwnd
" {% y$ b# L9 s3 T% y5 J- ~8 w Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
pml_start (False)
  U' k4 _! M: y" T( M. n, Lpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
) x, I4 ^; Q! \( ]1 K9 LCall pml_send_ex("Print ENTITY  toolpath", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
8 a# f( I+ t# M) |Spl = Split(Buf, vbCrLf)
$ X/ `$ Y' B3 e4 y2 @8 y4 }For i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
! }8 s& p. e( t$ u) i2 k- I4 YIf Left(Spl(i), 1) = "*" Then '
. {& X' y, G/ g6 R
9 a, s) E0 E/ H3 w( e+ i9 vSpl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
: S( g6 z  [# o7 G! z0 y. \9 H+ _Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
! h: n+ c9 o- E6 mEnd If
If Len(Spl(i)) > 0 Then
List1.AddItem Spl(i)
& _6 s' X/ U' G1 pEnd If
Next i