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

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









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

 1   その他 / お知らせ / 仕事のカタマリサイトの動作が改善できました  投稿日: 2018/12/06 - 21:15:53 
最初に投稿した人 管理人2 | 最近の投稿 by 管理人2
かなり前からこのサイトの一部のページが使えない状態が続いていて、長らく皆さんにはご不便をかけていましたが、ようやく改善できました。

特にダウンロードのページが使えなかったのが困りものでしたがやっと使えるようになりました。

 返信 引用して返信 返信のお知らせ

 2   SolidWorks一般 / SolidWorksのカスタマイズ / Re:寸法公差一括変更  投稿日: 2018/12/06 - 16:19:28 
最初に投稿した人 BECKER | 最近の投稿 by BECKER
どうにか作成できました。

myDimension.SystemValueで数値の判断できるみたいなので
結果は楽でしたが、道のりは長かったです
 返信 引用して返信 返信のお知らせ

 3   SolidWorks一般 / SolidWorksのカスタマイズ / Re:寸法公差一括変更  投稿日: 2018/10/10 - 11:35:51 
最初に投稿した人 BECKER | 最近の投稿 by BECKER
ありがとうございます。
ちょっと仕事で手が付けられなくなっているので
のちのちトライします。
 返信 引用して返信 返信のお知らせ

 4   SolidWorks一般 / SolidWorksのカスタマイズ / Re:寸法公差一括変更  投稿日: 2018/10/06 - 13:02:59 
最初に投稿した人 BECKER | 最近の投稿 by 管理人2

引用元: BECKER 投稿日 2018/10/02 - 15:32:02   

といった感じで判断させて図中の寸法を変更したいのですが
if文ですでに入っている寸法の判断させ方がわからないです



管理人です。私もすごく久しぶりに書き込みます。
図面内の選択した寸法の値を読み取りたいということであれば、下記のプログラムが参考になると思います。

Code:
Private Sub 寸法値確認_Click()

Dim sunpou As Double
Dim uppertol As String
Dim lowertol As String

Set swApp = CreateObject("sldworks.application")    'solid worksのオブジェクト定義
Set Part = swApp.ActiveDoc                          '現在アクティブになっているドキュメントの取得
Set sel = Part.SelectionManager                    '変数selにセレクションマネージャを設定
'現在選択されているもの(の1つ目)が寸法であるかどうかを確認する
If sel.GetSelectedObjectType2(1) <> swSelDIMENSIONS Then
    MsgBox "寸法を選択してからやりなおしてください", vbExclamation
    Exit Sub
End If

'寸法 (寸法の場合、GetSelectedObject3 で DisplayDimension オブジェクトが得られる)
'    (DisplayDimension に対して GetDimension を使うと Dimension オブジェクトが得られる)
Set stype = sel.GetSelectedObject3(1)
Set ob = stype.GetDimension()

sunpou = ob.Value
寸法.Caption = Format(sunpou, "0.000")
寸法.ToolTipText = sunpou

Conv_tol sunpou, kigou.Text, uppertol, lowertol

upkousa.Text = uppertol
lokousa.Text = lowertol

End Sub
 返信 引用して返信 返信のお知らせ

 5   SolidWorks一般 / SolidWorksのカスタマイズ / 寸法公差一括変更  投稿日: 2018/10/02 - 15:32:02 
最初に投稿した人 BECKER | 最近の投稿 by BECKER
お久しぶりです。すごく前にお世話になりました。
今回もすみませんがご教授ください。

すでに寸法入れたものを長さに応じて公差を変更したいと思っています。

8mm以下は公差なし
8mm超え30mm未満 ±0.1
30mm超え150mm未満±0.3

といった感じで判断させて図中の寸法を変更したいのですが
if文ですでに入っている寸法の判断させ方がわからないです

下の分が昔教えてもらいましたが普通許容差の選択の仕方、どこで判断するので
しょうか?
        ' 公差(上下寸法許容差)
            swDimensionTolerance.Type = swTolType_e.swTolBILAT
            blnRet = swDimensionTolerance.SetValues(0#, 0.0001)

お手数ですがお教えいただいたらありがたいです。
 返信 引用して返信 返信のお知らせ

 6   その他 / 雑談 / Re:ダウンロードが出来ない。  投稿日: 2018/08/03 - 12:57:32 
最初に投稿した人 hdyk_yamada | 最近の投稿 by 管理人2
返事が遅くなってすみません。

サーバー更新時にプログラムが動かなくなったまま修正できていないです。なんとか直してみますがかなり時間がかかるかもしれません。

ちなみにダウンロードしたいファイルはどんなファイルでしょう?
 返信 引用して返信 返信のお知らせ

 7   その他 / 雑談 / ダウンロードが出来ない。  投稿日: 2018/07/20 - 14:29:11 
最初に投稿した人 hdyk_yamada | 最近の投稿 by hdyk_yamada
ダウンロードが出来ないようですが、直していただけないでしょうか?
 返信 引用して返信 返信のお知らせ

 8   SolidWorks質問、相談 / SolidWorks操作方法 / 図面リストが変  投稿日: 2018/07/20 - 14:26:50 
最初に投稿した人 hdyk_yamada | 最近の投稿 by hdyk_yamada
図面リストに体積を入れたのですが、なぜか、表示されるものとされないものがあります。更新や、Ctrl+Qなど押してみても表示されません。ライトウェイトも疑てみましたが表示されません。個々にファイルを開いても表示されません。

分かる方教えてください。

因みに、モデル上にアノテートアイテムに体積を入れても表示されるものとされないものがあります。バグですかね。
 返信 引用して返信 返信のお知らせ

 9   SolidWorks質問、相談 / SolidWorks操作方法 / 部品リストにモデルの最大寸法を入れたい  投稿日: 2018/07/20 - 14:21:26 
最初に投稿した人 hdyk_yamada | 最近の投稿 by hdyk_yamada
組図の図面上の部品リストに個々のモデルの最大寸法を表示することは、出来ないものでしょうか?
重心が出るので何となく出来そうな気がするのですが。
分かる方教えてください。
 返信 引用して返信 返信のお知らせ

 10   SolidWorks質問、相談 / SolidWorks操作方法 / Re:2D 断面  投稿日: 2018/07/20 - 14:14:14 
最初に投稿した人 hdyk_yamada | 最近の投稿 by hdyk_yamada
自己解決しました。
実線と、作図線で切り替えれるようになったんですね。
以前はアイコンが在ったから探してしまいました。
 返信 引用して返信 返信のお知らせ

戻る ボードのインデックスに