點做图-宏的應用

sdsae

   经典图书

學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, 下载次数: 82)

2013-5-26 21:48 上传

点击文件名下载附件
下载积分: 金币 -1

[2012版]VBA宏

shaozqi

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

royyao

   经典图书

神奇 ....

man001

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

swg

   经典案例图书

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

anson

SolidWorks机械工程师论坛
如上參考看看

hem10

   经典案例图书

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

changyingao

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

Д噵墓锗━

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

sl9x7i7d22

   经典图书

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

xiongfeng

如下是把 "平面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", &quotLANE", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "平面A")
End Sub

zhq8008

明白了，谢谢ryouss大师指点

robot2003

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