仕事のカタマリにようこそ!  [ ログイン | ユーザ登録 ]
フォーラムから検索

機械用3D-CAD SolidWorks非公認のユーザサイトです
 
 
Web katamari.org
仕事のカタマリ
ホーム リンク集 ダウンロード フォーラム(掲示板) FAQ お問い合わせ









フォーラムニュース: 質問、相談カテゴリに「SolidWorks操作方法」に関するフォーラムを追加しました。(2003/11/27)
いらっしゃい、 ゲストさん. まずはこちら→ ログイン または 登録. 2024/03/28 - 22:25:38
ホーム ヘルプ 検索 ログイン 登録

仕事のカタマリ 掲示板  |  SolidWorks一般  |  SolidWorksのカスタマイズ (議長: webmaster)  |  トピック: マクロの発動について・・ 前のトピック 次のトピック
ページ: [1] Page Bottom 返信 返信のお知らせ Print 
   著者  トピック: マクロの発動について・・  (閲覧数 3473 回)
psychic2
新人さん
*

オフライン

投稿: 6



I'm a llama!

プロファイルを見る メールアドレス
マクロの発動について・・
« 投稿日: 2017/06/06 - 10:42:35 »
引用して返信

こんにちは
どなたかお解かりの方見えましたら教えてほしいのですが
以下のマクロ

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim Retval As Boolean
Dim swDisplayDimension As Object
Dim dim_ret As Long
Dim sw_mod As String
Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Set swDisplayDimension = SelMgr.GetSelectedObject6(1, 0)

If Part.GetType <> swDocDRAWING Then Exit Sub


'オブジェクトを取得
dim_ret = SelMgr.GetSelectedObjectType3(1, 0)

'寸法
If dim_ret = 14 Then

sw_mod = swDisplayDimension.GetText(swDimensionTextPrefix)

Part.EditDimensionProperties3 4, 0.0001, 0, "", "", 1, 1, 3, 1, 11, 11, sw_mod, "", 1, "", "", 0, 1, ""  '普通許容差、上限、下限

Retval = swDisplayDimension.SetPrecision2(2, 2, 1, 1)  '数値桁、2単位数値桁、公差桁、2単位公差桁


'更新
Part.GraphicsRedraw2

End If

End Sub

図面寸法に公差を入れるもので
マクロにショートカットキーを設定して使っていますが
寸法触ってからマクロのアイコンですと起動しますが
ショートカットですと寸法をダブルクリックしてからでないと
発動しません
今ではもう寸法はダブルクリックする長年の癖になっていますが
ふと気になりました
ちなみにSW2014です
よろしくお願いします
議長に報告する   記録済み
hisa
カタマリの王様!?
*****

オフライン

投稿: 507



PANDA-Z!!

プロファイルを見る WWW
Re:マクロの発動について・・
« 返信 #1 投稿日: 2017/07/03 - 12:48:58 »
引用して返信

SW2015,1016ともにショートカットでも問題なく動作しました。
SW2014だからですかね…
議長に報告する   記録済み
psychic2
新人さん
*

オフライン

投稿: 6



I'm a llama!

プロファイルを見る メールアドレス
Re:マクロの発動について・・
« 返信 #2 投稿日: 2017/07/03 - 19:31:03 »
引用して返信

こんにちは
お久しぶりです
バージョン違いおkですか・・・
verUP契約ケチっちゃったから残念w
検証ありがとうございました^^
議長に報告する   記録済み
ページ: [1] Page Top 返信 返信のお知らせ Print 
仕事のカタマリ 掲示板  |  SolidWorks一般  |  SolidWorksのカスタマイズ (議長: webmaster)  |  トピック: マクロの発動について・・ 前のトピック 次のトピック
ジャンプします: