| Random Thoughts |
| If we aren't supposed to eat animals, why are they made of meat?
|
| 言語 |
|
|
|
| フォーラムニュース: 質問、相談カテゴリに「SolidWorks操作方法」に関するフォーラムを追加しました。(2003/11/27) |
| いらっしゃい、 ゲストさん. まずはこちら→ ログイン または 登録. 2024/11/23 - 08:32:13 |
|
     |
|
著者
|
トピック: 終了の仕方 (閲覧数 1875 回) |
|
snfgw
Jr. メンバー
 オフライン
投稿: 17
I'm a llama!
|
 |
終了の仕方
« 投稿日: 2011/05/11 - 20:47:15 » |
 |
ファイルを閉じるときに
1 先頭のコンフィギレーションを選択
2 ツリーをすべて収縮
3 等角投影にする
4 上書保存
以上を実行して閉じるようにしたいのですが
1 2 のマクロがさっぱりわかりません。
どなたか、ご存知の方はいらっしゃいますか 
|
|
|
|
|
Makoron
カタマリの王様!?
オフライン
投稿: 1277
SW2011SP5.0
|
|
Re:終了の仕方
« 返信 #1 投稿日: 2011/05/12 - 09:21:51 » |
|
引用:
についてはこんな感じかな。
Code:
Sub main()
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Dim swModelDoc2 As SldWorks.ModelDoc2
Set swModelDoc2 = swApp.ActiveDoc
Dim vntConfigNames As Variant
vntConfigNames = swModelDoc2.GetConfigurationNames()
' コンフィグ名取得（作成順序で一番最初）
'Dim strConfigName As String
'strConfigName =vntConfigNames(0)
' コンフィグ名取得（コンフィグツリー表示順で一番上）
' ここではコンフィグ名を比較して処理しているが
' 数が多い場合は、ソート処理を入れた方がいいかもしれない
Dim vntConfigName As Variant
Dim strConfigName As String
strConfigName = ""
For Each vntConfigName In vntConfigNames
If strConfigName = "" Then
strConfigName = vntConfigName
ElseIf strConfigName > vntConfigName Then
strConfigName = vntConfigName
End If
Next
' コンフィグ切り替え
Call swModelDoc2.ShowConfiguration2(strConfigName)
End Sub
|
引用:
に関しては、SolidWorksのAPIではなんともすることが出来ないので、
フィーチャを選択してsendkeyでマイナス（-）キー。のループで実現するしかないかも。
|
|
|
|
|
snfgw
Jr. メンバー
オフライン
投稿: 17
I'm a llama!
|
|
Re:終了の仕方
« 返信 #2 投稿日: 2011/05/12 - 16:18:56 » |
|
有難うございます。
うまくいきました。
ツリーの収縮はあきらめて
毎回、注意することにします。
|
|
|
|
|
|
|
|
|
記録済み