月: 2017年7月

SolidWorksも３５分で強制保存終了

SolidWorksだけでsettimer(WindowsAPIの関数)のようにある時間後に関数を呼び出すような方法がわからない。だから、ExcelのApplication.OnTimeを使う。そのため、SolidWor … “SolidWorksも３５分で強制保存終了” の続きを読む

SolidWorksだけでsettimer(WindowsAPIの関数)のように
ある時間後に関数を呼び出すような方法がわからない。
だから、
ExcelのApplication.OnTimeを使う。
そのため、
SolidWorksの起動は、Excelファイルから起動する。
（SolidWorks側でExcelのライブラリを参照しても
Application.OnTimeで指定したプロシージャを呼び出せない。
“savequit”を呼び出せないだけでExcelとなる）
2017-07-31_13h52_59
ExcelからSolidWorksを起動するためには、
SolidWorksのライブラリを参照するのがスマート。
SolidWorks関係を追加する。
2017-07-31_13h41_44

以下はModule1のコード
Option Explicit
‘Drawが呼び込まれている場合は元のPartも表示する
Dim swApp As SldWorks.SldWorks
Dim model As SldWorks.ModelDoc2

Sub ボタン1_Click()
    Set swApp = GetObject(“”, “SldWorks.Application”)
    swApp.Visible = True
    Application.OnTime Now() + TimeValue(“0:0:25”), “savequit”　’ここでは25秒にしている
End Sub

Sub savequit()
    Set model = swApp.GetFirstDocument
    Do While Not model Is Nothing
        Debug.Print model.GetTitle
        model.Save
        Set model = model.GetNext
    Loop
    swApp.CloseAllDocuments True ‘Trueで強制終了
    swApp.ExitApp
End Sub

2017-07-31_13h55_03
以上で
Excel、Word、SolidWorksの一定時間後に自動保存強制終了。

集中は３５分間　　Wordの強制保存終了

文書WordやExcelでの計画、仕様書などを書く時はマクロで強制保存終了させる。一旦、やめる。この開放感を得るための区切り。その内容から一旦離れても脳は考えてる。きっと。以下は、Wordの強制保存終了の設定。Wordも … “集中は３５分間　　Wordの強制保存終了” の続きを読む

文書WordやExcelでの計画、仕様書などを書く時はマクロで強制保存終了させる。
一旦、やめる。
この開放感を得るための区切り。
その内容から一旦離れても脳は考えてる。きっと。
以下は、Wordの強制保存終了の設定。
Wordもファイルを呼び込んだ時点で以下のを実行する。

ThisDocumentを選んでDocumentのOpenインベントプロシージャを開いて以下を書く。
    Application.OnTime Now() + TimeValue(“0:35:15”), “savequit”

2017-07-23_10h52_38

標準モジュールは以下。

Option Explicit

Sub savequit()
    Application.DisplayAlerts = wdAlertsNone’保存しますか？を表示させない
    ActiveDocument.Save ‘保存
    Application.Quit ‘終了

End Sub
ファイルの保存は、マクロ有効な文書。拡張子が.docmで保存する。

マクロを実行させる。これはここの文書ファイルではなくWordの設定になる。
2017-07-23_10h32_56

ApplicationのOnTimeメソッドは、マクロをそのタイミングで実行させる。
よって、マクロを終了ボタンでマクロは止まらない。というかマクロは動いていない。終わっている。
“savequit”関数の呼び出しを止めるにはブレイクポイントでも設定するしかない。
（一定時間後にsavequit関数を呼び出すのはWindowsというOSの仕事です）
もし、
Now() + TimeValue(“0:0:5”)
などと入れてしまったら、再度ファイルを呼び込んですぐに終了する。
そんな時は、
Shiftボタンを押す、Shiftボタンは文書ファイルが完全に開くまで押すと、マクロは実行されない。

Excelで一定の時間後に上書き強制終了　自動終了

皆で使うExcelファイルは、「校閲」の「ブックの共有」という手もあるが
サーバが遅すぎで、誰も開けないことに。
特にクラウドで共有ってどうなんでようか？
で

Application.OnTime 実行時間,”モジュールのプロシージャ名”
WorkbookがOpenしたタイミングでこれをセット。
ThisWorkbookを選んで、WorkbookのOpenを選ぶとイベントプロシージャが現れる

Private Sub Workbook_Open()
    Application.OnTime Now() + TimeValue(“0:0:15”), “savequit”
End Sub

2017-07-14_10h26_09


この手法を使うことに。
実際は15分で強制保存終了

ここでは１５分後に以下のプロシージャを実行する。
これは、Module1のコード

Sub savedown()
    ThisWorkbook.Activate
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Range("a1").Copy
    ThisWorkbook.Close
    Application.DisplayAlerts = True
End Sub

ファイルの保存は、マクロ有効ブック。拡張子が.xlsmで保存する。

３D単独図

三次元CAD単独図最後まで単独です。３次元CADの３次元の図しか使わない！これはせっかく作った３次元図を加工工程やお客さんとの間でも使う。わざわざ２次元の図を作らないということ。設計で３次元CADがいいのはわかっている。 … “３D単独図” の続きを読む

三次元CAD単独図
最後まで単独です。
３次元CADの３次元の図しか使わない！
これはせっかく作った３次元図を加工工程やお客さんとの間でも使う。
わざわざ２次元の図を作らないということ。
設計で３次元CADがいいのはわかっている。
構成や動き、機能の確認は三次元CADがいい。
で
加工工程は
切り込んでいく加工（切削加工か）だけならそうでしょう。
最近は、
３次元プリンター（こっちは盛るかんじかな）にも
だんだんCAD=製作。CAMがすごくなってるんで。
切削する加工工程でのすり合わせが少なくなってきている。
一方、
組み合わせて大きくしていく鉄工業や機械板金では加工工程中にいろいろあるわな。
板金設計ってなことばがある。
FAXやPDF、CADデータ、ポンチ絵、メモなどからAP100とか使って加工のための図を描く。
図とは展開図のこと。
CADデータもらってたら自動でアマダさんなどのAP100へとなればいいが。
さて、
３次元CADはもう大学でも一般的になっている。
だから
３次元図面で仕事が進むかというと
（コンピュータ画面でも２次元だが３次元のように見せる）
コンピュータの３次元のまま印刷して使えばええのにって。
単純な形状なら３次元に寸法が書ける。これで十分かと。
現実は２次元の図面を使っている。
流用できるような図があるなら、
2次元CADの方が早いに決まっている。
人は慣れている方を使うとか色々あるんでしょうね。
3次元CADをそのまま使えると、2次元CADが無くなる？かも。
JISで決まった形式があるって強いわ。
3次元CADの印刷規格？
とりあえず国内だけでも先に？
「三次元ＣＡＤ情報標準化専門委員会」のご活躍を期待ております。
日本自動車工業会
私は、待ち姿勢。

SollidWorksにMBDというのがある。
図面レスを狙っている
タブレットを工場に入れれば
今の人は携帯で操作慣れてるし。