CAD关于块表操作2（com接口网页版）

        function AddBlockRrecord(sName,blkOriginPoint) {
    // 取当前数据库.
    var curDatabase = mxOcx.GetDatabase();
    // 得到块表
    var blkTable = curDatabase.GetBlockTable();
  
    // 判断块表是否已经有该名称的块名。
    if (blkTable.Has(sName))
    {
        var blkRec = blkTable.GetAt(sName, true);
        // 如果块被删除，就反删除。
        blkRec.SetProp("unErase", null);
        return true;
    }
    // 新增一个块表记录.
    var blkNewRec = blkTable.Add(sName);
    if (blkNewRec == null)
        return false;
    // 设置块表记录的插入基点
    blkNewRec.Origin = blkOriginPoint;
    return true;
}

var  pt = mxOcx.NewPoint();
pt.x = 100;
pt.y = 100;
AddBlockRrecord("MyBlkName", pt);
alert("成功");