我有在网上找到汇出excel 可转出来都是 特征的 请问如何变成是尺寸@@ 一直搞不懂0..0 Private Sub CommandButton1_Click() On Error GoTo abc: 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 PCDLRN.Command Dim featName As String Dim measX, measY, measZ, measT As String Dim theoX, theoY, theoZ As String Dim ii As Integer ii = 2 For Each cmd In cmds If cmd.IsMeasuredFeature Or cmd.IsDCCFeature Then featName = cmd.ID measX = cmd.GetText(MEAS_X, 0) measY = cmd.GetText(MEAS_Y, 0) measZ = cmd.GetText(MEAS_Z, 0) theoX = cmd.GetText(THEO_X, 0) theoY = cmd.GetText(THEO_Y, 0) theoZ = cmd.GetText(THEO_Z, 0) Cells(ii, 1) = featName Cells(ii, 2) = theoX Cells(ii, 3) = theoY Cells(ii, 4) = theoZ Cells(ii, 5) = measX Cells(ii, 6) = measY Cells(ii, 7) = measZ ii = ii + 1 End If Next Exit Sub abc: MsgBox "pcdmis" End Sub