Option Explicit XShade.Message"====================start=====================" Call Main() XShade.Message"====================end=====================" '================================================================================ '== 曲線(ベジェ曲線)に関する共通 main '================================================================================ '----------------ベジェ曲線用座標データの取得 sub Main() Dim NA,Vec3,PtN