chsugiyama

デザインスパークメカニカル　オブジェクトの拡大、縮小 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つの図の面(角度)を合わせる

DesignSpark Mechanical SOLIDの分割 概要 SOLIDがひとつの場合に分解したい時があります。 分解する場合には、分解する面が必要になります。 方法 下記のように、押し出された文字を分割する場合 「ボディ分割」を実行することでSOLIDを分解することが可能になります。 操作方法例 四角のSOLIDの上に文字を押し出したSOLIDこれが、ひとつのSOLIDで構成されています。 分割前のコンポーネントは、solidひとつから構成されている。 「nameplate2」の下には「Solid」 がひとつ 分割したい面を選択する  下の図では「nameplate2」のオレンジ色の面を選択しています。 「ボディ分割」を実行 コンポーネントが分割される。 「nameplate2」 の下に、「solid」が、複数に分解されています。 「N」は、「solid2」に、分割されていることが、確認できます。 各コンポーネントを選択してから、ボディの分割を実行することも可能。 その他の操作方法リンク DSMについて DSM 曲線SOLIDからパスを作成する方法 DSM コピー COPY方法 DSM オブジェクトの拡大、縮小 DSM5 Solidの分割 DSM コンポーネントの移動ができない DSM5 で、2つの図の面(角度)を合わせる方法 PDF 保護解除 図DXF STEP変換。文字など DSMエクスポートDXF(2D,3D) DSM　パス線長確認

 エクセルからAUTOCADで選択中の円の座標を取得 選択している円のデータ情報を知りたいという質問がありましたので、下記のように変更しました。 エクセルのVBAのみで、Autocad側のマクロの操作はありません。 SelectionSets.Add　選択セットを使用しています。VBAの最後に削除しています。 AUTOCADのコードでは、ThisDrawingですが、Excelから設定するには、AcadDocと書き直します。 ThisDrawing.SelectionSets.Add("Sample") AcadDoc.SelectionSets.Add("Sample")  AcadDocは下記のように定義 Set AcadDoc = AcadApp.ActiveDocument() 参照設定 AutoCAD 2021 Type Library にチェックしています。 AUTOCADで、選択した円のデータを抽出 １．エクセルで、マクロ起動。 ２．AUTOCAD画面で円を選択。 　　右クリックで確定 ３．VBA 動作　 　　円を青色に変更、Excelに座標を書き出す。 VBA CODE　エクセル Option Explicit Private AcadDoc As AutoCAD.AcadDocument     'ﾓｼﾞｭｰﾙ定義 Private AcadApp As AutoCAD.AcadApplication  ' AutoCAD アプリケーション変数 Public Sub AutocadSelectionSET()     Set AcadApp = GetObject(, "AutoCAD.Application")    ' xls追加     Set AcadDoc = AcadApp.ActiveDocument()               Dim objSelSet As AcadSelectionSet     Dim objEntity As AcadEntity     Dim objCircle As AcadCircle     Dim Str As String     Dim N     Set objSelSet = AcadDoc.Selec