宣告
Dim x, y As Double
y = Val(Text1.Text)
x = y
修改
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, x, 0#, 0#)
執行結果
2012年3月30日 星期五
2012年3月16日 星期五
solidworks 二次開發
alt 鍵
solidwork
刪除
Sub main()
End Sub
修改
Set swApp = CreateObject("SldWorks.Application")
2012年3月2日 星期五
訂閱：
文章 (Atom)