如何获取NCprogram里面所包含的Toolpath数目及名称

zhq5360

小弟刚研究Pm的二次开发，现遇到了瓶颈。如何截获一个NCprogram里面所包含的Toolpath数目及名称？望高手们不吝赐教

56180825

比较麻烦。。。但还是可以获取的 。。。。需要循环处理文本。。。。。。

lengqianao

期待高手
期待具体的

hh749

Private Sub Command2_Click()
Combo1.Clear
2 \7 U* z! P" K3 }/ O8 RDim Buf As String
7 g# F& ?$ t" `  HDim Spl() As String

- E4 t. _& u+ a* _. bCall pml_send_ex("PRINT ENTITY TOOL", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
6 V% d3 ~' g: D- ?9 f) `For i = 1 To UBound(Spl)
8 f9 h* P8 y) ySpl(i) = Trim(Spl(i))
4 X4 m  h; R  D7 @9 M" ^8 p8 TIf Spl(i) <> "" Then
/ V0 Z5 i# T3 K) R* f, ]. n; _- ?If Left(Spl(i), 1) = "*" Then '
. L! Z, i' X4 u9 h
Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
' Z+ _$ s0 A8 W7 kIf Len(Spl(i)) > 0 Then
Combo1.AddItem Spl(i)
End If
Next i
4 Y8 W# V3 r) G4 n$ \& GEnd Sub

hh749

Private Sub Form_Activate()
Dim Buf As String
  h. M+ x, ~* xDim Spl() As String
dcam_window_ontop hwnd
: p) Q) ^6 ~8 q" O7 b pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
: b+ {: U$ M; B'pml_send ("Delete All yes")
5 B, c& d7 A8 h6 K8 ^1 r* F3 fCall pml_send_ex("Print ENTITY  NCProgram", Buf)
  \9 r8 G/ P% Q4 `9 v: S% OIf Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For I = 1 To UBound(Spl)
Spl(I) = Trim(Spl(I))
If Spl(I) <> "" Then
& {0 \" z2 ~  v9 H% h5 {  iIf Left(Spl(I), 1) = "*" Then '
- T* x2 M5 s, k0 {- d
1 O1 ^. M8 E  USpl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
End If
0 C* E+ |2 i" ~  ^) t# hSpl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
& N" |, |5 u' V! A2 I) QEnd If
If Len(Spl(I)) > 0 Then
List1.AddItem Spl(I)
& Z! k8 v4 H7 Q) M5 y4 jEnd If
+ I3 N: ]: y- g% `! H/ a" bNext I
2 }, [9 k1 h+ S, K9 x4 U
" ]' W2 p& L7 HEnd Sub

zhq5360

多谢大家的支持，很长时间都在忙工作，少上来了

wcaon

我仔细看了版主的代码 不错 谢谢

duxingrui

加油，永远支持