注目の投稿

技術者として人として

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

エクセルからAUTOCADで選択中の円の座標を取得（Ver.2）

 エクセルから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.SelectionSets.Add("Sample")  'いったん選択セットを設定する。
    
    Call objSelSet.SelectOnScreen ' autocad 画面上で、円を選択する。マクロ起動後にAUTOCAD画面で選択する。


    N = ActiveCell.Row
         
         Cells(N, ActiveCell.Column + 0) = "objCircle.center(0)"
         Cells(N, ActiveCell.Column + 1) = "objCircle.center(1)"
         Cells(N, ActiveCell.Column + 2) = "objCircle.center(2)"



    N = ActiveCell.Row + 1

    For Each objEntity In objSelSet
      
      If objEntity.ObjectName = "AcDbCircle" Then
         Set objCircle = objEntity
           
         'Str = "OBJ name" & objEntity.ObjectName & "半径" & objCircle.Area & vbCrLf & "中心座標" & objCircle.center(0) & "," & objCircle.center(1) & "," & objCircle.center(2)
            ' MsgBox Str
           
            ' MsgBox "ECXEL 現在のセルの左に入力します。"
            
         Cells(N, ActiveCell.Column + 0) = objCircle.center(0)
         Cells(N, ActiveCell.Column + 1) = objCircle.center(1)
         Cells(N, ActiveCell.Column + 2) = objCircle.center(2)
         
      
         objEntity.Color = acBlue  '　選択した円を青くする。不要の場合は削除する。
      
         N = N + 1
      End If
    Next
    

    AcadDoc.SelectionSets("Sample").Delete      '使用後　選択セット削除する。

End Sub


コメント

コメントを投稿

このブログの人気の投稿

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つの図の面(角度)を合わせる...
続きを読む

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を作図する 上記のように、 二つの面を選択し、ガイドを選択して図形を作図する ページ DesignSparkMechanicalのページ
続きを読む

DesignSpark Mechanical エクスポートDXF(2D,3D)

イメージ
  DesignSpark Mechanical  から、3DPDF、DXF、で出力が可能 エクスポート　DXF　3D 2D 設定 3D：ソリッドで出力して、AUTOCAD でインポート、AUTOCADからSTEPへ変換する。 2D：CS2 イラストレータで開き、VISIOに、COPY PASTEで貼り付ける。 3DPFFでエラーになる場合、3DPDFが出来ない場合。 コンポーネントの構成が悪い時にエラーとなる。 リストも同様にコンポーネントの構成が悪いと作成されない。 PDFのページ イラストレータで開いてDXFへエクスポート AUTOCADで開いて、STEPへエクスポート デザインスパークにSTEP読み込み後編集。 Rの面に投影して、押出。 この図形を、DXFでエクスポートして、イラストレータで開き。 COPY PASTEで、VISIOに張り付け、文字等を追加して、WORDにメタファイル形式ではりつけることにより、PDFでも、ベクター形式の図形を張り付けることが可能になる。 その他の操作方法リンク DSMについて DSM 曲線SOLIDからパスを作成する方法 DSM コピー COPY方法 DSM オブジェクトの拡大、縮小 DSM5 Solidの分割 DSM コンポーネントの移動ができない DSM5 で、2つの図の面(角度)を合わせる方法 PDF 保護解除 図DXF STEP変換。文字など DSMエクスポートDXF(2D,3D) DSM　パス線長確認
続きを読む