MicroStation PowerDraftマクロの11回目です。

今回はテキスト要素を一文字ずつに分解するには

どうすれば良いかを考えます。

Dropを使ってテキスト要素を分解してみます。

コードは以下のようになります。

Dim eleText As TextElement
Dim oEE As ElementEnumerator

Set oEE = eleText.Drop

Do While oEE.MoveNext
  Call ActiveModelReference.AddElement(oEE.Current)
Loop

この方法でテキスト要素を分解した場合

例えば平仮名の「い」では左の部分と右の部分が

別の要素として分解されます。

その上、分解後の要素は複合図形要素となるので

文字要素ではなくなってしまいます。

なので、一文字ずつに分解する場合にDropは使えません。
TextElementには他に文字を一文字ずつに

分解できそうな関数がないので

テキスト要素を読み込んで一文字ずつ要素を追加していく

という地道な方法でやるしかないようです。