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

zhq5360 · 发表于 2010-10-19 09:51:29

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

56180825 · 发表于 2010-10-19 19:57:21

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

lengqianao · 发表于 2010-10-19 22:43:09

期待高手
期待具体的

hh749 · 发表于 2010-10-23 13:50:44

Private Sub Command2_Click()
Combo1.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
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 '

Spl(i) = Trim(Right(Spl(i), Len(Spl(i)) - 1))
End If
Spl(i) = Mid(Spl(i), 2, Len(Spl(i)) - 2)
End If
If Len(Spl(i)) > 0 Then
Combo1.AddItem Spl(i)
End If
Next i
End Sub

hh749 · 发表于 2010-10-23 13:55:10

Private Sub Form_Activate()
Dim Buf As String
Dim Spl() As String
dcam_window_ontop hwnd
pml_start (False)
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
'pml_send ("Delete All yes")
Call pml_send_ex("Print ENTITY NCProgram", Buf)
If 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 '

Spl(I) = Trim(Right(Spl(I), Len(Spl(I)) - 1))
End If
Spl(I) = Mid(Spl(I), 2, Len(Spl(I)) - 2)
End If
If Len(Spl(I)) > 0 Then
List1.AddItem Spl(I)
End If
Next I

End Sub

zhq5360 · 发表于 2010-11-9 16:31:40

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

wcaon · 发表于 2010-11-9 17:50:39

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

duxingrui · 发表于 2010-11-11 12:42:29

加油，永远支持

		自动登录	找回密码
密码			注册

通知

[已解决] 如何获取NCprogram里面所包含的Toolpath数目及名称

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。