Random Thoughts |
If you're going to kick authority in the teeth, you might as well use two feet. -Keith Richards
|
言語 |
|
|
|
フォーラムニュース: 質問、相談カテゴリに「SolidWorks操作方法」に関するフォーラムを追加しました。(2003/11/27) |
いらっしゃい、 ゲストさん. まずはこちら→ ログイン または 登録. 2024/12/15 - 00:18:55 |
|
|
|
著者
|
トピック: 寸法公差一括変更 (閲覧数 7887 回) |
|
BECKER
Jr. メンバー
オフライン
投稿: 19
I'm a llama!
|
|
寸法公差一括変更
« 投稿日: 2018/10/02 - 15:32:02 » |
|
お久しぶりです。すごく前にお世話になりました。 今回もすみませんがご教授ください。
すでに寸法入れたものを長さに応じて公差を変更したいと思っています。
8mm以下は公差なし 8mm超え30mm未満 ±0.1 30mm超え150mm未満±0.3
といった感じで判断させて図中の寸法を変更したいのですが if文ですでに入っている寸法の判断させ方がわからないです
下の分が昔教えてもらいましたが普通許容差の選択の仕方、どこで判断するので しょうか? ' 公差(上下寸法許容差) swDimensionTolerance.Type = swTolType_e.swTolBILAT blnRet = swDimensionTolerance.SetValues(0#, 0.0001)
お手数ですがお教えいただいたらありがたいです。
|
|
|
|
管理人2
管理人
オフライン
投稿: 12
|
|
Re:寸法公差一括変更
« 返信 #1 投稿日: 2018/10/06 - 13:02:59 » |
|
' 引用元: BECKER 投稿日 '.timeformat('1538461922').' ' といった感じで判断させて図中の寸法を変更したいのですが 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
|
|
|
|
|
BECKER
Jr. メンバー
オフライン
投稿: 19
I'm a llama!
|
|
Re:寸法公差一括変更
« 返信 #2 投稿日: 2018/10/10 - 11:35:51 » |
|
ありがとうございます。 ちょっと仕事で手が付けられなくなっているので のちのちトライします。
|
|
|
|
BECKER
Jr. メンバー
オフライン
投稿: 19
I'm a llama!
|
|
Re:寸法公差一括変更
« 返信 #3 投稿日: 2018/12/06 - 16:19:28 » |
|
どうにか作成できました。
myDimension.SystemValueで数値の判断できるみたいなので 結果は楽でしたが、道のりは長かったです
|
|
|
|
|
|
|
|