建立刀具VB外挂

fhqiwmc · 发表于 2010-11-3 10:19:57

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

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

x

我在写用VB写建立刀具外挂出现问题。提示找不到方法或数据成员。请论坛高手帮忙解决。谢谢了。

zhq5360 · 发表于 2010-11-14 21:08:39

你的代码中，NUMBER COMMANDFROMUI 是什么意思？里面还个一个是NUMDER的。平刀和球刀是没有刀尖圆角参数的，你的设置中全部用了统一的参数是不行的。

hh749 · 发表于 2010-11-16 18:53:07

把黄色的提示部分帖出来,以及所属事件的代码贴出来

yishabing · 发表于 2010-11-16 20:09:16

本帖最后由 yishabing 于 2010-11-16 20:11 编辑

1# fhqiwmc
看你图片是你的第一句语法错误。
pm_star: (0)
这句

fhqiwmc · 发表于 2010-11-19 10:30:12

按确定之后出现的提示

single! · 发表于 2010-11-19 10:49:37

做个宏应该比这好吧

hh749 · 发表于 2010-12-2 20:04:55

贴出代码来

fhqiwmc · 发表于 2010-12-6 21:52:37

pm_start (0)
If Combo1.Text = "平底刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "波头刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "R角刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
ElseIf Combo1.Text = "钻孔刀" Then
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
pm_send "TOOL ACCEPT"
End If

这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
下面是附件：

hh749 · 发表于 2010-12-12 21:47:36

本帖最后由 hh749 于 2010-12-12 21:52 编辑

第1句话
pm_start (0)
改成
pml_start (False)          pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
Public Function pml_start1( _
  start_new As Boolean _
) As Boolean

  On Error Resume Next
  Err.Clear
  pml_cancel_errors
  pml_start1 = False
  If Not start_new Then
Set pml_server = GetObject(, "Pmill.Document")
If Err.Number Then
   pml_debug_mess "pml_start:- Failed to connect to a running PowerMILL" _
                  & Chr(13) & "will try to create one"
   Err.Clear
   pmtemp = False

Else
   pml_start1 = True
   pmtemp = True
End If
End If

End Function

这里的返回值是Boolean,所以只能用FALSE或TRUE

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

通知

[求助] 建立刀具VB外挂

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

浏览过的版块