webmaster
管理人
議長
カタマリの王様!?
 オフライン
投稿: 649
  
|
 |
Re:密度について
« 返信 #3 投稿日: 2004/04/12 - 13:00:23 » |
 |
毎度同じ作業を繰り返すのが苦痛なときは、やはりマクロですよね。
というわけでちょっとサンプルを作ってみました。
Dim swApp As Object
Dim Part As Object
Public Enum swUserPreferenceDoubleValue_e
swMaterialPropertyDensity = 7
End Enum
Sub main()
Dim Density
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Density = Part.GetUserPreferenceDoubleValue(swMaterialPropertyDensity)
Density = InputBox("密度を入力してください", "", Density)
If Density = "" Then
End
End If
Call Part.SetUserPreferenceDoubleValue(swMaterialPropertyDensity, Density)
End Sub
ショートカットキーに割り当てるとか、複数ファイルを自動で処理するとか、試してみてください。
|
著者
記録済み
