'xl Declarations
Dim xlApp As Object
Dim xlWorkbooks As Object
Dim xlWorkbook As Object
Dim xlSheet As Object
Dim count As Integer
'Open Excel And Base form
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbooks = xlapp.Workbooks
Set xlWorkbook = xlWorkbooks.Open("c:\cmmdata\성적서.xls")
Set xlSheet = xlWorkbook.Worksheets(1)
'pcdlrn declarations And Open ppg
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Dim DCmd As Object
Dim DcmdID As Object
Dim DimID As String
For Each Cmd In Cmds
If Cmd.IsDimension Then
If Cmd.Type = DIMENSION_START_LOCATION Then
Set DcmdID = Cmd.DimensionCommand
DimID = DcmdID.ID
End If
If Cmd.Type <> DIMENSION_START_LOCATION And _
Cmd.Type <> DIMENSION_END_LOCATION And _
Cmd.Type <> DIMENSION_TRUE_START_POSITION And _
Cmd.Type <> DIMENSION_TRUE_END_POSITION Then
Set DCmd = Cmd.DimensionCommand