CorelDRAW VBAの深淵：高度なブール演算とメモリマネジメントによる「ジオメトリ自動生成」の極意
CorelDRAW VBAは、単なるマクロ記録の延長ではない。CorelDRAWの内部エンジンである`VGCore`を直接叩くことは、ドローイングの神の領域に触れることに等しい。
特に、カッティングプロッター用のパス生成において、複雑な形状の「抜き（Exclusion）」や「結合（Weld）」を手動で行うのはエンジニアの恥だ。今回は、`ShapeRange`を活用した高度なジオメトリ操作と、VBA特有の「メモリの墓場」を回避するアーキテクチャについて、現場の知見を共有する。
—
1. オブジェクトモデルの誤解を解く：`Shape`と`ShapeRange`の真実
多くの開発者が陥る罠は、`Shape`オブジェクトを個別に操作し続けることだ。`Shape.CreateSelection`を乱発すれば、ドキュメントのスタックは汚染され、処理速度は指数関数的に低下する。
真のアーキテクトは`ShapeRange`を「ジオメトリのバッチ処理コンテナ」として扱う。 複数のパスを論理的なグループ（Range）にまとめ、一括で演算を投げる。これが、CorelDRAWのレンダリングパイプラインを最適化する唯一の道だ。
2. 高度なブール演算の最適化実装
`CreateShapeRangeFromExclusion`や`Weld`などのメソッドは、呼び出しの順序と「対象の選定」が全てを決める。以下のコードは、バックグラウンドでのメモリリークを防ぎつつ、プロッター用パスを生成するテンプレートだ。
‘ @brief 高度なブール演算によるパス生成の最適化
Public Sub ProcessCuttingPath()
Dim doc As Document
Set doc = ActiveDocument
‘ 1. エラーハンドリングと最適化の準備
On Error GoTo Cleanup
doc.BeginCommandGroup “Geometry_Optimization”
‘ 2. メモリと描画の最適化（重要：再描画を止める）
doc.PreserveSelection = False
Dim sr As ShapeRange
Set sr = ActiveSelectionRange ‘ 選択されたオブジェクト群
If sr.Count < 2 Then Exit Sub
' 3. ブール演算の実行（Exclusion：抜き）
' 新しいレイヤーを作成してそこに結果を排出する
Dim targetLayer As Layer
Set targetLayer = doc.ActivePage.CreateLayer("Cutting_Layer")
' 演算対象を保持する一時的なShapeRangeを構築
Dim resultShape As Shape
Set resultShape = sr.CreateShapeRangeFromExclusion(sr.FirstShape)
' 4. 後処理：不要な元のオブジェクトを破棄（メモリ解放）
sr.Delete
' 5. プロッター用の線幅・属性付与
With resultShape
.Outline.SetProperties 0.001, OutlineStyles(0), CreateRGBColor(255, 0, 0)
.Fill.ApplyNoFill
End With
Cleanup:
' 6. グループの終了とメモリの明示的解放
doc.EndCommandGroup
Set sr = Nothing
Set resultShape = Nothing
If Err.Number <> 0 Then
MsgBox “Geometry Error: ” & Err.Description, vbCritical
End If
End Sub
3. レガシー環境におけるメモリの「生」の管理
CorelDRAW VBAはガベージコレクションが極めて弱い。特に`ActiveDocument`や`ActivePage`を多用するループ処理では、オブジェクトの参照がスタックに残り、数千回の演算を行うと確実に「Out of Memory」でクラッシュする。
- 明示的な `Nothing` 代入: ループの最後で必ずオブジェクト変数を解放せよ。
- イベントの抑制: `Application.EventsEnabled = False` を活用し、演算中の画面描画を停止せよ。これは速度を10倍以上向上させる。
- Windows APIの活用: 外部のDLLやシステム情報を取得する必要がある場合、`Declare PtrSafe`を使用して64bit環境へ完全移行せよ。32bit時代の`Integer`型は、現代のCorelDRAW環境ではバグの温床となる。
4. システム間連携：カッティングプロッターへの架け橋
社内システムから生成されたCSVやXMLを読み込み、CorelDRAW側で自動作図する場合、「ジオメトリの正規化」が不可欠だ。
1. 座標系の統一: インポートした数値は、CorelDRAWの内部座標系（インチベースまたはミリ単位の固定小数）に正確に変換せよ。
2. ノードのクリーンアップ: 演算後に発生する「微小な重複ノード」は、カッティングプロッターの刃を傷め、動作を停止させる原因になる。`Shape.Curve.Nodes.Delete` を用いて、一定距離以下のノードを間引くサブルーチンを必ず通すこと。
チーフアーキテクトからの助言
CorelDRAW VBAは、もはやレガシーなツールではない。高度な自動化を可能にする「強力なエンジン」だ。
あなたが書くコードは、単なるスクリプトではなく、製造現場の効率を左右するインフラの一部である。オブジェクトを生成するたびに、それがメモリをどれだけ消費し、どのタイミングで破棄されるべきか。その「呼吸」を感じられるようになって初めて、プロフェッショナルと呼べる。
次は、`Shape.Curve`を直接操作し、ベジェ曲線の制御点を数学的に動かす低レイヤー領域へ踏み込もう。そこには、まだ誰も知らない自動化の地平が広がっている。
