如何用DELPHI改变CAD中的标注箭头形式？

Question

小弟被逼无奈，作不出来就没法毕业～特此在春光明媚之时跪求不起，直到有哪个大大能告诉我用DELPHI改变CAD中的标注箭头形式？
我使用这个建立了标注：try
AcadApp:= GetActiveOleObject('AutoCad.Application'); //取得当前打开的autocad对象
except
AcadApp:=CreateOleObject('AutoCad.Application'); //没有创建新的autocad对象
end;
AcadDoc:=AcadApp.ActiveDocument; //当前图纸文件
AcadMS:=AcadDoc.ModelSpace; //模型空间yd_a7:=VarArrayCreate([0,2],vt_r8);
yd_a7[0]:=end_a11[0]+strtofloat(tydkd.Caption)/1000*20;
yd_a7[1]:=yd_a6[1];
yd_a7[2]:=0;yd_a8:=VarArrayCreate([0,2],vt_r8);
yd_a8[0]:=yd_a7[0];
yd_a8[1]:=yd_a5[1];
yd_a8[2]:=0;AcadMS.AddDimAligned(yd_a7,yd_a8,yd_a8).update;但是这样的标注是机械类的箭头，如何才能改为土木类的斜杠？？？大大们啊～～救救小弟了啊～～～

Answer 1

晕~~被逼无奈啊～老师让我做给排水工程的ＣＡＤ二次开发作为毕业设计，要根据水质，水量得到水处理构筑物的尺寸，生成ＣＡＤ施工图～～图纸的生成倒是搞定了，就是标注是机械类的～～～我一个给排水专业的要被他玩死了～