采用陈老师公布的尺寸居中代码 Dim oDoc As DrawingDocument oDoc =ThisApplication.ActiveDocument Dim oSheet As Sheet oSheet =oDoc.ActiveSheet Dim oDrawingDim As DrawingDimension For Each oDrawingDim In oSheet.DrawingDimensions If TypeOf oDrawingDim Is LinearGeneralDimension Or _ TypeOf oDrawingDim Is AngularGeneralDimension Then Call oDrawingDim.CenterText End If Next 1、尺寸居中代码运行一次有大概论不生效的情况，所以直接运行3次。 2、我不希望所有尺寸都居中，有些尺寸我希望在右侧，但是ilogic API 看起来有些头痛，看不懂。 3、当尺寸最化较大时，尺寸线与零件的基线距离会发生变化，暂时没有办法。