程序人生帮我的忙。特急

t253377892 · 发表于 2009-10-7 14:50:31

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

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

x

高手首先谢谢你啊！
现在我要激活刀可是选不到刀
是不是不能这样写？？PowerMILL31.Execute "ACTIVATE TOOL " & Val(Combo1.Text)
报警说“0”刀不存在！！！特别急啊
Combo1.Text要换成什么代码PM才可得到列表里的“刀具”啊？？

wfeng158 · 发表于 2009-10-7 17:00:49

朋友在吗? 加QQ

386098727
谁明说 VB 二次开发

hh749 · 发表于 2009-10-7 22:54:34

发出你写的获取刀具路径的那段代码来

hh749 · 发表于 2009-10-7 22:58:38

原帖由 wfeng158 于 2009-10-7 17:00 发表 http://www.3dportal.cn/discuz/images/common/back.gif# q( k% F- X: d/ }$ Z4 F, t
朋友在吗? 加QQ# o; A" B5 z+ S% G1 }
, p) B1 v# T6 \' ]: o# D
3860987276 P$ U) H( b& q. p7 A- D3 J7 V8 r
谁明说 VB 二次开发

能解决就在站内交流,也给别人看看,问题是什么,怎么解决的,私下的交流不利站内的发展,如果你愿意的话

hh749 · 发表于 2009-10-7 23:03:50

或者你把代码发我QQ邮箱里去,我Q号多少,在站内A,B,C跟二次开发群中都有我

wangzibo341224 · 发表于 2009-10-8 10:40:55

我也想知道！

Private Sub Command3_Click()
PowerMILL31.Connect
PowerMILL31.Execute "ACTIVATE TOOL " & Val(Combo1.Text)
End Sub

Private Sub Form_Load()

PowerMILL31.Connect
  Dim result As String                         '变量定义
  Dim SplitResult() As String             '数组定义

   Combo1.Clear


PowerMILL31.Execute ("DIALOGS MESSAGE OFF")
PowerMILL31.Execute ("DIALOGS ERROR OFF")

result = PowerMILL31.ExecuteEx("Print ENTITY TOOL")

SplitResult = Split(result, " '")
For i = 1 To UBound(SplitResult)
SplitResult(i) = Replace(SplitResult(i), " ", "")
SplitResult(i) = Replace(SplitResult(i), "'", "")
SplitResult(i) = Trim(SplitResult(i))
If SplitResult(i) <> "" Then Combo1.AddItem SplitResult(i)
Next i

PowerMILL31.Execute ("DIALOGS MESSAGE ON")
PowerMILL31.Execute ("DIALOGS ERROR ON")

End Sub

t253377892 · 发表于 2009-10-8 19:07:34

哈哈；搞好了谢谢大家犯了低急错误 PowerMILL31.Execute "ACTIVATE TOOL " & Val(Combo1.Text) 改成 PowerMILL31.Execute "ACTIVATE TOOL " & ValCombo1.Text就OK

guan_zheng888 · 发表于 2016-5-23 22:55:16

用力顶下楼主

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

通知

[已解决] 程序人生帮我的忙。特急

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

DDDDDDDDD

浏览过的版块

通知

[已解决] 程序人生帮我的忙 。特急

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

DDDDDDDDD

浏览过的版块

[已解决] 程序人生帮我的忙。特急