rb 发表于 2002-9-17 22:52:00

请教

在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
请问怎样修改？

秋枫 发表于 2002-9-17 23:00:00

不存在的属性，改用dimobj.extline1point 试试, 相关属性

ExtensionLineColor

ExtensionLineExtend

ExtensionLineOffset

ExtensionLineWeight

ExtLine1Point

ExtLine2Point

ExtLine1Suppress

ExtLine2Suppress

rb 发表于 2002-9-17 23:17:00

我的目的是要设定尺寸界线的长度。但不知怎样做。

页: [1]
查看完整版本: 请教