QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Private Sub Form_Activate() ) X1 }' {  Q$ Z
dcam_window_ontop hwnd9 @. e9 y) D! ~; c- {2 j) I
Me.Hide % o4 z. p5 Y+ q
Dim output As String
: }% `3 I- r8 b; ypml_start (False)
: f1 ]; t7 V' K; Y  Fpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")! x2 l7 F- w) w% E
pml_send ("Delete All yes")
5 k- ?( c, Z+ ?) b  q3 `, SCommonDialog1.ShowOpen
$ T0 B4 h$ c& d* [9 l0 H" Vpml_send ("IMPORT MODEL FILEOPEN " & CommonDialog1.FileName)2 x8 a& `% e: D; C4 Y# C
Dim a, b As String
1 j- k- w4 \" F" K( Za = Mid(CommonDialog1.FileName, 1, Len(CommonDialog1.FileName) - 4)
8 R& K% F6 ?# ~" ]& Z, \! ZMkDir a '& "\" * m- p( q" }/ a' T; s" o* p
pml_send ("PROJECT SAVE AS PROJSELECTOR " & a)
+ c+ U7 z% l) w4 q- N, Bpml_send ("ROTATE TRANSFORM ISO1 VIEWMILL RESIZEVIEW") & X$ ?: b2 r$ j9 w- H) u
pml_send ("VIEW MODEL ; SHADE UNDERCUT") ( p) s- W' ^# q$ f: ^* ?
pml_send ("DELETE SCALE VIEWMILL RESIZEVIEW")
5 x! g4 C9 n9 G/ p, Lpml_send ("UNDRAW BLOCK")
  v' e3 G$ h$ s+ i/ ~pml_send ("KEEP BITMAP FILESAVE " & a & "\模型图片.JPG" & " yes")( \, C) c8 s& G. G% P
MsgBox "专案已经被保存到:" & a & "目录下!", vbInformation + vbOKOnly, "提示" . d3 }  ~; r: J0 v4 b
Unload Me3 E" |# N: c) ?& Z' T; f' y( H2 q
End Sub
: ~6 Z* D  ~, E/ \* f" H2 }( h- x" O" ?# Z) b& |7 a$ C6 T
0 B! O4 s) m; s: f! f
上面的代码是完整的自动拍照外挂VB源代码,不过我是用模组编程,而不是用控件编程的(其实模组编程也好,控件编程也好,方法都是一样的 ),这段代码只是给大家学习下
( F+ V" [1 Q8 Q% D* k5 s+ G- o/ k9 D$ O
[ 本帖最后由 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: ! @3 t& y1 p; X) b, j
虽然看不太懂,但还是要顶一下
发表于 2008-11-30 15:15:41 | 显示全部楼层 来自: 中国广东佛山
看不懂.  跟着hh749 学
发表于 2008-11-30 15:19:27 | 显示全部楼层 来自: 中国广东东莞
我也把前段时间的右键打开pmill代码分享给大家(其实很简单的) $ n, I9 z6 ?& v2 p# v/ P3 F
PM.Connect psStartNewPowerMILL(打开一新pmill 窗口)
& \2 c: O) H2 t- kPM.Visible = True            
9 \2 J, Y/ B, IPM.Execute "PROJECT OPEN "    (执行pmill命令找开此专案): P+ k' Y' h  I# U( g
PM.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 | 显示全部楼层 来自: 中国安徽宣城
我就是想学习这东西
: [' W# w: P- K3 T- t可是vb基础低呀1 p! @( t4 ?" l- K$ M% r
先顶再说
 楼主| 发表于 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的技巧经验没有
: c6 `/ E9 A3 N望楼主多发点这方面的
 楼主| 发表于 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
3 k! c) L+ q$ s9 C: B3 DPrivate Sub Form_Activate()
/ ^# O) B8 w- u* p  Y" ~" Wdcam_window_ontop hwnd
; L* k0 b9 N0 U! h7 U' m) rMe.Hide
( E$ L' V" m, C& C; P1 Z; p. zDim output As String
6 m+ A  ~' ^+ J! D! g; v) M: spml_start (False) # T% D1 D( W( h1 Y$ N
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT"): ?+ N! N/ P, V7 _' q
pml_send ("Delete All yes")
$ ~9 @5 N- I9 }* x9 f& gCommonDi ...
* U3 S* G  ?! `7 E9 K
终于看懂什么意思了`````````
/ B; t: Q  h/ D$ @- E/ j/ C谢谢程序啊大的无私奉献ao
头像被屏蔽
发表于 2009-7-20 23:08:53 | 显示全部楼层 来自: 中国河南洛阳
提示: 作者被禁止或删除 内容自动屏蔽
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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