點做图-宏的應用

ryouss · 发表于 2013-5-26 21:48:04

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

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

x

本帖最后由 ryouss 于 2013-5-26 21:49 编辑

學VBA宏的基本教材
' ******************************************************************************
' macro recorded on 05/26/13 by scliang
'
' 操作說明
'
' 1. 開SW檔,選前基準面(右或上皆可),進入草圖編輯,執行本程式.
' 2. 在 Option tips 對話表按 "Yes" 鍵,作"滿天星",在 X座標-50,Y座標-50到X座標50,Y座標50 ,之範圍內隨機作畫鍵入數量的 "點".
' 3. 在 Option tips 對話表按 "No" 鍵,作畫太極圖.
'
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim skPoint As Object
pi = 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
  Case 6
point_number = InputBox("Key in the number", "Key in the number of tips", 100) '鍵入作圖點的數量
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
For j = 0 To 360 Step 2
      X = (j / 6 - 30) / 1000
      Y = 12 * Sin(j * pi / 180) / 1000
      Set skPoint = Part.SketchManager.CreatePoint(X, Y, 0#)
      X = 30 * Cos(j * pi / 180) / 1000
      Y = 30 * Sin(j * pi / 180) / 1000
      Set skPoint = Part.SketchManager.CreatePoint(X, Y, 0#)
   Next j
  End Select
Msg = "Do you want to continue ?" ' 定義訊息。
Style = vbYesNo ' 定義按鈕。
Title = "MsgBox Demonstration" ' 定義標題。
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then GoTo continue ' 若使用者按下 [是],就繼續執行。
End Sub

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

gt.adan · 发表于 2013-5-26 22:01:25

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

杀苏 · 发表于 2013-6-7 13:17:55

神奇 ....

sandmake · 发表于 2013-6-7 13:21:19

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

lider2010 · 发表于 2013-6-7 16:06:40

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

ryouss · 发表于 2013-6-7 23:58:53

lider2010 发表于 2013-6-7 16:06 static/image/common/back.gif$ J3 ]* Y* s0 T
想问下楼主，我想用宏来完成新建一个基准面并且命名成我想要的名字，不知道怎么完成，* x3 w* d# d7 X: @3 S
主要是建好基准面后 ...

http://bbs.icax.org/thread-872085-1-1.html
如上參考看看

lider2010 · 发表于 2013-6-8 12:11:17

ryouss 发表于 2013-6-7 23:58 static/image/common/back.gif
1 u. O8 d; {9 Xhttp://bbs.icax.org/thread-872085-1-1.html3 u/ }" a9 o9 c* R
如上參考看看

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

ryouss · 发表于 2013-6-8 15:17:38

lider2010 发表于 2013-6-8 12:11 static/image/common/back.gif9 V) S8 X: w+ s1 d C
谢谢大师，选中默认的那3个基准面我会的，因为已经知道他们的名字，也许我的问题表达的不是太清楚，
4 Z2 r |8 }& m4 E! B2 {5 B比如 ...

試試如下:

1. XXXXX 對應剛建好的基準面名稱
2. 紅色框裡的 "False" 改為 "True"

lider2010 · 发表于 2013-6-8 15:50:26

ryouss 发表于 2013-6-8 15:17 static/image/common/back.gif
% A  i; v% |( `* D  O# j試試如下:
8 W  W6 W4 O0 t9 G
5 g7 A/ M) C6 W- c6 @6 J1. XXXXX  對應剛建好的基準面名稱

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

ryouss · 发表于 2013-6-8 17:45:11

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

ryouss · 发表于 2013-6-8 21:14:35

本帖最后由 ryouss 于 2013-6-9 07:42 编辑

lider2010 发表于 2013-6-8 15:50 static/image/common/back.gif5 H* D% q, z* b% @! n/ N$ n
关键是在执行到红色框这条语句的时候怎么知道刚建好的基准面名称是什么呢？所以XXXXX那里不知道怎么写了。 ...

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

sub main()
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平面X", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "平面A")
End Sub

lider2010 · 发表于 2013-6-9 08:48:07

ryouss 发表于 2013-6-8 21:14 static/image/common/back.gif4 c0 _; C; n2 q, k& w% |( G
如下是把 "平面X" 改為 "平面A"
( ~! O) v, `6 E7 w$ }
- I3 n9 n7 K& I* Bsub main()

明白了，谢谢ryouss大师指点

22553711 · 发表于 2013-6-26 14:22:19

受梁兄感染，也来玩这个“点作图”，去发现宏作出来的点并不精准，很疑惑
零件3.gif

		自动登录	找回密码
密码			注册

通知

[分享] 點做图-宏的應用

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

评分