ご質問頂いていたｴｯｼﾞを指定してﾊﾟｲﾌﾟ形状を作成するﾏｸﾛです。色々と不足している部分はありますが、ご参考になれば。 Dim PartDoc As PartDocument Dim oPart As Part Dim HBody As HybridBody Sub CATMain() Set PartDoc = CATIA.ActiveDocument Set oPart…

会社のﾃﾞｰﾀｻｰﾊﾞｰが、暑さで壊れてしまい全く仕事になりませんでした。 暇だったので、形状ｾｯﾄと平面を指定し、形状ｾｯﾄの階層を維持しつつ ﾃﾞｰﾀﾑ化させ対称形状を作成するﾏｸﾛを作ってみました。 (スケッチは対象外です)例としてこんな感じのﾃﾞｰﾀです。 ﾏｸﾛ実…