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

zhq5360

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

56180825

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

lengqianao

期待高手
  h& d7 B- h, @5 Q% B期待具体的

hh749

Private Sub Command2_Click()
Combo1.Clear
Dim Buf As String
Dim Spl() As String
4 E, y3 i  Q# U' J
6 q: U! U7 A2 C: g3 dCall pml_send_ex("PRINT ENTITY TOOL", Buf)
' E; F. r/ y2 }3 j/ W* m; XIf Left(Buf, 1) = "0" Then: Exit Sub
; H6 ~0 `; M$ uSpl = Split(Buf, vbCrLf)
For i = 1 To UBound(Spl)
. A6 i4 z! @1 m" g9 CSpl(i) = Trim(Spl(i))
If Spl(i) <> "" Then
If Left(Spl(i), 1) = "*" Then '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
; ?7 D; O' a2 T( A# ?# a; CSpl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
! L: |+ Q( A: K9 WIf Len(Spl(i)) > 0 Then
Combo1.AddItem Spl(i)
End If
Next i
End Sub

hh749

Private Sub Form_Activate()
Dim Buf As String
; t7 y; e) K4 j  n2 N* d  YDim Spl() As String
, W' H( [+ X# f6 E. t dcam_window_ontop hwnd
pml_start (False)
5 x$ R; B$ i% ?% `2 I  ^pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
& A) g2 C0 E. |4 k; z& b- o1 ACall pml_send_ex("Print ENTITY  NCProgram", Buf)
If Left(Buf, 1) = "0" Then: Exit Sub
% }3 w5 Q- Y  B/ }! {Spl = Split(Buf, vbCrLf)
For I = 1 To UBound(Spl)
8 O( s; ?$ I  x' l( pSpl(I) = Trim(Spl(I))
$ G6 ~/ h' M0 C4 P2 VIf Spl(I) <> "" Then
; [2 u8 I3 h$ w1 S1 g% y# h- {If Left(Spl(I), 1) = "*" Then '
1 a6 K) G* A8 s2 F
6 l7 S( X1 L, }) `1 BSpl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
End If
2 T8 i+ Z! O9 O& h- [4 G7 L$ p1 ZSpl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
# v0 x# l8 D; z4 k9 bEnd If
( ?* T( j" F+ A6 |4 I( Z8 cIf Len(Spl(I)) > 0 Then
List1.AddItem Spl(I)
End If
( `8 s# t% g/ VNext I

' L8 T% C; h- p4 cEnd Sub

zhq5360

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

wcaon

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

duxingrui

加油，永远支持