RootProCAD図面に管理番号を振るスクリプト

cre_num.csx

// 番号設定
var num = "88";

// 番号入力用のレイヤを設定
var doc = Application.ActiveDocument;
var layers = doc.LayerTable;
var lname = "__SEQ_NO";

// UNDO 処理を開始
doc.UndoManager.BeginUndoUnit();
// レイヤ取得
Layer layer = layers.RootLayer.ChildLayers[lname];
// なければ新規
if (layer == null) {
    layer = doc.LayerTable.RootLayer.ChildLayers.AddLayer(lname);
}
layers.CurrentLayer = layer;

// 入力された数値をカレントレイヤに配置
var scal = doc.CurrentLayout.ScaleXDenominator;
var p2d = Geometry.CreatePoint(2 * scal, 2 * scal);
var nums = doc.CurrentDrawing.Shapes.AddText(num, p2d, 0);
nums.FontHeight = 8 * scal;
nums.Layer = doc.LayerTable.CurrentLayer;
nums.Alignment = Alignment.BottomLeft;

// UNDO 処理を終了
doc.UndoManager.EndUndoUnit();