CAE2D用の端点形状のサイズを一括で変更するマクロです。

通常操作の場合、

モードで、矢・黒丸のサイズを設定しておいて
再度、「矢頭変更」コマンドで、変更する必要があります。

１つ２つなら、この方法でもいいのだけれども、
そんな変更箇所が、数十個もあると時間が掛かってしまいます。

なら、Excel　VBAで処理してやろう。ってことで
ちょっとしたマクロを作成してみました。

'/////////////////////////////////////////////////////////////////////////
' 黒丸サイズ変更
'/////////////////////////////////////////////////////////////////////////
Public Sub 黒丸サイズ変更()
Dim AppCaeObj As CAE2D.Application
Dim PicObj As CAE2D.Picture
Dim LineObj As CAE2D.Line
Dim 半径 As Double

'変更後のサイズを設定
半径 = 2

Set AppCaeObj = CreateObject("CAE2D.Application")
Set PicObj = AppCaeObj.Draws.ActiveDraw.ActivePicture '現在の作業図象をセット

For Each LineObj In PicObj.Lines
'黒丸がヒットしたら
If LineObj.StartArrowHeadStyle = caeLineEndBlackPoint Then
LineObj.StartArrowHeadWidth = 半径
End If
If LineObj.EndArrowheadStyle = caeLineEndBlackPoint Then
LineObj.EndArrowheadWidth = 半径
End If
Next

MsgBox "サイズ変更完了", vbInformation, "お知らせ"
End Sub

━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─

↓上記のソースを標準モジュール内に入力します。

↓参照設定で、「CAE2D Object Library」にチェックを入れておきます。

CAE2Dを起動し、変更したい線要素がある図象を、

カレント図象にしておきます。

そして、マクロを実行。

↓変更前

↓変更後

にほんブログ村へ

一括で変更する方法があるとしたら、このマクロ、必要ありません。

プチマクロ：黒丸サイズ変更