困扰我睡不着觉的难题！

t253377892

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

  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
* ]7 Y, x2 j) T/ [; F  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
2 e7 T6 M: T2 o  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
$ }- d/ K  }& ~- w9 [( Z% o& o  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
4 p9 v8 L' ]$ |: X* M  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
- B7 X* n3 j+ K  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8

# I6 `8 }" Q* H# F$ A. B: x$ \
" v: T/ a, Y" A- }发送命令  PRINT ENTITY NCProgram  获取所有的NC:
. k5 X5 E+ G' y) P4 O& {! D
  a8-f1
' V7 F; a, O& H$ K5 f% z4 W6 z/ C  a8-f2
8 P  P- w- e/ l8 W  a8-f3
5 m5 Q: d( ^( x: n
) G4 E" G) O0 A
2 I% j) T7 T  b) e0 [) W  i
+ r+ m! N* Y* f发送命令获取nc信息:   edit  NCProgram "a8-f1"  print
) ~6 [6 d: z5 T! l( `
在PM命令栏下面显示：

                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
' J; s6 @5 W( p/ v! T! o$ L9 \0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
& [% I* R) A. Z0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2 D8 (6)  8  160     无  无   D8
6 r+ f% f5 }; C3 I4 P0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3 D8 (6)  8  160     无  无   D8
# g* }0 J  ?0 @9 B6 ?) H
" A$ e" s7 l- X+ ?6 g4 H在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状态 : 未写入

, r# w. v' h2 E! E
头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!

+ b! a  Z& H4 j. F, e

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
这个问题好解决：
: `+ u! h) S- ~5 s看附件
& R1 c8 L; k; y: ^+ _( S/ e如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
0 m! I" f' Q/ |4 ^' H4 l; Z; q  |Dim Spl() As String
" N+ j4 B7 f+ H3 j( A& k& D$ N dcam_window_ontop hwnd
8 S# ^4 T* a5 e# v& C Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
1 I5 w8 p' I* J  j, j% B, X, R; I  Y pml_start (False)
pml_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
& h7 ]& X2 t  ?$ O1 b: n# h3 T3 WSpl = Split(Buf, vbCrLf)
5 `' h% P3 k0 O/ ZFor i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '
8 n* s' f! s- c- ?% F- ~9 H
) b) V3 E* a2 S% l# O; L4 SSpl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
  v! ^; ^% M  @1 L. DEnd If
If Len(Spl(i)) > 0 Then
List1.AddItem Spl(i)
) Q4 }8 ^6 L6 o- Q5 ~End If
9 u, ]  k0 p3 N& T( h  x" @1 u6 KNext i