QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
8天前
查看: 4799|回复: 19
收起左侧

[分享] 今天当上版主高兴,发段以前写的自动拍照的代码给大家学习下

[复制链接]
发表于 2008-11-30 13:53:54 | 显示全部楼层 |阅读模式 来自: 中国浙江杭州

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

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

x
Private Sub Form_Activate() , c+ H. @7 \: P! G/ x
dcam_window_ontop hwnd
4 P5 o! B- q0 @, _) |Me.Hide / l# K- f" G% h5 P
Dim output As String
$ W5 c: `. X( P3 d" _pml_start (False)
5 J. i1 h/ r5 N9 Qpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")6 _1 o& @0 m. @! h5 u& D
pml_send ("Delete All yes")
* o* }; N: ^# ]CommonDialog1.ShowOpen
9 ~' Z$ v0 _& }5 w; apml_send ("IMPORT MODEL FILEOPEN " & CommonDialog1.FileName)
) m& S: C( ?7 g& ~/ O) s Dim a, b As String
' X* z. Z4 I0 e* E) x/ X7 ?' wa = Mid(CommonDialog1.FileName, 1, Len(CommonDialog1.FileName) - 4) * n+ z+ g9 h2 h3 j
MkDir a '& "\"
" Z2 l3 Y: G% C  b/ ]5 R7 B% [8 n2 Vpml_send ("PROJECT SAVE AS PROJSELECTOR " & a)
4 Z% g; T. ?1 r0 o2 p! B; Qpml_send ("ROTATE TRANSFORM ISO1 VIEWMILL RESIZEVIEW")
3 S& c4 K5 z# |' }8 P5 e1 xpml_send ("VIEW MODEL ; SHADE UNDERCUT") # E% L) t* L5 F1 `6 X4 O
pml_send ("DELETE SCALE VIEWMILL RESIZEVIEW")
; }' x8 W: G& j3 z! ]pml_send ("UNDRAW BLOCK") + ?$ |7 u9 E7 ?6 I' X- n( B
pml_send ("KEEP BITMAP FILESAVE " & a & "\模型图片.JPG" & " yes")5 n/ Q7 L5 E8 k
MsgBox "专案已经被保存到:" & a & "目录下!", vbInformation + vbOKOnly, "提示" * ^9 ]; N5 B' k9 o0 k
Unload Me
* M# ^; S& i9 w1 EEnd Sub) \5 u" e# m2 ]
' x8 i5 T% W) ]

+ i3 a, F7 A3 N上面的代码是完整的自动拍照外挂VB源代码,不过我是用模组编程,而不是用控件编程的(其实模组编程也好,控件编程也好,方法都是一样的 ),这段代码只是给大家学习下1 w: _7 H/ t+ ]. h5 q
: z! `+ |/ m# X0 l$ G3 a+ t
[ 本帖最后由 hh749 于 2008-11-30 14:23 编辑 ]

评分

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

查看全部评分

发表于 2008-11-30 13:55:51 | 显示全部楼层 来自: 中国广东深圳
)19*( )19*( 顶,强烈支持,哈哈,坐着板凳跟老大学VB

评分

参与人数 1三维币 +5 收起 理由
hh749 + 5 早到的鸟儿有虫吃,哈哈哈哈

查看全部评分

发表于 2008-11-30 14:51:27 | 显示全部楼层 来自: 中国浙江台州
顶贴顶到我腰痛。
发表于 2008-11-30 14:57:47 | 显示全部楼层 来自: 中国安徽蚌埠
:victory: & X' X9 L2 A4 a. e
虽然看不太懂,但还是要顶一下
发表于 2008-11-30 15:15:41 | 显示全部楼层 来自: 中国广东佛山
看不懂.  跟着hh749 学
发表于 2008-11-30 15:19:27 | 显示全部楼层 来自: 中国广东东莞
我也把前段时间的右键打开pmill代码分享给大家(其实很简单的)
! E3 D4 V/ T% [* Q; pPM.Connect psStartNewPowerMILL(打开一新pmill 窗口)
9 T/ O* W# r' _% |8 a- J5 a: t5 i8 mPM.Visible = True            
  w0 v6 G# v7 f+ TPM.Execute "PROJECT OPEN "    (执行pmill命令找开此专案)
8 m! L  u8 {2 _" OPM.Execute Command            ("command"就是你所右击目录的名称)

评分

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

查看全部评分

发表于 2008-11-30 16:56:16 | 显示全部楼层 来自: 中国河北邯郸
跟各位学习
发表于 2008-12-1 16:34:47 | 显示全部楼层 来自: 中国广东深圳
这两天偶天天对着代码,老大1楼的代码终于看懂了,再次感谢
发表于 2008-12-1 17:07:51 | 显示全部楼层 来自: 中国安徽宣城
我就是想学习这东西/ x! ~) g/ f' F, K- t5 W3 q
可是vb基础低呀
& k* T4 E) [4 a% q; d先顶再说
 楼主| 发表于 2008-12-1 20:14:55 | 显示全部楼层 来自: 中国浙江杭州
我已经够集体了,这行代码是写给有VB基础的人来看的,不懂VB的话抓紧时间学习下
发表于 2009-1-22 23:34:26 | 显示全部楼层 来自: 中国广东广州
搞这些有用吗~~懂得用宏就行啦~~
发表于 2009-1-23 13:21:31 | 显示全部楼层 来自: 中国重庆

支持

支持,跟着跟大家学习了!
发表于 2009-1-23 13:35:26 | 显示全部楼层 来自: 中国重庆
强烈支持,跟着跟大家学习下
发表于 2009-3-29 18:39:02 | 显示全部楼层 来自: 中国广东深圳
现在正向VB努力,望版主可以在代码后加个说明,这样让我们初学者容易上手点.谢谢
发表于 2009-3-30 13:15:23 | 显示全部楼层 来自: 中国上海
代码也看懂了 VB也基本会啦 可VB的技巧经验没有1 Z; J5 k# ^* l( _
望楼主多发点这方面的
 楼主| 发表于 2009-3-30 21:09:11 | 显示全部楼层 来自: 中国浙江杭州
技巧经验是靠长期积累的
发表于 2009-3-30 21:34:40 | 显示全部楼层 来自: 中国山东烟台
支持大老。。。正在学习中,,,可是英语太龌龊卡呀。。。
发表于 2009-4-13 11:08:10 | 显示全部楼层 来自: 中国广东深圳
看不懂也顶下,慢慢学习
发表于 2009-5-5 14:21:31 | 显示全部楼层 来自: 中国广东东莞
原帖由 hh749 于 2008-11-30 13:53 发表 http://www.3dportal.cn/discuz/images/common/back.gif
& a0 O' `7 R# D/ W3 |Private Sub Form_Activate() 5 ?  j5 r( y2 t! P
dcam_window_ontop hwnd
# X2 E% o/ U0 E; N; G# \2 z( QMe.Hide 2 t1 f" Z- b# k* e, Q1 c
Dim output As String
' g- |+ x& t( h7 Xpml_start (False) 3 |% K$ B; z6 R
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")( X& F! G8 z: Y$ _5 d- H; ]
pml_send ("Delete All yes")
/ P$ i& p1 v/ H1 m: XCommonDi ...
( L3 s0 B" j9 U1 W
终于看懂什么意思了`````````, L' R1 M5 \: T( X5 ^0 [
谢谢程序啊大的无私奉献ao
头像被屏蔽
发表于 2009-7-20 23:08:53 | 显示全部楼层 来自: 中国河南洛阳
提示: 作者被禁止或删除 内容自动屏蔽
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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