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

zhq5360

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

56180825

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

lengqianao

期待高手
& S- N9 G. K7 ?: l3 C/ j$ T期待具体的

hh749

Private Sub Command2_Click()
, V8 x: R( `5 X7 O6 t" lCombo1.Clear
Dim Buf As String
Dim Spl() As String

Call pml_send_ex("PRINT ENTITY TOOL", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
& c3 A8 G- \; ]9 M; [2 |2 xSpl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
/ \! C. E/ x& gSpl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '

5 N) b6 S1 ~7 a  MSpl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
) ?% u, x% n  t& i( v1 B! y8 z1 GSpl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
% _$ l: e4 H4 {1 BIf Len(Spl(i)) > 0 Then
Combo1.AddItem Spl(i)
3 g7 |3 D' P* D3 @. u# VEnd If
Next i
, B9 z7 ^- _) X$ l; YEnd Sub

hh749

Private Sub Form_Activate()
Dim Buf As String
Dim Spl() As String
7 H$ F2 p. n: l; t0 N dcam_window_ontop hwnd
1 ^  J: i. j' v# \' ?  a( q( p pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
+ l7 W3 G" E/ NCall pml_send_ex("Print ENTITY  NCProgram", Buf)
, \, @! f( \, H9 f/ _If Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For I = 1 To UBound(Spl)
5 N7 _! i* N  s' `, ~Spl(I) = Trim(Spl(I))
If Spl(I) <> "" Then
If Left(Spl(I), 1) = "*" Then '
# I# _' s- x( s& G7 R; i; C
Spl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
End If
Spl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
7 v! x) J3 a2 w+ w4 p1 ]" UEnd If
If Len(Spl(I)) > 0 Then
& ]8 \1 z8 e6 P0 ~$ }+ B' UList1.AddItem Spl(I)
+ U8 {5 ]4 k9 |; f& k1 B  jEnd If
Next I

End Sub

zhq5360

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

wcaon

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

duxingrui

加油，永远支持