标题: 連結excel資料的點作图-宏的應用 [打印本页] 作者: zxy2008 时间: 2013-5-27 15:37 标题: 連結excel資料的點作图-宏的應用 學vba宏的基本教材
' ******************************************************************************
' macro recorded on 05/27/13 by lsc
'
' 操作說明
'
' 1. 開 excel sin_circle.xls 檔
' 2. 開SW檔,選前基準面(右或上皆可),進入草圖編輯,執行本程式.
'
' ******************************************************************************
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
'*** Attach to active Excel object
Set xl = GetObject(, "Excel.Application")
'*** Get active sheet in Excel
Set xls = xl.ActiveSheet
'*** Get value in Excel cell
boolstatus = Part.Extension.SketchBoxSelect("-0.4", "-0.4", "0.000000", "0.4", "0.4", "0.000000") '
Part.EditDelete
For i = 9 To 189
X = xls.Cells(i, 3)
Y = xls.Cells(i, 2)
Set skPoint = Part.SketchManager.CreatePoint(X / 1000, Y / 1000, 0#) '點作圖 sin
X = xls.Cells(i, 5)
Y = xls.Cells(i, 6)
Set skPoint = Part.SketchManager.CreatePoint(X / 1000, Y / 1000, 0#) '點作圖 circle
Next
End Sub
excel檔
vba程式檔作者: chris 时间: 2013-5-27 15:42
沙发，学习。作者: sc2008 时间: 2013-5-27 15:47
学习啦，不过不是我要的效果，谢谢啦