大塚商会が主催する　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

2019年5月18日(土)開催
ソリッドワークス・ジャパン ユーザー会　北陸地区主催の交流会のご案内です。

※参加ご希望の方は、必ず事前にご連絡ください。

■SWJUG登録ユーザの方は、こちらより参加登録してください。
■SWJUG未登録の方は、下記↓のアドレスまでメール連絡ください。
　leader.ishikawa@swjug.org

 ＜北陸地区リーダ　萩原＞

「うちもそろそろ3次元設計にチャレンジしてみたい！」、「3次元設計のメリットとは？」、「SOLIDWORKSってどんなCAD？」この様なお声の3次元設計入門者へお届けする、実機体験セミナーと「今ある3Dデータを有効活用したい」、「CAE（解析）ってどうするの？」、「もっともっと3次元設計の効果を得たい」この様なお声の3次元設計経験者へお届けする、すぐに効果を得られる実機体験セミナーをご用意しました。
◆ 世界のデファクト3次元設計CAD SOLIDWORKS CAD
◆ 設計者が使う設計者の為のCAE SOLIDWORKS Simulation
◆ 検査ドキュメントの自動化 SOLIDWORKS Inspection
グローバル化が進む製造業において、世界と戦うための“ものづくり”環境を構築するためのヒントを得る場として、ぜひご活用ください。