QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 8513|回复: 32
收起左侧

[原创] 我的第二个外挂,自动取模型名存盘

[复制链接]
发表于 2010-6-21 17:51:35 | 显示全部楼层 |阅读模式 来自: 中国福建福州

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

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

x
特点:取模型的名字存盘,可以挂在右键上, Snap3.jpg
5 B/ U% t& \# o+ ~8 W# c2 l6 x
( U) w6 X/ }; s* Z4 o
$ e: g. a- f8 y* |0 {0 f+ i, F  k$ T0 F$ p% s4 `/ Q

" t. I( ~% ~" s注意,路径不可以有空格,不可以有圆点,否则不能执行。有用得到的就下吧。; Y9 ?( ^9 r9 p1 X% W% H
本人VB入门级水平,各位见笑了。
% G  @' m( I' n! c/ G- T$ a0 l3 \* A- L, g- q* U
外挂, 自动取模型名存盘.rar (3.52 KB, 下载次数: 460)

评分

参与人数 1三维币 +8 收起 理由
hh749 + 8 好资料,感谢您对论坛的支持!

查看全部评分

发表于 2010-6-21 19:26:24 | 显示全部楼层 来自: 中国河南鹤壁
怎么还是需要控件注册啊,现在不是有现成的类模块了吗
发表于 2010-6-21 23:43:17 | 显示全部楼层 来自: 中国河北保定
谢谢分享
4 r$ M. z8 P& P% n& i支持一下
发表于 2010-6-22 00:17:04 | 显示全部楼层 来自: 中国广东深圳
楼主能不能分享一下源码
 楼主| 发表于 2010-6-22 08:20:38 | 显示全部楼层 来自: 中国福建福州
怎么还是需要控件注册啊,现在不是有现成的类模块了吗
. V# Q0 ]$ q# Z6 t# S1 F$ }  Dair8250 发表于 2010-6-21 19:26 http://www.3dportal.cn/discuz/images/common/back.gif

# e$ U* [- l: ~1 R5 q3 o
& o+ {% V. J4 K  c& v& [, Z类模块没有用过,继续学习。
 楼主| 发表于 2010-6-22 08:24:07 | 显示全部楼层 来自: 中国福建福州
楼主能不能分享一下源码
9 {0 C8 V# V, ~傲世浮云 发表于 2010-6-22 00:17 http://www.3dportal.cn/discuz/images/common/back.gif

$ Y+ b2 w8 ^, i5 n) Q/ c$ O, s! w+ ]% U. [1 o% T' v) E' c
源码很简单," W) I: B/ S, X0 L- x/ a: |* P+ W
Private Sub Form_Activate()
/ F; P! x1 g& D: b; c6 A+ `Me.Hide
: y4 Q& @( Z4 c( [PowerMILL31.Connect" A) X* }" S9 ]2 Q+ e
Dim aa As String, S& E1 |' ~/ E5 i7 Y$ A+ `
Dim bb() As String
+ H, @( \& V$ \: w/ j( U; V; q% t6 ^Dim cc As String8 t# r8 I: g9 h$ O. Q+ M# b" E) ^
Dim dd() As String% F1 ]) e! `+ G* k1 V* }: F/ q$ j- @
Dim ee() As String$ b7 L/ |$ S& P( d
Dim ff() As String
1 w7 D3 z- G- `# G  XPowerMILL31.Execute ("dialogs message off")
( x( i+ O' ~& \8 e) QPowerMILL31.Execute ("dialogs error off")
+ i: S4 N2 h* {6 Q) E2 ^  Laa = PowerMILL31.ExecuteEx("print entity model")
: ^" {2 v$ {# n; Sbb = Split(aa, "'")! C& b1 f3 G) O% m
cc = PowerMILL31.ExecuteEx("print entity parameters model  " & bb(1)): Q; W, Y/ |% p2 {  G
dd = Split(cc, vbCrLf)
9 E7 H1 a' a9 s9 K3 o* Lee = Split(dd(3), " ")3 N0 w9 ?) g; c3 S. N
ff = Split(ee(4), ".")
. F5 d$ ~9 ?5 a5 D2 jPowerMILL31.Execute ("PROJECT SAVE AS PROJSELECTOR " & ff(0)): h0 d8 x, ?% w. k9 P; P
PowerMILL31.Execute ("dialogs message on")7 Z3 n/ p6 ~* h
PowerMILL31.Execute ("dialogs error on")
% ]  R8 h! b. U( zPowerMILL31.Execute ("UNDRAW AXES")' l$ `8 h4 |1 L" M! e( v4 u' L3 [
PowerMILL31.Execute ("ROTATE TRANSFORM TOP VIEWMILL RESIZEVIEW")
  ~+ n. u* Y; f8 @End
& [' ^# r. x2 Q8 }. AEnd Sub

评分

参与人数 1三维币 +8 收起 理由
hh749 + 8 好资料,感谢您对论坛的支持!

查看全部评分

发表于 2010-6-22 12:21:02 | 显示全部楼层 来自: 中国广东深圳
研究一下,谢谢楼主
发表于 2010-6-22 18:46:14 | 显示全部楼层 来自: 中国浙江嘉兴
下了就要顶起来。。。
发表于 2010-6-28 22:02:01 | 显示全部楼层 来自: 中国广东江门
本帖最后由 freeceke 于 2010-6-28 22:04 编辑
- J  ]+ w- S  F- }$ t# o/ Y
3 n' _4 j! E0 e9 N我喜欢这样的小外挂!还有,你能做多两个小外挂吗?就是1:刀路按数字命名;2:刀路按数字命名。。程式运行时没有显示,运行此外挂就自动按数字命名刀路或者边界了!JIMMY版主的外挂也有此功能,但我觉得做两个分散的外挂方便一些!
333.JPG
发表于 2010-6-29 09:36:50 | 显示全部楼层 来自: 中国黑龙江哈尔滨
楼主的外挂如果能选路径就好了!
 楼主| 发表于 2010-6-29 10:06:15 | 显示全部楼层 来自: 中国福建福州
我喜欢这样的小外挂!还有,你能做多两个小外挂吗?就是1:刀路按数字命名;2:刀路按数字命名。。程式运行时没有显示,运行此外挂就自动按数字命名刀路或者边界了!JIMMY版主的外挂也有此功能,但我觉得做两个分散的外 ...4 n5 Q8 n' x/ ?* b# D
freeceke 发表于 2010-6-28 22:02 http://www.3dportal.cn/discuz/images/common/back.gif
6 M; `; ^, s7 K1 l2 ?# h

  J' A6 w8 R0 F! z: C; _  p在这里,希望能用得上。http://www.3dportal.cn/discuz/viewthread.php?tid=922250&extra=page%3D1
 楼主| 发表于 2010-6-29 10:17:10 | 显示全部楼层 来自: 中国福建福州
本帖最后由 清水88 于 2010-6-29 11:56 编辑 % _% i2 Y/ v- @1 i
楼主的外挂如果能选路径就好了!7 x0 E& f* `! {0 \5 x
dongzi52 发表于 2010-6-29 09:36 http://www.3dportal.cn/discuz/images/common/back.gif
这样的外挂,网上很多,我也共享一个我写的吧。 读入存盘.rar (3.76 KB, 下载次数: 138)
发表于 2010-6-30 09:44:45 | 显示全部楼层 来自: 中国黑龙江哈尔滨
12楼朋友:你的外挂只能读不能自动存我想要的路径。
 楼主| 发表于 2010-6-30 12:29:27 | 显示全部楼层 来自: 中国福建福州
12楼朋友:你的外挂只能读不能自动存我想要的路径。
( G% e$ {7 c% k; C, Zdongzi52 发表于 2010-6-30 09:44 http://www.3dportal.cn/discuz/images/common/back.gif
你想存到哪个路径?我给你改。不过每次都是固定的,如果没有这个路径,将自动创建。
发表于 2010-6-30 17:14:46 | 显示全部楼层 来自: 中国广东深圳
看看,正想学呢
发表于 2010-6-30 23:11:57 | 显示全部楼层 来自: 中国福建福州
看看,正想学呢
发表于 2010-7-3 18:08:01 | 显示全部楼层 来自: 中国重庆
中文名不行?好像
 楼主| 发表于 2010-7-3 18:59:59 | 显示全部楼层 来自: 中国福建福州
中文名不行?好像. ?8 Q/ O8 `( |) R/ s) }4 n
b68951352 发表于 2010-7-3 18:08 http://www.3dportal.cn/discuz/images/common/back.gif
当然不行啊!你不用我的外挂,你能把中文名倒进来吗?那我就服你了!
发表于 2010-7-12 16:37:16 | 显示全部楼层 来自: 中国广东深圳
请问楼主,如果我想在前面加二三个字,如“前模-”或“铜公-”那又怎么搞,在哪里加?可以吗
发表于 2010-10-10 21:49:21 | 显示全部楼层 来自: 中国广东珠海
好东西
7 C. S  y. y8 `% e9 ~! U2 K- s想学怎么做的出来的
发表于 2010-10-12 07:37:08 | 显示全部楼层 来自: 中国广东广州
好东西,支持一下
发表于 2010-10-30 23:45:56 | 显示全部楼层 来自: 中国广东珠海
好东西,支持一下
发表于 2010-10-31 07:11:00 | 显示全部楼层 来自: 中国浙江台州
看看,正想学呢
发表于 2010-10-31 16:02:02 | 显示全部楼层 来自: 中国浙江杭州
正在学当中老大吗能提供源代码吗
发表于 2010-11-5 21:09:17 | 显示全部楼层 来自: 中国广东珠海
老大,有没有宏啊,能不能发宏上来看看啊!!!!!!!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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