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

zhq5360

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

56180825

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

lengqianao

期待高手
期待具体的

hh749

Private Sub Command2_Click()
Combo1.Clear
Dim Buf As String
Dim Spl() As String
8 K% Z& O7 g& S6 |
4 A; F4 s- N3 t! d0 mCall pml_send_ex("PRINT ENTITY TOOL", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
/ r+ U+ t( Y) P6 \2 `Spl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
" a1 S) {0 f: V  C; V* lEnd If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
4 G  r* k6 |- M& t# h8 oEnd If
  R/ f$ N, [4 EIf Len(Spl(i)) > 0 Then
. W' B1 C" G5 T8 YCombo1.AddItem Spl(i)
End If
Next i
End Sub

hh749

Private Sub Form_Activate()
Dim Buf As String
Dim Spl() As String
  |$ ]+ n4 _/ E% @8 E4 ]' M0 e dcam_window_ontop hwnd
0 |4 _* m& m  g) `$ d3 ~8 T# t pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
$ g- h$ x2 l. k9 }! w" ]'pml_send ("Delete All yes")
0 J. y6 [6 g2 z/ XCall pml_send_ex("Print ENTITY  NCProgram", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
: d9 M3 i2 \. a$ HSpl = Split(Buf, vbCrLf)
' \6 B9 S6 @$ b! u  x9 kFor I = 1 To UBound(Spl)
Spl(I) = Trim(Spl(I))
If Spl(I) <> "" Then
  v. A3 @' e" k" SIf Left(Spl(I), 1) = "*" Then '
" k1 j, ^- l' d7 W. }
4 f8 `2 ^! z9 U4 p$ HSpl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
( M2 r# j% T  e. ^8 r6 [End If
' M0 d; f. j1 ?5 ~8 ySpl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
End If
If Len(Spl(I)) > 0 Then
0 o! [: w; o/ D) _2 O$ KList1.AddItem Spl(I)
7 m  ?5 L& w6 k0 J. u0 E- Y2 `End If
2 w( u/ m& O* u7 A* \/ H0 w, vNext I

End Sub

zhq5360

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

wcaon

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

duxingrui

加油，永远支持