12/10 燕三条　12/12 東京

SOLIDWORKSで設計をしていて、このようなことでお困りではありませんか？

◆SOLIDWORKSのデータ管理が煩わしい
◆設計データの検索に時間がかかる
◆参照関係が壊れ、部品を開けない
◆同じようなデータが多い
◆最新版のデータがどれだか分からない
◆PDM Standardで何ができるのかを知りたい


このようなお客様は必見！！
ここだけでSOLIDWORKSのデータ管理についてお教えします

※このセミナーは、SOLIDWORKSを効率よくご使用頂けるポイントをご紹介しておりますので、
SOLIDWORKSご使用中のお客様を対象としております。予めご了承ください。

私は電子情報産業技術協会(JEITA)の三次元CAD情報標準化専門委員会に参加して、三次元CADデータを活用したもの作りについて活動しております。
この委員会は、三次元CAD情報を有効に活用する業界標準の確立と、関連業界内に広く普及させていくことで、設計・製造の革新と高度化を図ることを目的に、3DAモデルの規格化とJIS開発への参画、活用方法の検討と普及活動を行っています。
http://home.jeita.or.jp/3d/ 

専門委員会主催で、恒例になりましたセミナーを今年も開催致します。興味のある方は、是非ご参加下さい。

　　　　　　　　「三次元CAD情報標準化セミナー　2019」開催のご案内

　～　3DAモデル／DTPDによるものづくり　～　

－　グローバルスタンダードで勝ち抜くために、国際規格と三次元CAD標準化活動　－

一般社団法人　電子情報技術産業協会

三次元CAD情報標準化専門委員会

委員長　相馬 淳人

拝啓　

平素はJEITA（一般社団法人 電子情報技術産業協会）三次元CAD情報標準化専門委員会活動に

ご協力いただき、厚く御礼申し上げます。本年も、当専門委員会主催にて三次元CAD情報標準化セミナーを

開催いたします。

当専門委員会では、三次元CAD情報の有効活用による設計・製造・検査の効率化と高品質化を目的に、

製品(部品)形体の表記と解釈を、幾何公差主体とする三次元CAD情報と、一括公差指示方式の一貫した

利活用のしくみの実現に取り組んでいます。

具体的には、三次元CAD情報の利活用に着目し、設計情報である3DAモデル(三次元製品情報付加モデル)

および、3DAモデルを元にものづくりの各工程での情報と連携するDTPD(デジタル製品技術文書情報)で、

設計情報の正確な伝達と部品製作・測定での一義的な解釈(標準化)による効率化と高品質化を推進しています。

本セミナーでは、3DAモデルとDTPDのものづくり適用の品質確保・加速・拡大の事例を紹介いたします。

今年も昨年同様、委員会会員企業だけでなく、広く三次元CAD情報標準化に関する議論ができる場とするため、

会員以外の皆様にもご案内申し上げます。セミナー後には懇親会も催しますので、専門委員会メンバーとの交流を

深める場とさせていただきたく、皆様のご参加をお願い申し上げます。

【開催日時・場所】

　日時： 2019年12月3日　(火)　13:00-17:30　(懇親会17:45-19:45)

　場所： 川崎市産業振興会館　1階ホール

セミナーの詳しい内容は、添付資料にてご確認いただけます。ご参照ください。

【参加申し込み】

　参加希望の方は11月15日（金）までに、下記URLより参加申し込みをお願いいたします。　

　　　　http://3d.jeita.or.jp/e0wRT9xmG/2019/2019Seminar.html

【問い合わせ先】

　　　三次元CAD情報標準化専門委員会 事務局

　　　　桑理　聖二

　　　　E-mail: seiji.kuwari@omron.com

→稲城宛にご連絡いただいてもOKです。

稲城正高
Masa.Inagi@konicaminolta.com

今週土曜日　2019年10月19日開催　
ソリッドワークスユーザー会　チーム大阪主催の勉強会のご案内です。

＜今回の勉強会のテーマ＞

「他の人には役に立たないかもしれない私の使い方紹介」

参加希望の方は，TeamOsaka班長の西田(nishida-masaya@sei.co.jp)までメールください。
ご検討よろしくお願いします。

席数に限りがあり，飛び入り参加はできません。
必ず事前にご連絡ください

SWJUG Team Osaka 第19回勉強会

【日時】2019年10月19日（土）
【時間】 13:00～17:30　開場　12:30予定
【会場】 〒5310072 大阪府 大阪市北区 豊崎 3-20-9 三栄ビル 　8階第10会議室
　　　　　会場案内(マップ含む): www.instabase.jp/space/3547148335/catalog

【テーマ】「他の人には役に立たないかもしれない私の使い方紹介」
【参加費】無料
【参加資格】SOLIDWORKSユーザーなら誰でも可（ユーザー会員でなくてもOK）
【持参品】特になし。名刺があるとよいかも
【服　装】指定なし。私服の方が多いです。

・発表1 「バリエーションの多い製品群モデルの作り方の相談」 　
・発表2 「ボディの移動／コピー，サーフェスカットを使った例」 　
・発表3 「プロパティタブ・プロパティタブビルダーの使い方」 　
・発表4 「マウスジェスチャーアプリを使っている話」 　
・発表5 「モーションで「カム」のプロファイルを作成する例」 　
・フリーディスカッション

【当日の緊急連絡先】 西田携帯 090-4506-9912

詳細および申込みは、こちら↓のイベント情報ページをご覧ください。
http://swjug.org/discussion/view/266924/

◆問合せ先(担当：萩原)→ leader.toyama@swjug.org

大塚商会が主催する　Solidwroks活用研究会（2019年9月6日）で

ロボットを動かす件のセミナー発表します。

ここです・・・https://www.otsuka-shokai.co.jp/event/region/19/w0906swkk/

日時：9/28(土)9：30～17：30

場所：株式会社システムスクエア様(長岡インター近く)

内容：CSWP勉強会

　　　機能操作の再確認（テクノソリューションズ様より）

　　　CSWP受験(希望者のみ)

 飛び入り参加はできませんので、必ず事前に連絡をください。

参加申込＆お問い合わせはleader.niigata@swjug.orgまで。

 チーム新潟メンバーの参加申込はこちら→CSWP勉強会参加連絡

8月の勉強会企画です。

8月は土曜日開催で，「初心者向け」会です。参加費無料です。

参加希望でチーム大阪以外の方はmew-jug@miw.chu.jpに連絡してください。

CSWP資格をお持ちでない方　ぜひ一緒に勉強しましょう。

CSWP資格をお持ちの方は，サポーターとして参加検討お願いします。
もしお近くに　資格を持ってない方がいらっしゃったら，ぜひ誘ってください！

ご参加いただける方で，チーム大阪以外の方はmew-jug@miw.chu.jpに連絡してください。

チーム大阪メンバーは下記に直接書き込みお願いします。

http://swjug.org/discussion/view/255531/

------------------------------

8/3当日朝まで参加募集中です。

第18回勉強会　企画

【日時】2019年08月3日（土） 
【時間】 10:00～18:00　開場　09:30予定
【会場】 〒5310072 大阪府 大阪市北区 豊崎 3-20-9 三栄ビル 
マップ: https://maps.google.com/maps?q=34.7095020633543,135.4963843806347&zoom=16

会議室は、「三栄ビル　8階第10会議室」です。

【テーマ】　＜初心者向け講習会 CSWP勉強会＞　※途中参加も歓迎です。
【参加費】 無料
【参加資格】日本語がわかれば、だれでも可
【持参品】特になし（名刺はあれば持ってくるといいかもです）
【服装】平服でOK(スーツじゃなくて大丈夫です)
【メール】mew-jug@miw.chu.jp

＜プログラム案＞
【午前】
10:00-10:15 開催の儀 
10:15-10:30 CSWP認定試験について・傾向と対策
10:30-12:00 Yさんが例題にチャレンジ
解説しながらの回答例
【午後】
13:00-14:30 Oさんが例題にチャレンジ
解説しながらの回答例
14:30-14:40 予備・休憩
14:40-16:10 Tさんが例題にチャレンジ
解説しながらの回答例
16:10-17:35 予備・休憩
(質問タイムとか、例題やりたい人とか)
17:35-18:00 業務連絡 & 集合写真撮影
18:30までに完全撤収

参加希望でチーム大阪以外の方はmew-jug@miw.chu.jpに連絡してください。

SWJUG公式のツイッター開設しました。

https://twitter.com/swjug

フォローお願いします。

一応、イベントなどを発信していく予定です。

チーム北陸の宮本です

図面寸法について

スマート寸法（水平、垂直）の直列配置をどのように作図していますか？

通常の手順だと

　１．スマート寸法で１つ１つ寸法を挙げる

　２．同一線上で整列させる

２Ｄ－ＣＡＤでは必要なエンティティを事前に選択して実行すると、自動的に挙げるものがほぼと思います

自動寸法やＤｉｍＸｐｅｒｔでは累進や並列は出来ると思います

効率的な手法やマクロなど活用されている方がいらっしゃれば、ぜひ教えて下さい！

あらかじめ配置位置データを作っておき、その位置データを元に部品データを読み込んで配置するというものです

読み込んだファイルをそのまま配置する分には問題がないのですが、部品を90度回転させて配置させなければならない個所もありどうにか部品を回転させて配置したいと思うのですが、マクロの記録を使っても部品を回転させた記録は残らず困っており、お教え頂ければ助かります。

因みに現在私が使っているマクロは以下の通りです。済みませんがよろしくお願いします

' ******************************************************************************
'予めX値、Y値、Z値をスペースで区切ったテキストデータファイルを準備しておく
'*****************************************************************************
Dim swapp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Dim swapp As SldWorks.SldWorks
Dim Filter As String
Dim fileName As String
Dim fileConfig As String
Dim fileDispName As String
Dim fileOptions As Long
Dim Chk As Integer
Dim Fname As String
Dim ItiX As Single
Dim ItiY As Single
Dim ItiZ As Single
Dim buf As String
Dim Kfname As String
Dim Fld As String
Dim Sname As String
Dim N As Integer
Dim Tname As String
Dim KariSt As String

Set swapp = Application.SldWorks

Set Part = swapp.ActiveDoc
Dim myModelView As Object

Filter = "全部|*.*|"
MsgBox ("データファイルを選択してください")

Fname = swapp.GetOpenFileName("Select File", "", Filter, fileOptions, fileConfig, fileDispName) '位置情報データ

If Fname = "" Then
    MsgBox ("ファイルが検出できません")
  
    MsgBox ("中断します")
    Exit Sub
End If

    MsgBox ("パーツデータがあるファイルを選択してください。")
    fileName = swapp.GetOpenFileName("Select File", "", Filter, fileOptions, fileConfig, fileDispName)
   
    If Kfname = "" Then
        MsgBox ("ファイルが検出できません")
      
        MsgBox ("中断します")
        Exit Sub
    End If
   

Open Fname For Input As #1

Do Until EOF(1)

    Line Input #1, buf
    If buf = "" Then
        Exit Do
    End If
    Chk = XYZget(ItiX, ItiY, ItiZ, buf)
    If Chk <> 3 Then
        MsgBox ("番目に読み込みエラーがありましたので中断します")
        Exit Sub
    End If

    boolstatus = Part.AddComponent(fileName, ItiX, ItiY, ItiZ)

Loop

Close

MsgBox ("読み込みました")

End Sub

Function XYZget(ItX As Single, ItY As Single, ItZ As Single, buf As String) As Integer

Dim KariSt As String
Dim KrX As String
Dim KrY As String
Dim KrZ As String
Dim Ln As Integer
Dim N As Integer
Dim Chk As Integer

KariSt = ""
Ln = Len(buf)
Chk = 0

For N = 1 To Ln
    If Mid(buf, N, 1) <> " " Then
        KariSt = KariSt + Mid(buf, N, 1)
    Else
        If Chk = 0 Then
            KrX = KariSt
            KariSt = ""
            Chk = 1
        ElseIf Chk = 1 Then
            KrY = KariSt
            KariSt = ""
            Chk = 2
        ElseIf Chk = 2 Then
            KrZ = KariSt
            Chk = 3
            KariSt = ""
        Else
            Chk = 4
            Exit For
        End If
    End If
Next

If Chk = 2 Then
    KrZ = KariSt
    Chk = 3
End If

ItX = Val(KrX)
ItY = Val(KrY)
ItZ = Val(KrZ)

XYZget = Chk
       

End Function