请教

rb

在Delphi 中按如下步骤创建尺寸标注：

dimObj:=mdp.AddDimAligned(vararrayref(Point1), vararrayref(Point2),
                  vararrayref(PointText));

        dimObj.UnitsFormat:= 6;


        dimObj.ArrowheadSize:=10;
        dimObj.Arrowhead2Type:=4 ;
        dimObj.Arrowhead1Type:=4 ;
        dimObj.ArrowheadSize:=4;
        dimObj.ExtensionLineExtend:=8;
        dimObj.TextOverride := '该值为 <>';
        dimObj.TolerancePrecision:=2;

     //------------------------------
      //  dimObj.DimensionLineColor:=25;

      //指定标注、引线和公差对象的尺寸线颜色。

       // dimObj.DimensionLineWeight:=1;

      //指定尺寸线的线宽。

      //DimLine1Suppress, DimLine2Suppress

      //指定尺寸线的隐藏。

        //DimLineInside

       //指定只在尺寸界线内显示尺寸线。

           //  dimObj.ExtensionLineColor:=25;
//
        //指定尺寸界线的颜色。

           //dimObj.ExtensionLineExtend:=50;

        //指定尺寸界线超出尺寸线的距离。

          //  dimObj.ExtensionLineOffset:=100;

         //指定尺寸界线到定义该标注的原点的偏移距离。

                 //dimObj.ExtensionLineWeight:=1;

         //设置尺寸界线的线宽。

         dimObj.ExtLine1EndPoint:=P3;
         dimObj.ExtLine2EndPoint:=P4;
         dimObj.ExtLine1StartPoint:=P1;
         dimObj.ExtLine2StartPoint:=P2;

          dimObj.update;


提示：Method ExtLine1EndPoint not supported by automation object
请问怎样修改？

秋枫

ExtensionLineColor

ExtensionLineExtend

ExtensionLineOffset

ExtensionLineWeight

ExtLine1Point

ExtLine2Point

ExtLine1Suppress

ExtLine2Suppress

rb