CATIA自動化のススメ
CATIA業務においての自動化とはどんな物か?CATIAを業務としている人の中でCATIAの自動化、効率化を行っていないところも多くあると思います。今回はCATIAの業務を自動化・効率化する方法について少し体験していただこうと思います。例えば毎回XY平面の原点を中心に100mm四方のサーフェスを作る業務があるとします。実際に手作業でこのサーフェスを作るとなるとだいたい5分程度かかってしまうと思います。この5分の作業を数秒で終わらせてしまうのがCATIAの自動化・効率化です。実際に体験してもらうためにCATIAが導入されている端末にテキストファイルを新規作成して中身に以下の内容を書き込んでみてください。(選択してコピーで構いません)'=========================================='Const SIZE_VALUE As Double = 100#
Dim SIZE_VALUE 'As Double
SIZE_VALUE = 100
Dim appCATIA 'As INFITF.Application
Set appCATIA = GetObject(, "CATIA.Application")
Dim docs 'As INFITF.Documents
Set docs = appCATIA.Documents
Dim partDocNew 'As MECMOD.PartDocument
Set partDocNew = docs.Add("Part")
Dim partNew 'As MECMOD.Part
Set partNew = p
0