點做图-宏的應用

ryouss

學VBA宏的基本教材
' ******************************************************************************
' macro recorded on 05/26/13 by scliang
; A- }6 I% y+ }* [9 h6 l'
' 操作說明
- X% `1 f5 k' c4 ~8 p! e& `'
; v: G. e  G0 x' 1. 開SW檔,選前基準面(右或上皆可),進入草圖編輯,執行本程式.
' 2. 在 Option tips 對話表按 "Yes" 鍵,作"滿天星",在 X座標-50,Y座標-50到X座標50,Y座標50 ,之範圍內隨機作畫鍵入數量的 "點".
. o2 I) R" P1 J. A/ O1 o' 3. 在 Option tips 對話表按 "No" 鍵,作畫太極圖.
9 J" d) G* Z' p( T/ u'
' ******************************************************************************
Dim swApp As Object
) ?/ b2 Y7 I  ~* p+ c* H$ R( a% g
4 d. ~" E2 I- [' _. k. a6 C% ~Dim Part As Object
7 r& V) G' \' L3 fDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
, V' e1 u# Q8 x) }7 p    Dim skPoint As Object
  e1 Z) [" z& c) S# h+ Ipi = 3.141592654
continue:
  boolstatus = Part.Extension.SketchBoxSelect("-0.06", "-0.06", "0.000000", "0.06", "0.06", "0.000000") '
  Part.EditDelete
  c = MsgBox("Yes-->The stars in the sky,No-->Tai Chi picture", vbYesNoCancel, "Option tipe") '選擇"滿天星"或是"太極圖"
  Select Case c
" w2 Y' i! h1 M* s! Z) O" V  Case 6
( h" `0 c8 G! m: P3 |7 J    point_number = InputBox("Key in the number", "Key in the number of tips", 100) '鍵入作圖點的數量
' x. J! V% @% Q" I    For i = 1 To point_number
        X = Int((Rnd() * 50 + 1) - (Rnd() * 50 + 1)) / 1000
        Y = Int((Rnd() * 50 + 1) - (Rnd() * 50 + 1)) / 1000
        Set skPoint = Part.SketchManager.CreatePoint(X, Y, 0#) '點作圖
    Next
  Case 7
/ v7 B4 G- }$ G% w& ?7 t3 k    For j = 0 To 360 Step 2
  V4 B: n7 v$ e! O* z  |* x. A        X = (j / 6 - 30) / 1000
        Y = 12 * Sin(j * pi / 180) / 1000
        Set skPoint = Part.SketchManager.CreatePoint(X, Y, 0#)
  ~6 W6 p3 }! P, V( }* a        X = 30 * Cos(j * pi / 180) / 1000
        Y = 30 * Sin(j * pi / 180) / 1000
        Set skPoint = Part.SketchManager.CreatePoint(X, Y, 0#)
9 Z# l6 x$ y8 w2 h, \, ?/ x9 T     Next j
  End Select
/ [7 T4 O+ a7 V: {0 D; t0 N    Msg = "Do you want to continue ?"    ' 定義訊息。
    Style = vbYesNo ' 定義按鈕。
    Title = "MsgBox Demonstration"    ' 定義標題。
    Response = MsgBox(Msg, Style, Title)
  f2 E$ A$ v( F$ m    If Response = vbYes Then GoTo continue   ' 若使用者按下 [是],就繼續執行。
End Sub
; s3 v! f/ R0 m7 I( n


Point.rar (9.81 KB, 下载次数: 25)

2013-5-26 21:46 上传

点击文件名下载附件 [2012版]VBA宏
  p5 [$ V) _1 h* U2 c

/ s+ B7 h4 w) O

gt.adan

梁兄真的佛心來的呀~~我等api文盲得好好拜讀研究~
謝謝您的無私分享。

杀苏

神奇 ....

sandmake

支持一下。。。。。。。。。。。。

lider2010

想问下楼主，我想用宏来完成新建一个基准面并且命名成我想要的名字，不知道怎么完成，
主要是建好基准面后，刚刚新建出来的基准面不是选中状态，所以不能紧接着改名字，不知道在宏里怎么选中刚刚建好的基准面，希望楼主指点下

ryouss

lider2010 发表于 2013-6-7 16:06 static/image/common/back.gif
0 E' g" x2 {2 R$ Y  l4 [2 F8 e9 ~想问下楼主，我想用宏来完成新建一个基准面并且命名成我想要的名字，不知道怎么完成，
主要是建好基准面后 ...

1 O* g* k" Z9 e) \http://bbs.icax.org/thread-872085-1-1.html
如上參考看看

lider2010

ryouss 发表于 2013-6-7 23:58 static/image/common/back.gif
http://bbs.icax.org/thread-872085-1-1.html
4 f: C3 J9 f3 M) i, u. N6 `如上參考看看

谢谢大师，选中默认的那3个基准面我会的，因为已经知道他们的名字，也许我的问题表达的不是太清楚，
比如我想把上视基准面偏移50mm，生成一个新的基准面，并且把这个新的基准面名字改为“面1”，用下图中的语句，在改基准面名称语句的前面，我就不知道怎么选中想要改名的基准面了，
因为在InsertRefPlane语句后生成的基准面的默认名称是不知道的，有可能是“基准面3”，也有可能是“基准面5”，不知道在这种情况下怎么才能选中？

ryouss

lider2010 发表于 2013-6-8 12:11 static/image/common/back.gif
6 F: b- y* ~; }5 G8 e谢谢大师，选中默认的那3个基准面我会的，因为已经知道他们的名字，也许我的问题表达的不是太清楚，
比如 ...

試試如下:

1. XXXXX  對應剛建好的基準面名稱
2. 紅色框裡的 "False" 改為 "True"
1 C, W1 x; U0 b0 U  A9 i

lider2010

ryouss 发表于 2013-6-8 15:17 static/image/common/back.gif
& ^" Q$ w  B' }) C' }試試如下:
8 N  J8 p% I) o- L  z2 |, X
. c3 [- u5 |2 n. q* D/ S; _4 ^: f; L1. XXXXX  對應剛建好的基準面名稱

关键是在执行到红色框这条语句的时候怎么知道刚建好的基准面名称是什么呢？所以XXXXX那里不知道怎么写了。
3 z4 Q. w2 A2 O$ B' j我觉得是不是要在这条语句前面加一个获取刚建好基准面名称的语句，再把获得的名称给到XXXXX位置，但是不知道怎么写获取刚刚建好的基准面名称的语句

ryouss

是否可以把"前面加一个获取刚建好基准面名称"先給個"自定義名稱",之後不就可以依名稱作選取了.

ryouss

lider2010 发表于 2013-6-8 15:50 static/image/common/back.gif
( D9 [" K  t% G0 e关键是在执行到红色框这条语句的时候怎么知道刚建好的基准面名称是什么呢？所以XXXXX那里不知道怎么写了。 ...

如下是把 "平面X" 改為  "平面A"

sub main()
8 P' ]7 E8 f0 g8 ]: O9 iDim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Sub main()
( X, Z( J4 `  |# x( h( M+ m+ cSet swApp = Application.SldWorks
) P' a/ ?: P" B7 Z) J: D) cSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平面X", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
0 k3 J; S! Z* }boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "平面A")
- b$ {! Z) Z* J- d% kEnd Sub

lider2010

ryouss 发表于 2013-6-8 21:14 static/image/common/back.gif
: H5 |) G+ ?3 i: D* l( h如下是把 "平面X" 改為  "平面A"
: B& G! Z. r- v5 K4 z9 Z
8 S( y/ f8 }3 \% Y. u! W2 qsub main()

明白了，谢谢ryouss大师指点

22553711

受梁兄感染，也来玩这个“点作图”，去发现宏作出来的点并不精准，很疑惑
  l/ j4 g# A8 B! x! c