困扰我睡不着觉的难题！

t253377892

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

( y7 d6 }9 u/ D1 }* S5 ]0 K4 c  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
& {% p- a1 |$ ]$ i- {/ H3 c9 c  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
# x( p$ ~) y0 k& F$ n  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
9 c* o" K' B6 G  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8


9 `' z& P9 T1 c0 X% S& \7 n7 X9 }) Y/ a4 o发送命令  PRINT ENTITY NCProgram  获取所有的NC:

. N6 [8 R& l( W  a8-f1
  a8-f2
  a8-f3


& N& h! }% j+ h* h+ \( j8 m5 H
) h! d2 [. O% v: D; v. f发送命令获取nc信息:   edit  NCProgram "a8-f1"  print
* ^  v# T  ?. E# w! x4 J
3 W5 a' K' g1 M# q$ U2 N' y. [在PM命令栏下面显示：
& e' ~" F. }# J  g
& ~" o6 g& }5 S- P0 f                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
5 }$ t: U  _( F+ Q" j5 |  R5 \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
) f5 ]3 u4 D7 ^: s# Z. {. o0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3 D8 (6)  8  160     无  无   D8
9 B* y" \; p; t! V7 J; u
在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状态 : 未写入
: w+ O2 Y; e' B, z9 z
" }! I7 }4 k: B/ e1 L
4 a: y- E% H/ j; _6 W, ~头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!

! d' Z. ^% ^6 C0 ]

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
, m$ `$ [  z. G& q8 E0 f* t' d- O这个问题好解决：
看附件
& U% C8 m4 T/ L9 k6 ~- O. d如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
1 o# ^5 D" i+ M可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
$ J9 j4 E5 `% t; N- Z* q$ o7 a2 y! ADim Spl() As String
3 f+ S5 ^0 X3 N* y5 l  F dcam_window_ontop hwnd
3 h8 c% a4 V! p& K' `- ~! ? Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
pml_start (False)
* g; x1 p. K+ ~: w$ `- }( h) T5 w3 Spml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
! r; U' ~4 d- Q2 R'pml_send ("Delete All yes")
0 J" }: y9 t: ^Call pml_send_ex("Print ENTITY  toolpath", Buf)
% J4 w9 @! ~! ZIf Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
; Y5 z) C* i1 A, R$ kSpl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
5 k  m8 O, J; N1 S. [! CEnd If
: `& A; P; f2 \9 ^, G, DSpl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
8 q6 h0 G- l* b( s. _% \End If
If Len(Spl(i)) > 0 Then
! ~( l- ~" w2 r6 a$ M& \List1.AddItem Spl(i)
End If
, k& w8 Y% B9 r& G3 U( eNext i