困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
; K9 G, a! {0 `/ e
  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
( d/ z+ b! w% c3 q  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
& ]* P: w+ K- F4 y! y: E  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8


发送命令  PRINT ENTITY NCProgram  获取所有的NC:

+ l5 ^" W* n- E% a: M  a8-f1
/ G1 C! H9 }) T7 E1 ^* Z  P$ b$ n  a8-f2
3 z( Q3 ~- k4 N/ W9 |7 V! r  a8-f3
' U: L/ H4 U. T
+ O$ N& Q$ n  _# h5 I% W; U8 y( O

发送命令获取nc信息:   edit  NCProgram "a8-f1"  print

在PM命令栏下面显示：

3 L$ L: Q& [/ L" T                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
, \0 k( W2 Q% l# x0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
! n, A7 n5 F0 M0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2 D8 (6)  8  160     无  无   D8
( v3 I" `% L# T( ?0 ^0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3 D8 (6)  8  160     无  无   D8

1 N! i  |3 F) U* |在VB立即窗口中显示返回的结果:      

+ g, Q  Q  j) G! u2 {   属性: 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状态 : 未写入
, X9 Q# F% M8 t1 p0 l6 H

6 I. i- i& N$ W5 D; o+ h6 Q* B头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!
2 T; ^7 b- F" r

. E- t7 K0 W4 w7 E' {0 K! o

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
这个问题好解决：
  {' [4 K/ R! h* u' P9 M, T看附件
/ b3 `9 g/ J0 l5 h& \) ^7 w& l. r! P如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
Dim Spl() As String
% r1 _  Y) k/ S! i$ b, O dcam_window_ontop hwnd
8 i: c& i/ }" l0 ^4 V; j Me.Top = Screen.Height - Me.Height
" Y: r( {, i% r( H+ k7 u3 K Me.Left = Screen.Width - Me.Width
pml_start (False)
. R( f4 g) t* p7 i7 @; npml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
Call pml_send_ex("Print ENTITY  toolpath", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
+ W# d! s+ Y1 _Spl = Split(Buf, vbCrLf)
+ t2 z% P+ g5 W' `For i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
5 f3 T6 @5 u4 v- ?, wIf Spl(i) <> "" Then
( @, R& o4 v& ~7 QIf Left(Spl(i), 1) = "*" Then '

( {% i/ A# n! Z) H' B7 q, h' [Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
& G1 T5 H1 U2 v1 Y) ?( [2 jEnd If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
* s/ A$ a5 D' p2 wIf Len(Spl(i)) > 0 Then
9 u. r0 b1 M4 B8 @9 fList1.AddItem Spl(i)
End If
Next i