困扰我睡不着觉的难题！

t253377892

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

  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
  @5 g9 W3 O8 k4 O0 H( o  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
1 [' J+ h' p3 r2 M6 Q: M  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
+ g% ?$ E3 ]! W# c3 Q  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
  d6 a7 f4 p+ a. P. h% ?$ z  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
6 B5 U0 Q/ ]  N  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
! D  y4 E* [* ?, y  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8


3 l: L8 Y" U( ?2 f7 M/ Y! K6 H- L发送命令  PRINT ENTITY NCProgram  获取所有的NC:

4 f. O3 r& ]  Y: c% z- T0 E  a8-f1
8 z/ q9 k$ H% C' L# W  a8-f2
4 p0 x, x! r7 {- e  a8-f3
  o: L6 u  @: g3 Q# X  ]& }

- ^9 i2 p& r: B4 T# Z" I, ^. ~
  O+ @1 P$ v" U. r: |- Q+ c发送命令获取nc信息:   edit  NCProgram "a8-f1"  print
! y. L4 l" r- b( e5 v5 E9 E
' x* K/ L7 j3 c在PM命令栏下面显示：

                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
' n  c. L$ e: w% f$ s% k+ ~) q0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
7 a/ p3 O( w2 ^3 @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
- B/ H% ?% W3 U' M6 D  b" @
9 ]# ]- f5 E1 h8 A/ c6 b7 G在VB立即窗口中显示返回的结果:      
% u* c0 `/ U( i2 V3 e
" [! I6 V' U  z   属性: 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状态 : 未写入

# p0 F' ~+ F& `8 r
头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
, S7 K8 I  [2 O. d. _; h
. c$ W8 i5 m+ M; {% K- S0 r6 E
# l' N2 Q8 s$ o1 t, X  c

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
这个问题好解决：
看附件
, T$ `8 D4 y; e% |如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
7 `% `6 O2 J& f4 Y7 F* a+ E可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
Dim Spl() As String
dcam_window_ontop hwnd
Me.Top = Screen.Height - Me.Height
) n" O( ?& V6 W8 Z Me.Left = Screen.Width - Me.Width
pml_start (False)
( s/ L/ R7 d, W1 ~# }8 {* zpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
Call pml_send_ex("Print ENTITY  toolpath", Buf)
% }/ K) e6 V! |% l, S1 d) k: @If Left(Buf, 1) = "0" Then: Exit Sub
# n/ W0 e( {- V* E: ^Spl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
, m7 s8 ?7 S" e1 z9 gIf Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '
& x6 m8 L# j0 n0 }" `- W
Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
( I# T3 W% n8 n  e& u- T% S7 |End If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
6 ]! |8 F0 H) m& W. J+ l3 R1 n3 bIf Len(Spl(i)) > 0 Then
List1.AddItem Spl(i)
End If
Next i