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

zhq5360

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

56180825

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

lengqianao

期待高手
4 M% a2 f$ p7 F* j期待具体的

hh749

Private Sub Command2_Click()
) [3 u  ]0 h" z; DCombo1.Clear
Dim Buf As String
Dim Spl() As String

6 h# s7 {/ ^2 ~% lCall pml_send_ex("PRINT ENTITY TOOL", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
0 A' @4 u. _( p* ]8 k1 _+ G0 W! PSpl = Split(Buf, vbCrLf)
; B% V) F! `" O* T* xFor i = 1 To UBound(Spl)
* a. f+ u' C2 M5 K# @$ mSpl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
2 j) ~3 @; [% s8 T6 z- C" RIf Left(Spl(i), 1) = "*" Then '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
# M1 a% ~! H- X0 \% b( B, vEnd If
5 i9 _9 M4 w( zSpl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
- M: }! Y# f% W& N) sIf Len(Spl(i)) > 0 Then
Combo1.AddItem Spl(i)
3 L6 g% d, N" t2 ^% T  `2 o: `End If
Next i
. O1 k! {1 Q6 O% X# h9 ?* GEnd Sub

hh749

Private Sub Form_Activate()
Dim Buf As String
) B7 ?) T0 N0 m. J6 l# l* bDim Spl() As String
dcam_window_ontop hwnd
pml_start (False)
. [6 Z& k2 B+ P# W0 ]  A: n! Upml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
$ f9 l  O0 n* R$ J'pml_send ("Delete All yes")
Call pml_send_ex("Print ENTITY  NCProgram", Buf)
" J& v$ U9 `5 C" }' CIf 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
If Left(Spl(I), 1) = "*" Then '

& m& t) G( R9 N/ z  S  o" ?1 [9 {Spl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
1 x+ {, c3 `, f  N# \# ^End If
Spl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
1 e7 b) ]( z+ W9 j7 l" fEnd If
If Len(Spl(I)) > 0 Then
/ e0 O- ^3 B# zList1.AddItem Spl(I)
End If
Next I
& G& X- m9 a; v8 M( I. ]: a4 c8 a
End Sub

zhq5360

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

wcaon

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

duxingrui

加油，永远支持