困扰我睡不着觉的难题！

t253377892

发送命令  PRINT ENTITY tooLpath  获取所有的刀路:
. G. M; C; p) T, s, ]  f1 K
/ v$ s9 R  [8 R  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1
1 A, i/ V7 U3 P3 H# r3 L  0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2
7 g2 e' q( C8 q: ]# n7 T% E  0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3
/ Z1 P. D* x1 W  0.01<<刀具R2>><<-0.07*-0.07>>/S:14000/F:2400*4
1 y( q* A4 @. |- F  0.01<<刀具D8>><<0.68*-0.07>>/S:8500/F:1000*5
6 G! e/ E1 I- A2 S: }; i% a# }' I  0.01<<刀具D8>><<0.68*0.00>>/S:8500/F:1000*6
  0.01<<刀具D8>><<-0.07*0.00>>/S:8500/F:1000*7
  0.01<<刀具D8>><<0.00*0.00>>/S:8500/F:1000*8


4 H( @3 u6 d. O" ]& Q发送命令  PRINT ENTITY NCProgram  获取所有的NC:
2 m5 _' [3 S" E
  a8-f1
  a8-f2
  a8-f3
7 Z5 O; L. J7 e2 w* x
2 z" g# I- G* X  ^1 A
& s- K5 H) Q7 e  }
1 @5 Z' I6 M) q/ m) b4 E2 @  O% t发送命令获取nc信息:   edit  NCProgram "a8-f1"  print

在PM命令栏下面显示：

# |: _" G) Y( G' d" Z+ [                                         刀具 编号 直径 长度 刀尖圆角半径 冷却 补偿 刀具ID   
9 B5 c! E- ]) z4 U' m0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*1 D8  6  8  160     无  无   D8
, l- P3 Y1 L* _8 m9 ^* f0.04<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*2 D8 (6)  8  160     无  无   D8
# l$ e1 z4 G4 \* ~5 v8 ?0.03<<刀具D8>><<0.00*0.00>>/S:8500/F:3500*3 D8 (6)  8  160     无  无   D8

" j0 y! u* w5 {3 F在VB立即窗口中显示返回的结果:      
& A* L. t. I- ]3 m
5 j8 L$ |8 ]& \$ c- |   属性: 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状态 : 未写入

( k6 {* U4 G3 N2 Z- O9 f* b
( ~2 E* Z2 ?+ _; H  G$ T头疼的问题是： 有什么办法把一个nc中所包含的所有的刀路名称字符串，准确的提取出来,小弟研究好久终未攻破，有想过用 instr 涵数查找nc里面有没有包含指定的刀路字符串，但该方法有漏洞不行,用MID涵数的话，nc里面刀路名称前后的字父都是变化的，无法定位啊？所以 特向三维网上的高手老大们请教一下，在此感激不尽!

7 r' y; }% H2 ?' ], v# K' k2 t$ W3 W
) i  ^0 w% G1 N9 u, a

t253377892

高手们在哪里啊?

t253377892

顶出高手中的高手啊

yishabing

1# t253377892
* v: _& x. o) h8 W2 |& l5 ^9 l/ h这个问题好解决：
1 e! B8 U) L1 N4 U4 M* Q看附件
+ i. l# z2 b2 u: x如不明白可以联系下我哦

86811168

4#的方法不错..

zwz9

确实有难度    高手出现

t253377892

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

t253377892

强烈期待源码实例!

yishabing

7# t253377892
可以

t253377892

在线等4#老大的附件

yishabing

+我Q 1638074932

hh749

Dim Buf As String
Dim Spl() As String
. q/ T, P/ }7 C" N$ E) @9 t; m' ? dcam_window_ontop hwnd
Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
. ^/ t! ]' u6 y! c pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
3 t. T& q. o6 n1 l% aCall pml_send_ex("Print ENTITY  toolpath", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
& ~- e/ ]6 }7 |1 i( x2 p; R. |1 WFor i = 1 To UBound(Spl)
3 c! D+ A6 w$ n& u, CSpl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
, g" ~; D% p+ @& _End If
9 X# v1 W4 p( s6 tIf Len(Spl(i)) > 0 Then
/ k+ U- t: [9 P+ b1 N- JList1.AddItem Spl(i)
8 p4 n/ j+ Y6 g1 c4 n1 K8 X" A3 IEnd If
Next i