CATIAです。マクロで普通に点を作成した場合は、絶対座標の位置に点が作成されますが、 特定の座標系に依存する位置での点の作成を行うサンプルです。 Option Explicit Sub CATMain() ' 座標系の選択 Dim msg As String msg = "使用する座標系を選択 : ESCｷｰ…