设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 1494|回复: 16
收起左侧

[分享] 捉迷藏 附檔

[复制链接]
ryouss
发表于 2015-1-3 19:26:47 | 显示全部楼层 |阅读模式 来自： 中国浙江嘉兴

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
' x% b7 r9 b% J; u* ]2 @3 F' A- C7 q3 ?# B$ |1 b4 g
簡單VBA練習
* A$ v/ U  c5 [9 U三球限制在方框,並僅可做相切碰觸,不可相互交集.
, L- C% L# [( P+ m" @& p/ r1 Z! r7 b# ?; J  g  k% k' Z* B
http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1" B# v; }1 X( r6 L! b  {
思維來源參考如上, K* x' H. E5 q/ ?7 f! @
8 L* i7 \! ^' d/ t+ B0 t) z
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑 4 m5 K  V1 Q2 w0 N- S
3 r3 e/ S/ x9 ~) n6 a" Y1 U
分享原檔,有興趣練練VBA了
0 s4 ?. W  n# e編程應該可以再簡化
- b$ G  X+ s3 K因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了., \, p; L0 n5 D, S6 O
簡介:: L/ Y' f& A" w, Y% K
    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
; \1 Y7 _$ B- p: P! c6 e$ x& u1 R如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???1 w& B9 y  S7 G1 Q+ j
所以就越想越有味道了!
/ }2 h8 o, y( J  L& s6 [    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是." b$ T/ F% {: N' I  L
    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,
6 X2 m/ B+ [. o7 P但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.  M3 }+ }8 R. N  N9 i
- x( B& |, n9 R+ o; K
; X7 D8 U! D. m; s0 ^
1.png $ C  \+ b1 l9 B  c7 N& F' v. J

8 H' F% U, m9 M 2.png / [- o5 `: Y6 V( W$ C$ q
0 j5 W6 q1 H& o3 |
Random movement_X150104.rar (474.82 KB, 下载次数: 18)

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3 奖

查看全部评分

回复 支持 反对

举报

keilei001
发表于 2015-1-4 19:52:20 | 显示全部楼层 来自： 中国广东肇庆
梁大厉害，如果让我把那一大片的代码抄一遍，我保证绝对会抄错。

点评

ryouss
拜託幫忙測試 是否能在簡版操作  发表于 2015-1-4 19:55
回复 支持 反对

举报

keilei001
发表于 2015-1-4 21:03:16 | 显示全部楼层 来自： 中国广东肇庆
试了一下，在2012简体版中不能运行，文字也有乱码。
. h" x. N4 F% w( ~! j
+ ~4 F# M  M: x& D2 [4 h3 |+ z5 B Snap1.jpg
3 [; w% k( b7 k/ |
4 g+ H4 T: r6 f9 v" |$ {2 Y6 ] Snap2.jpg , `# u  Q; T! k5 o
1 B5 k. Y" N9 A2 v% _
Snap3.jpg
. Z7 J# I. l7 ^' y) Q
8 F$ _0 x3 n' h1 L+ c7 @7 h

点评

ryouss
那些亂碼皆是 "註解" 而已不礙事, 記住在 ' 之後的文字 宏 是不執行的, 是何問題 再想想了  发表于 2015-1-4 21:12
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif
4 g* Z$ U9 h5 o# `: [试了一下，在2012简体版中不能运行，文字也有乱码。

# c' j. k$ f2 d5 e- M如圖試試了
) Y' S, q6 b. ^3 h; [3 l: X& \( E" O" B! t7 @$ ?
HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
4 Y/ z, Y0 ~/ P  ?# ^3 R) `$ ^" f9 N
看了下，梁大图中都是默认打勾的。
( {$ T# O; ~  U& ]0 U! Q7 c/ o+ O5 E8 D* U$ j
Snap2.jpg
- a% ~# }$ t4 u/ s- F+ G; T3 ?
# @" Q3 \) I: ?0 B5 F Snap3.jpg

点评

ryouss
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!  发表于 2015-1-4 22:39
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
- V: ^2 |$ {( g# r5 ?  T
$ m) u% m+ x5 y' J6 f4 G真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!2 o4 E& E# E+ N% ~2 i" `) q! H
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
2 e. H4 F9 u% m* H7 d我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
% z5 v- t: {! u建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif% k5 j- ~) ]$ h* w
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。8 Z# `+ w7 q9 b: V9 A  c% b* K
我一台电脑有几个硬盘，分别装了不同的系统，想 ...

( z* D3 k% J- z; @2 I另看看結合是否正常9 y6 K1 L+ f; N6 W- z1 s& ^
" b( P5 I6 [2 P+ ?4 c6 p* z
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
' c' C* ~4 k; z* ~2 n
0 L/ g9 j) _) l5 q( O$ j哎呀，我误导梁大了，实在汗颜。) A1 @' z1 F4 e+ Q: P- H/ Q
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。% H  [. V8 U( Z
0000.gif

点评

ryouss
12# 附簡繁字轉換  发表于 2015-1-6 19:52
ryouss
表示PC計算太強了  发表于 2015-1-5 00:27
ryouss
非有4个球在乱窜,實際是3球,是人眼視覺問題, 另不用執行鍵 按 F8 鍵可逐步跑程式 試試長按 或 短按  发表于 2015-1-5 00:25
回复 支持 反对

举报

qiminger
发表于 2015-1-6 08:20:16 | 显示全部楼层 来自： 中国辽宁抚顺
本帖最后由 qiminger 于 2015-1-6 10:43 编辑 6 F$ W6 K& B, ~* [8 j& }
* W+ _, j6 u+ ?" ~% G- R% S
非常强大的VBA，2013间体版测试一次通过，谢谢了~~. _3 \' _7 r( }( \% R" ?, q
8 r. W- L. v+ o6 ^
ddd.gif
( \! X% s0 ?! l* s, C8 P% [2 ]5 h

点评

ryouss
12# 附簡繁字轉換  发表于 2015-1-6 19:52
ryouss
可否告訴哪個版本試的  发表于 2015-1-6 08:26
ryouss
謝謝 qiminger 大大的測試  发表于 2015-1-6 08:25
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-6 19:51:44 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-6 19:56 编辑
  Z6 @! h8 L4 u" @7 H+ E
" P! [9 Y( i! ^$ V; @順便提供簡繁體字之轉換,
5 M7 y1 Z0 [% Y' }如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,6 V3 U; a  X7 m# x$ a
測試簡版的宏,是先用這軟件做轉換再執行的.2 e$ ~1 w% {( Z; b% _( ?: F
操作詳看裡面的說明
2 j8 Y, ?- L. r7 M4 b3 j
1 }7 s  [3 w3 r" m. s1 P/ O convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。* u* X( D3 e) e# ~- F* |" ]0 F9 @
我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

ryouss
但能肯定的是,有這樣的思想學習態度是學不好什麼的!  发表于 2015-1-7 07:03
ryouss
也就是自找麻煩,這樣行嗎!  发表于 2015-1-6 21:41
ryouss
沒事自己找碴的  发表于 2015-1-6 21:40
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-6 21:42:55 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
) y! @# b: B# T/ i& k1 C* J# C: Y 也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-7 07:03:55 | 显示全部楼层 来自： 中国浙江嘉兴
但能肯定的是有這樣的思想學習態度是學不好什麼的!
回复 支持 反对

举报

qiminger
发表于 2015-1-7 08:11:05 | 显示全部楼层 来自： 中国辽宁抚顺
ryouss 发表于 2015-1-6 19:51 static/image/common/back.gif6 v, @( G7 y# |. T0 }
順便提供簡繁體字之轉換,4 J0 a8 B% @' V2 g" l" F! y
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,$ ]9 J6 T8 I5 y, T" W
測試簡版的宏 ...
0 u, p9 ?& m5 l# K" @
谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

kungli03
发表于 2015-1-19 11:20:01 | 显示全部楼层 来自： 中国台湾
虽然看不懂, 还是谢谢分享

点评

ryouss
不用宏也行,可思考裝配件的限制結合.  发表于 2015-1-19 11:25
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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