在vB用什么命令可以获取刀路属性里的x,y,z的正负值

t253377892 · 发表于 2009-12-17 12:42:24

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

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

x

各位老大！小弟有一事相求，在vB用什么命令可以获取刀路属性里的x,y,z的正负值啊，为方便理解现附图一张，期待热心人

t253377892 · 发表于 2009-12-17 12:45:19

这是图片说明

wangzibo341224 · 发表于 2009-12-17 12:59:33

VB6.0代码！参考一下！

Dim parameter As String
pm_start (0)
pm_send ("EXPLORER SELECT Toolpath 'Toolpath\5' NEW")
Text2.Text = pm_send_ex("SIZE TOOLPATH '5'")
pm_disconnect

[ 本帖最后由 wangzibo341224 于 2009-12-17 13:15 编辑 ]

wangzibo341224 · 发表于 2009-12-17 17:15:17

Private Sub Command1_Click()
Dim S As String, K() As String
pm_start 0
S = pm_send_ex("SIZE TOOLPATH '5'")
pm_disconnect
Text1.Text = S
Do While InStr(S, " ")
S = Replace(S, " ", " ")
Loop
S = Trim(S)
K = Split(S, " ")
Text2.Text = K(4)
Text3.Text = K(8)
Text4.Text = K(5)
Text5.Text = K(9)
Text6.Text = K(6)
Text7.Text = K(10)
End Sub
再试一试这段代码！

wangzibo341224 · 发表于 2009-12-17 17:42:46

Private Sub Command1_Click()
If Combo1.Text <> "" Then
Dim S, aaa As String, K() As String
aaa = Combo1.Text
pm_start 0
pm_send "DIALOGS MESSAGE OFF"
S = pm_send_ex("SIZE TOOLPATH " & "'" & aaa & "'")
pm_send "DIALOGS MESSAGE ON"
pm_disconnect
Text1.Text = S
Do While InStr(S, "  ")
S = Replace(S, "  ", " ")
Loop
S = Trim(S)
K = Split(S, " ")
Text2.Text = K(4)
Text3.Text = K(8)
Text4.Text = K(5)
Text5.Text = K(9)
Text6.Text = K(6)
Text7.Text = K(10)
Else
Dim Response
Response = MsgBox("请先点击获取刀具路径按钮！", 48 + vbOKCancel, "提示!")
Select Case Response
   Case vbCancel
      Cancel = -1
End Select
End If
End Sub

Private Sub Command2_Click()
Combo1.Clear
If Combo1.List(0) = "" Then
Dim m, mm As String
pm_start (0)
m = pm_send_ex("print entity Toolpath")
pm_disconnect
Dim a As String, i As Long, j As Long
a = m
j = 0
Do
i = InStr(j + 1, a, "'")
If i > 0 Then
j = InStr(i + 1, a, "'")
If j > 0 Then
Combo1.AddItem Mid(a, i + 1, j - i - 1)
Else
Exit Do
End If
Else
Exit Do
End If
Loop
Combo1.Text = Combo1.List(0)
End If
If Combo1.Text = "" Then
MsgBox "没有刀具路径可获取!", vbDefaultButton1, "提示!"
End If
End Sub

这个肯定可以！我已经试验过了！

获取刀具路径信息.rar (6.96 KB, 下载次数: 47)

t253377892 · 发表于 2009-12-17 18:07:19

好人，很热心的好人

t253377892 · 发表于 2009-12-17 18:07:53

谢谢你！飞哥！

wangzibo341224 · 发表于 2009-12-17 18:30:23

这是专门为你做的！

也希望大家也能用的上！

OUCEGEN · 发表于 2009-12-18 09:06:55

小飞哥可真是热心人啊！谢谢

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

通知

[已解决] 在vB用什么命令可以获取刀路属性里的x,y,z的正负值

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

传图

回复 2# t253377892 的帖子

评分

浏览过的版块