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