설계와 프로그래밍

Solid Edge 좌표계 자동 작성 매크로 입니다.Excel 이용해 좌표계 생성 하는 매크로입니다. 코드 소스Option Explicit 'Excel -> Edge Sub Make_Coordnate() On Error Resume Next Dim EDGE As SolidEdgeFramework.Application Dim EDoc As SolidEdgePart.PartDocument Dim OldStBar As String Set EDGE = GetObject(, "SolidEdge.Application") If EDGE Is Nothing Then Err.Clear Set EDGE = CreateObject("SolidEdge.Application") Set EDoc = EDGE.Documents.A..