CAD绘制文字自动居中的标注（网页版）

时间：2019-07-09 16:16:09 阅读：97 评论：0 收藏：0 [点我收藏+]

var MxDrawDatabase1 = mxOcx.GetDatabase();
MxDrawDatabase1.LinetypeScale = 15;
 
var curDimRecord = MxDrawDatabase1.GetDimStyleTable().GetAt(MxDrawDatabase1.CurrentlyDimstyleName, false);
var curTextRecord = MxDrawDatabase1.GetTextStyleTable().GetAt(MxDrawDatabase1.CurrentlyTextStyle, false);
curDimRecord.SetDimVarDouble(40, 1000);//设置缩放比例Dimscale
curDimRecord.SetDimVarInt(271, 0);//设置两位小数DimDle
curDimRecord.SetDimVarInt(173, 1);  //设置需要显示符号
curDimRecord.SetDimVarInt(289, 3);
curDimRecord.SetDimVarInt(174, 1);
curDimRecord.SetDimVarString(342, "_ARCHTICK");    //设置建筑标记
curTextRecord.bigFontFileName = "gbcbig.shx";
curTextRecord.fileName = "tssdeng.shx";
curTextRecord.Name = "默认样式";
 
var dimID = mxOcx.DrawDimRotated(100, 100, 100, 200, 200, 150, 0);
var Dim = mxOcx.ObjectIdToObject(dimID);
Dim.DimensionText = "12345";
Dim.SetDimVarInt(173, 1);  //设置需要显示符号
Dim.SetDimVarInt(289, 0);
 
Dim.SetDimVarInt(174, 1);
Dim.SetDimVarString(342, "_ARCHTICK");    //设置建筑标记
 
var textPos = mxOcx.NewPoint();
textPos.x = 200;
textPos.y = 150;
Dim.TextPosition = textPos;
Dim.UsingDefaultTextPosition = false;
Dim.RecomputeDimBlock(true);
mxOcx.UpdateDisplay();
mxOcx.ZoomAll();

CAD绘制文字自动居中的标注（网页版）

原文：https://www.cnblogs.com/yzy0224/p/11158031.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)