QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3644|回复: 8
收起左侧

[求助] 建立刀具VB外挂

[复制链接]
发表于 2010-11-3 10:19:57 | 显示全部楼层 |阅读模式 来自: 中国河北廊坊

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

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

x
我在写用VB写建立刀具外挂出现问题。提示找不到方法或数据成员。请论坛高手帮忙解决。谢谢了。
EI.jpg
KM.jpg
B22.jpg
发表于 2010-11-14 21:08:39 | 显示全部楼层 来自: 中国广东广州
你的代码中,NUMBER COMMANDFROMUI 是什么意思?里面还个一个是NUMDER的。平刀和球刀是没有刀尖圆角参数的,你的设置中全部用了统一的参数是不行的。
发表于 2010-11-16 18:53:07 | 显示全部楼层 来自: 中国浙江杭州
把黄色的提示部分帖出来,以及所属事件的代码贴出来
发表于 2010-11-16 20:09:16 | 显示全部楼层 来自: 中国湖南长沙
本帖最后由 yishabing 于 2010-11-16 20:11 编辑 , G0 Y6 S% ]. ?, m. ~

( p% g0 B% H2 B1# fhqiwmc
4 Z4 V, }% A9 B1 ^看你图片 是你的第一句 语法错误。; ]- v6 s8 t  B3 e" h( f+ l' h
  pm_star:  (0)
  [! @3 ]8 M7 r3 s9 ]/ S/ p  @这句
 楼主| 发表于 2010-11-19 10:30:12 | 显示全部楼层 来自: 中国河北廊坊
按确定之后出现的提示
按确定之后出现画面.jpg
发表于 2010-11-19 10:49:37 | 显示全部楼层 来自: 中国广东江门
做个宏应该比这好吧
发表于 2010-12-2 20:04:55 | 显示全部楼层 来自: 中国浙江杭州
贴出代码来
 楼主| 发表于 2010-12-6 21:52:37 | 显示全部楼层 来自: 中国河北廊坊
pm_start (0)
, e! k1 z- y1 sIf Combo1.Text = "平底刀" Then
2 y! a" X  e" x  U% G- V' dpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
* A% u2 D7 j0 F. m7 Zpm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"/ e; S# E% ^3 s( d
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"" O- q# q; j% A7 l$ U2 h
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
$ t; N0 |! h6 a5 e' P+ Wpm_send "TOOL ACCEPT"
: J/ A4 u% x+ G# f7 m% L6 mElseIf Combo1.Text = "波头刀" Then4 k# }, b$ l# q* U
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "; i$ ~& W6 }* g
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"# ]) M6 P$ K$ {
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
0 |* e3 L3 Q- N5 U3 J7 [pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"
% K3 r8 e' i. L  Hpm_send "TOOL ACCEPT"7 L' `6 q; `* a3 k
ElseIf Combo1.Text = "R角刀" Then
# ~' ^. o) b# X( fpm_send "CREATE TOOL ; ENDMILL  FORM TOOL "
( \" m7 I! d. {8 Apm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
$ P( C* I* |2 e" a5 ~pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"( V3 z0 Z, V% e
pm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"% ~) I2 {! d7 Y, d) v( W+ U5 z; K
pm_send "TOOL ACCEPT"
+ Z1 c& H% X/ m) HElseIf Combo1.Text = "钻孔刀" Then4 ~+ f$ {* z0 _$ Y' Y7 S  a  w7 H( a5 V
pm_send "CREATE TOOL ; ENDMILL  FORM TOOL "1 d# y, ]* K1 D" z8 B8 a
pm_send "RENAME TOOL" & "'" & 1 & "'" & "'" & Text1.Text & "'"
2 m$ W; y! a+ B; X3 i+ N5 qpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "DIAMETER" & "'" & Text2.Text & "'"
* d# _/ ]. I' k, B5 T: k( xpm_send "EDIT TOOL" & "'" & Text1.Text & "'" & "NUMBER COMMANDFROMUI" & "'" & Text3.Text & "'"% ^  b+ B, I; `! e" j# T: x
pm_send "TOOL ACCEPT"
8 K0 E4 o' y$ ?7 cEnd If
; r! I- U- o6 F' k$ e0 F
1 b' R- r) s1 n+ ~这是代码。只是还没有做具体的修改。但IF语语法应该是对的。但不知道为什么。就是出现上面的提示。请版主帮忙解决下。
) d& z2 a' v) D' D6 [下面是附件:

刀具.rar

2.35 KB, 下载次数: 15

发表于 2010-12-12 21:47:36 | 显示全部楼层 来自: 中国浙江杭州
本帖最后由 hh749 于 2010-12-12 21:52 编辑 ' C- `( l/ C! L7 `  p
- T8 d) [* \+ @1 d, Y
第1句话
' l# u( h. G$ q/ ~" a# ^- V% Ppm_start (0)0 Z! S6 l# n% o7 f
改成
5 E" f4 X' p8 Q$ D  p' g4 fpml_start (False)            pm还是pml这个要看你类里面是怎么写的,你没把类发上来,我不知道你那里是怎么搞的,0到底改不改成FALSE那也要看你的类是怎么写的,类里面有这样一句话
% v/ w! O% H4 g3 j# v5 m* \Public Function pml_start1( _
. [5 ^8 l3 W) b- e  start_new As Boolean _
7 p7 V  g& D# v6 L" v) r% X) As Boolean
: \2 ]/ }- Z1 Z% g& e$ o, V4 D" V& Y  
. }; K' t5 U4 X7 M) F+ ]! v  On Error Resume Next
+ A) T/ e. \- \# z! S/ P. y8 l  G  Err.Clear" i. s, z% [8 H+ p
  pml_cancel_errors+ ?/ Q2 g5 r8 C1 J
  pml_start1 = False
, V* C5 _) M6 m  W+ D# R& H  If Not start_new Then3 a% h& H. K/ V: c. m$ G% s
    Set pml_server = GetObject(, "Pmill.Document")+ t/ M# _* }+ s; A
    If Err.Number Then+ n$ z' b  S4 k% x" U; F
      pml_debug_mess "pml_start:- Failed to connect to a running PowerMILL" _8 x. d8 T9 h0 F1 x) e- @+ ~5 C
                     & Chr(13) & "will try to create one"
6 K. [" x$ L3 v$ E. V5 L5 x      Err.Clear
0 o! t* ~* l" C) f      pmtemp = False
) V1 G3 U( b# ], ~1 q      
) t4 h8 z2 d% i. W6 j6 E    Else! l! C. l$ M; i  N
      pml_start1 = True- F" G$ _: a+ I( e2 a. i+ i
      pmtemp = True
. ~8 L3 X2 Q1 J: D$ u5 C    End If
5 M5 U5 g$ ^! t$ M. i* Z$ C End If
; m# j' d8 Z3 m9 U# d        
0 V$ G% v7 r& Q$ O2 s" {  qEnd Function
/ j" s+ }. M, d0 f. ?" l. v* f/ i! `: W( J

$ C2 l1 p% V( a这里的返回值是Boolean,所以只能用FALSE或TRUE
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表