hisa
カタマリの王様!?     
オフライン
投稿: 507

PANDA-Z!!
|
 |
Re:幾何公差の公差値を設定するには?
« 返信 #1 投稿日: 2005/12/15 - 12:40:28 » |
|
こんにちは 
幾何公差の設定値は、 Gtol.GetFrameValues ( frameNumber)で取得し Gtol.SetFrameValues ( frameNumber, tol1, tol2, datum1, datum2, datum3) で設定できます。 引数の中のframeNumberは、幾何公差枠のINDEXです。 幾何公差のプロパティ画面右側の“枠”の値と同じです。
以下は、選択した幾何公差の取得・設定の簡単なサンプルです。
Dim swApp As SldWorks.SldWorks Dim Model As SldWorks.ModelDoc2 Dim SelMgr As SldWorks.SelectionMgr Dim Gtol As SldWorks.Gtol Dim GtolVal As Variant Sub main()
Set swApp = Application.SldWorks
Set Model = swApp.ActiveDoc
Set SelMgr = Model.SelectionManager
Set Gtol = SelMgr.GetSelectedObject5(1)
GtolVal = Gtol.GetFrameValues(1) '取得
Gtol.SetFrameValues 1, "0.2", "", "A", "", "" '設定
End Sub
|