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

zhq5360

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

56180825

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

lengqianao

期待高手
期待具体的

hh749

Private Sub Command2_Click()
Combo1.Clear
$ h6 f* R0 q: x) |Dim Buf As String
Dim Spl() As String
# b- X* ]' m3 ^) [$ _& x1 D
Call pml_send_ex("PRINT ENTITY TOOL", Buf)
9 ^1 a! f# i3 v4 ~) M  DIf Left(Buf, 1) = "0" Then: Exit Sub
Spl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
Spl(i) = Trim(Spl(i))
- b- ~/ Y0 e$ F& b& rIf Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '
" {! R6 c; y6 t* ]
Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
8 i! R  B# R) U' m6 J% ^. C0 WEnd If
: ~* H' }, B9 I5 }( Y" u& t: @Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
If Len(Spl(i)) > 0 Then
Combo1.AddItem Spl(i)
) ^$ p5 a! @5 }# kEnd If
Next i
End Sub

hh749

Private Sub Form_Activate()
Dim Buf As String
9 [" N% e4 N% m& A: e5 N) [Dim Spl() As String
dcam_window_ontop hwnd
pml_start (False)
  o2 B- p2 B+ g6 tpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
1 c) L9 I+ n* O$ z1 P: |Call pml_send_ex("Print ENTITY  NCProgram", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
& i) C4 l2 j  T/ \# eSpl = Split(Buf, vbCrLf)
, \# w* |; Q; @( rFor I = 1 To UBound(Spl)
Spl(I) = Trim(Spl(I))
8 u0 v8 X$ j: K( HIf Spl(I) <> "" Then
- f* G4 X5 f) d; O/ jIf Left(Spl(I), 1) = "*" Then '

Spl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
7 y( ?) p$ t4 _4 x7 E( tEnd If
! |* b- [  p, _/ h& ~2 @# M0 KSpl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
End If
; o' }5 {  i# M. q- hIf Len(Spl(I)) > 0 Then
List1.AddItem Spl(I)
! i% o0 m% ^8 _0 v1 sEnd If
0 T3 X5 \$ A7 ENext I
; K! H5 V, @+ H
End Sub

zhq5360

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

wcaon

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

duxingrui

加油，永远支持