注目の投稿

技術者として人として

 技術者として人として これまで、生きてきて、ひとりで解決していくものと考えていた。 知り合いなどの助言もあるが、それだけでも、やり切れない場合があった。 長い間、この性格を作り上げてきて正確などは、変わることがないだろうと決めつけていた。 思考は、そうそう簡単には変わらないもの。 ひとりでは、変わらないものであるということに気づくことができた。 日本では、カウンセリングという文化が浸透していないが、古くは仏教など、生活の為に、必要な事を、学ぶ機会が少ないと思う。 カウンセリングは、それを、実現できるものと思う。 ひとりでは解決できないこと、それは、正しい方法を見つけられないから。それを、学んでいないからで、専門的な第三者が心理学などを通して教えてくれることは救いとなる。 生きにくい世の中であることは間違いない。 生きやすくする方法もあると知ることができた。 技術者は孤独になるときがあり、ひとりでなんともならない時の対策方法を見失う時がある。日本ではカウンセリング文化が浸透していないような気がするが、ひとりでは解決出来ない時。救われる方法があると知る事になる。 https://t.co/LBKNwUyXg5 — chsugiyama (@chx_sugi_001) January 3, 2023
コメントを投稿

DesignSpark Mechanical ブレンド SurfaceからSolid作成

DesignSpark Mechanical ブレンド SurfaceからSolid作成


参考動画

YOUTUBEでは、圧着端子をブレンドで作成しています。



https://youtu.be/rSpghmN4YX8


ブレンドで作成した圧着端子を下記からダウンロード可能です。

https://drive.google.com/file/d/1ex8Smy82gs9sXxQi20N4qZH0olcTqHdD/view?usp=sharing


DXFにエクスポートする場合に、Surfaceの図形があるとエラーになる場合があるため、

Solidとして作図する場合を確認した。



ブレンドは面Surfaceと面Surface（点Point、線Line）を選択する必要があるため
面を作成する必要がある。
Solidの面に、2Dモードでラインを作図する。
Surfaceごとに面と面（又は点）が必要


2Dモードで点を作図する


スケッチに投影で、Lineを投影する

上側の曲線は
面Surfaceから点Pointまでのブレンドを作成


下側の曲線
面Surfaceから線Line を使用してブレンドを作成する　制約があるため今回は面で作図）


ブレンド　アイコン


ブレンドをクリック
面Surfaceと、Ctrlキーを押しながら点Point をクリックすると
ブレンド図形が表示される
この時は直線的な図形
この図形で良ければ「完了」をクリックする。
今回は、Rをつけたいので、


ガイドを使用して
Rを指定する
エッジ又は面が必要

上側のエッジを指定すると、上側の曲線がエッジに沿って図形が変更される


その状態から、CTRLキーを押しながら下側のエッジをクリックする
マウスをエッジの上に持ってくるとエッジがハイライトされる

ガイドを使用して、上下２本のエッジのブレンドの図形が表示される。
ガイドが多くある場合には、CTRLキーを使用して追加する。
この図形で良ければ、「完了」をクリック


ブレンドの曲面のSolidが作成される


ブレンドの制約から作図できない場合もある


形状を合わせて、三角形の面Surfaceを作図する


上記のように、
二つの面を選択し、ガイドを選択して図形を作図する




コメント

コメントを投稿

このブログの人気の投稿

DesignSpark Mechanical オブジェクトの拡大、縮小　"Scale the body"

イメージ
デザインスパークメカニカル　オブジェクトの拡大、縮小 DesignSpark Mechanical "Scale the body" デザインスパークは無料のソフトですけど、使いやすいソフトです。使い方が分からない所がありますが、大体の事は出来ると思います。 その中でも、拡大縮小は、分かりませんでしたが、調べてみると下記の方法でちゃんと、数値入力でも可能ということが分かりましたので、メモします。 説明動画YOUTUBE  https://youtube.com/shorts/XwRMVjA6BDI?feature=share 説明動画YOUTUBE  プル　ボディをスケール https://youtu.be/VexvsAR076Q 操作説明 編集メニューの「プル」上部の赤矢印をクリック後に、アイコン「ボディをスケール」赤矢印 により、拡大、縮小が可能になります。 操作方法 「ボディをスケール」をクリック 下の図のアイコンをクリック。アイコンが選択されると大きくなります。 アンカーポイントを選択 ボディをスケール(拡大縮小したいオブジェクト)するアンカーポイントを選択する。 左下の角を選択すると、下記のように、選択された点に、マークが表示されます。 ※オブジェクトを選択後に、アンカーポイントを選択しても可能です。 アンカーポイントが基準の位置になります。 この位置（アンカーポイント）は変わりません。 拡大、縮小したいオフジェクトを選択する。 オブジェクトの選択は、ストラクチャのSOLIDを選択。 下の図の場合は、「四角」と、「NF3(ABT)」のSOLID、複数のSOLIDを選択しています。 ※オブジェクト選択後にアンカーポイントを選択しても可能です。 右のプル矢印（赤丸部）が表示されます。 この矢印をドラックまたは、数値を入力することで、拡大、縮小が可能。 数値を入力すると数値入力。ドラックすると、任意のサイズに拡大縮小が出来ます。 動画では、数値入力で２倍、0.5倍などを行っています。 その他の操作方法リンク DSMについて DSM 曲線SOLIDからパスを作成する方法 DSM コピー COPY方法 DSM オブジェクトの拡大、縮小 DSM5 Solidの分割 DSM コンポーネントの移動ができない DSM5 で、2つの図の面(角度)を合わせる...
続きを読む

EXCEL VBA EXCELの表からAUTOCADの文字を書き換える.　EXCEL VBA Rewrite the characters of AUTOCAD from the table of EXCEL.

イメージ
EXCEL VBA EXCELの表からAUTOCADの文字を書き換える.　 EXCEL VBA Rewrite the characters of AUTOCAD from the table of EXCEL. エクセルの変換表にしたがって、AUTOCADの文字列を変更するコードです。 A1セルに検索する文字、名前を「検索文字」 B1セルに変換後の文字、名前を「変換文字」 としておきます。 下記のコードは、マルチテキストです、 If ent.ObjectName = "AcDbMText" Then　 この行で、マルチテキストかどうかを判断しています。 ここを、ダイナミックテキストにする場合には、 If ent.ObjectName = "AcDbText" Then　 とします。 オブジェクトの名前が、わからなかったのですが、ブレークポイントを、図の位置に設定しておいて CADの図に、両方のマルチテキストと、ダイナミックテキストを書いておいて、 ブレークポイントに止まったときに、ent.ObjectName の内容を確認することで、 確認することが出来ました。 ObjectNameが分からないときには、円や、Line、Solidなど、 CAD上に作図しておき、ブレークポイントで確認することで、Nameを確認することが出来ます。 ただ、ブロックの属性について、調べていたのですが、まだ、分かっていません。 ローカルウインドウに、何か、表示されていないかと、調べたのですが、探しきれませんでした。 ただし、ブロックエディタの画面でも、テキストの内容がわかりますので、 ブロックエディタ画面で、文字の変更は可能です。 おそらく、Block, Model,Paper このあたりが、なにかあるとおもっているのですが。 下記のコードはモデル空間に対してのマクロになり、ブロックに対しては、違う方法になるのだと、 現在は、１文字ですが、これを、FOR分などで、変換文字列をぞれぞれ、確認するようにすれば、 CAD上の文字変換が可能になります。 変換する文字のサイズの変更や、色の変更も、たぶん必要になってくると思っています。 サン...
続きを読む

エクセルからパワーポイントのノートを書き込むVBA

イメージ
エクセルからパワーポイントのノートを書き込むVBAを作成しました。 エクセルには、ページ数と、ノートの項目を入力しておきます。 セルの内容を、各ページのノートに入力します。 開いているパワーポイントに対して、処理をします。 現状の問題点 エクセルのセルの中で改行がある場合に、パワーポイントでは１行となるところを、下記の判定を追加することで、パワーポイントのノートに改行を追加することが出来ました。 これを、下記のコードに盛り込めば、対応が可能にあります。         If InStr(str, vbLf) Then             str = Replace(str, vbLf, vbVerticalTab)         End If エラーの処理がないので、パワーポイントのファイルが開いていない場合には、エラーで止まります。 改善点としては、 ファイルの指定をしておいて、一度に、複数のファイルに対して、処理をするということも検討中。 Sub ExceltoPPtNote()     Dim varRng As Variant     Dim intSNum As Integer     Dim i, j As Integer     Dim MaxPage As Long       Dim PpApp As PowerPoint.Application     Dim PpPrs As PowerPoint.Presentation     Set PpApp = CreateObject("PowerPoint.Application")     Set PpPrs = PpApp.Presentations.Item(1)       MaxPage = Range("ページ数")   ...
続きを読む