我的第二个外挂，自动取模型名存盘

清水88 · 发表于 2010-6-21 17:51:35

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

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

x

特点：取模型的名字存盘，可以挂在右键上，

注意，路径不可以有空格，不可以有圆点，否则不能执行。有用得到的就下吧。
本人VB入门级水平，各位见笑了。

外挂，

自动取模型名存盘.rar (3.52 KB, 下载次数: 460)

air8250 · 发表于 2010-6-21 19:26:24

怎么还是需要控件注册啊，现在不是有现成的类模块了吗

lengqianao · 发表于 2010-6-21 23:43:17

谢谢分享
支持一下

傲世浮云 · 发表于 2010-6-22 00:17:04

楼主能不能分享一下源码

清水88 · 发表于 2010-6-22 08:20:38

怎么还是需要控件注册啊，现在不是有现成的类模块了吗
3 K3 W J( I, s, F2 Z8 _* cair8250 发表于 2010-6-21 19:26 http://www.3dportal.cn/discuz/images/common/back.gif

类模块没有用过，继续学习。

清水88 · 发表于 2010-6-22 08:24:07

楼主能不能分享一下源码2 I9 |9 }/ {2 C
傲世浮云发表于 2010-6-22 00:17 http://www.3dportal.cn/discuz/images/common/back.gif

源码很简单，
Private Sub Form_Activate()
Me.Hide
PowerMILL31.Connect
Dim aa As String
Dim bb() As String
Dim cc As String
Dim dd() As String
Dim ee() As String
Dim ff() As String
PowerMILL31.Execute ("dialogs message off")
PowerMILL31.Execute ("dialogs error off")
aa = PowerMILL31.ExecuteEx("print entity model")
bb = Split(aa, "'")
cc = PowerMILL31.ExecuteEx("print entity parameters model " & bb(1))
dd = Split(cc, vbCrLf)
ee = Split(dd(3), " ")
ff = Split(ee(4), ".")
PowerMILL31.Execute ("PROJECT SAVE AS PROJSELECTOR " & ff(0))
PowerMILL31.Execute ("dialogs message on")
PowerMILL31.Execute ("dialogs error on")
PowerMILL31.Execute ("UNDRAW AXES")
PowerMILL31.Execute ("ROTATE TRANSFORM TOP VIEWMILL RESIZEVIEW")
End
End Sub

傲世浮云 · 发表于 2010-6-22 12:21:02

研究一下,谢谢楼主

nana93334178 · 发表于 2010-6-22 18:46:14

下了就要顶起来。。。

freeceke · 发表于 2010-6-28 22:02:01

本帖最后由 freeceke 于 2010-6-28 22:04 编辑

我喜欢这样的小外挂！还有，你能做多两个小外挂吗？就是1:刀路按数字命名；2:刀路按数字命名。。程式运行时没有显示，运行此外挂就自动按数字命名刀路或者边界了！JIMMY版主的外挂也有此功能，但我觉得做两个分散的外挂方便一些！

dongzi52 · 发表于 2010-6-29 09:36:50

楼主的外挂如果能选路径就好了！

清水88 · 发表于 2010-6-29 10:06:15

我喜欢这样的小外挂！还有，你能做多两个小外挂吗？就是1:刀路按数字命名；2:刀路按数字命名。。程式运行时没有显示，运行此外挂就自动按数字命名刀路或者边界了！JIMMY版主的外挂也有此功能，但我觉得做两个分散的外 ...5 }: v3 ^4 s3 q" _+ p& c" s
freeceke 发表于 2010-6-28 22:02 http://www.3dportal.cn/discuz/images/common/back.gif

在这里，希望能用得上。http://www.3dportal.cn/discuz/viewthread.php?tid=922250&extra=page%3D1

清水88 · 发表于 2010-6-29 10:17:10

本帖最后由清水88 于 2010-6-29 11:56 编辑

楼主的外挂如果能选路径就好了！
+ y. {5 L+ g E7 r! Pdongzi52 发表于 2010-6-29 09:36 http://www.3dportal.cn/discuz/images/common/back.gif

这样的外挂，网上很多，我也共享一个我写的吧。

读入存盘.rar (3.76 KB, 下载次数: 138)

dongzi52 · 发表于 2010-6-30 09:44:45

12楼朋友：你的外挂只能读不能自动存我想要的路径。

清水88 · 发表于 2010-6-30 12:29:27

12楼朋友：你的外挂只能读不能自动存我想要的路径。
" Z. B, L7 K/ T% q( u! wdongzi52 发表于 2010-6-30 09:44 http://www.3dportal.cn/discuz/images/common/back.gif

你想存到哪个路径？我给你改。不过每次都是固定的，如果没有这个路径，将自动创建。

zz520 · 发表于 2010-6-30 17:14:46

看看，正想学呢

jkliu557105 · 发表于 2010-6-30 23:11:57

看看，正想学呢

b68951352 · 发表于 2010-7-3 18:08:01

中文名不行？好像

清水88 · 发表于 2010-7-3 18:59:59

中文名不行？好像
9 ?: V6 }( j/ L( C: Fb68951352 发表于 2010-7-3 18:08 http://www.3dportal.cn/discuz/images/common/back.gif

当然不行啊！你不用我的外挂，你能把中文名倒进来吗？那我就服你了！

qinking · 发表于 2010-7-12 16:37:16

请问楼主，如果我想在前面加二三个字，如“前模-”或“铜公-”那又怎么搞，在哪里加？可以吗

190008150 · 发表于 2010-10-10 21:49:21

好东西
想学怎么做的出来的

ljg181818 · 发表于 2010-10-12 07:37:08

好东西，支持一下

wxx7596232 · 发表于 2010-10-30 23:45:56

好东西，支持一下

zwz9 · 发表于 2010-10-31 07:11:00

看看，正想学呢

hdh660 · 发表于 2010-10-31 16:02:02

正在学当中老大吗能提供源代码吗

wxx7596232 · 发表于 2010-11-5 21:09:17

老大,有没有宏啊,能不能发宏上来看看啊!!!!!!!

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

通知

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

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

评分

评分

浏览过的版块