QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 4822|回复: 19
收起左侧

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

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

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

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

x
Private Sub Form_Activate()
: W9 ?! d( R) `! R: l2 M, `8 q. |dcam_window_ontop hwnd1 I$ Y* e. i% |; U7 ~( z# |* h# ]
Me.Hide
( }: c8 m7 W. QDim output As String ! }: e' M6 t4 ~7 @: |9 r& e# B
pml_start (False) $ [$ X+ Z/ V# {! S
pml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT")
! g/ U$ p$ V" |. J; Ppml_send ("Delete All yes") 8 F5 B3 W, ?9 Y# _! K. b
CommonDialog1.ShowOpen 8 t; \7 f. g8 d8 a8 A% D4 b
pml_send ("IMPORT MODEL FILEOPEN " & CommonDialog1.FileName)8 ~+ z, I2 F4 W4 O7 U" i* A- B
Dim a, b As String ; W; M5 E  b/ w& |. B
a = Mid(CommonDialog1.FileName, 1, Len(CommonDialog1.FileName) - 4)
8 D) X3 N4 ]% TMkDir a '& "\"
5 \( }/ O! ?3 u: U. spml_send ("PROJECT SAVE AS PROJSELECTOR " & a) - y. \2 {+ A8 t( `1 _! ^
pml_send ("ROTATE TRANSFORM ISO1 VIEWMILL RESIZEVIEW")
4 j6 ?& U' C( l3 p  Npml_send ("VIEW MODEL ; SHADE UNDERCUT")
) {" X3 S0 e' ipml_send ("DELETE SCALE VIEWMILL RESIZEVIEW")* I  [. k6 f: s6 U' y
pml_send ("UNDRAW BLOCK")
' d2 B; w5 p9 p8 kpml_send ("KEEP BITMAP FILESAVE " & a & "\模型图片.JPG" & " yes")
2 {3 h5 i& `7 K4 v( g MsgBox "专案已经被保存到:" & a & "目录下!", vbInformation + vbOKOnly, "提示"
9 ]" r8 V) K8 aUnload Me5 j: M1 T( a* U# Y9 c
End Sub: n( d& o. F* z7 O6 a: k4 s

1 Z0 |4 a/ S. i# g3 v9 q( m8 h2 `' S7 k" c5 M. y$ b4 z
上面的代码是完整的自动拍照外挂VB源代码,不过我是用模组编程,而不是用控件编程的(其实模组编程也好,控件编程也好,方法都是一样的 ),这段代码只是给大家学习下4 ?) R3 ^- L7 e' u

8 W2 }1 d7 _) Z[ 本帖最后由 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:
" F, O6 i3 H  _9 z4 _7 S9 D% [虽然看不太懂,但还是要顶一下
发表于 2008-11-30 15:15:41 | 显示全部楼层 来自: 中国广东佛山
看不懂.  跟着hh749 学
发表于 2008-11-30 15:19:27 | 显示全部楼层 来自: 中国广东东莞
我也把前段时间的右键打开pmill代码分享给大家(其实很简单的)   f( j# n' ?/ V: T
PM.Connect psStartNewPowerMILL(打开一新pmill 窗口)
: M- D" Q, r# T8 |. M+ qPM.Visible = True            
+ L: y$ d* c  T$ n- n: H1 GPM.Execute "PROJECT OPEN "    (执行pmill命令找开此专案)
. |6 _$ L. T( _9 P8 b: w8 rPM.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 | 显示全部楼层 来自: 中国安徽宣城
我就是想学习这东西+ h" r6 \/ F# E) P+ T
可是vb基础低呀. t) ?" Z3 A& [3 x; T" E. j
先顶再说
 楼主| 发表于 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的技巧经验没有  I4 }) t4 W7 ~7 K" T0 Q7 w
望楼主多发点这方面的
 楼主| 发表于 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
; F1 R. h- ]8 o2 [5 ~8 mPrivate Sub Form_Activate()
- `4 m8 n0 A: p3 ^) C* odcam_window_ontop hwnd
# d) B) ^& Q+ t' NMe.Hide * I2 r2 D8 N; D( j- {
Dim output As String + W# S* P/ P# D8 k
pml_start (False)
. F! J" c: _. {0 J6 wpml_send ("ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT"), |" B7 E  ]) M  w  C5 Z
pml_send ("Delete All yes")
" b( b7 x2 W! i" o2 ZCommonDi ...
9 y- ^  a" i8 v7 G5 Z! _
终于看懂什么意思了`````````
3 F4 M% `9 G& {, J! {谢谢程序啊大的无私奉献ao
头像被屏蔽
发表于 2009-7-20 23:08:53 | 显示全部楼层 来自: 中国河南洛阳
提示: 作者被禁止或删除 内容自动屏蔽
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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