乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 97|回复: 1

AutoCAD.Net圆弧半径标注延长线

[复制链接]

34

主题

223

帖子

17

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
352
发表于 2021-7-29 08:44:00 | 显示全部楼层 |阅读模式
本帖转载于:
  1.         #region 注册RegApp
  2.         public static void CheckRegApp(string regapptablename)
  3.         {
  4.             Database db = HostApplicationServices.WorkingDatabase;
  5.             using (Transaction trans = db.TransactionManager.StartTransaction())
  6.             {
  7.                 RegAppTable appTbl = trans.GetObject(db.RegAppTableId, OpenMode.ForWrite) as RegAppTable;
  8.                 if (!appTbl.Has(regapptablename))
  9.                 {
  10.                     RegAppTableRecord appTblRcd = new RegAppTableRecord();
  11.                     appTblRcd.Name = regapptablename;
  12.                     appTbl.Add(appTblRcd);
  13.                     trans.AddNewlyCreatedDBObject(appTblRcd, true);
  14.                 }
  15.                 trans.Commit();
  16.             }
  17.             return;
  18.         }
  19.         #endregion
  20.         [CommandMethod("mydra")]
  21.         public static void mydra()
  22.         {
  23.             // 获取当前数据库
  24.             Document acDoc = Application.DocumentManager.MdiActiveDocument;
  25.             Database acCurDb = acDoc.Database;
  26.             // Start a transaction启动事务
  27.             using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
  28.             {
  29.                 // Open the Block table for read以读模式打开块表
  30.                 BlockTable acBlkTbl;
  31.                 acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
  32.                 OpenMode.ForRead) as BlockTable;
  33.                 // Open the Block table record Model space for write
  34.                 // 以写模式打开块表记录ModelSpace
  35.                 BlockTableRecord acBlkTblRec;
  36.                 acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
  37.                 OpenMode.ForWrite) as BlockTableRecord;
  38.                 // Create the radial dimension创建半径标注
  39.                 RadialDimension acRadDim = new RadialDimension();
  40.                 acRadDim.Center = new Point3d(0, 0, 0);
  41.                 acRadDim.ChordPoint = new Point3d(5, 5, 0);
  42.                 acRadDim.LeaderLength = 5;
  43.                 acRadDim.DimensionStyle = acCurDb.Dimstyle;
  44.                 // 添加新对象到模型空间和事务               
  45.                 CheckRegApp("ACAD_DSTYLE_DIMRADIAL_EXTENSION");//自定义函数检查RegApp名字是否存在,不存在就添加regApp名字
  46.                 ResultBuffer resBuf = new ResultBuffer();
  47.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataRegAppName, "ACAD_DSTYLE_DIMRADIAL_EXTENSION"));
  48.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataInteger16, 387));
  49.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataInteger16, 1));
  50.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataInteger16, 388));
  51.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataReal, 6.26953));//圆弧的开始角度
  52.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataInteger16, 390));
  53.                 resBuf.Add(new TypedValue((int)DxfCode.ExtendedDataReal, 2.67146));//圆弧的结束角度
  54.                 acRadDim.XData = resBuf;
  55.                 acBlkTblRec.AppendEntity(acRadDim);
  56.                 acTrans.AddNewlyCreatedDBObject(acRadDim, true);
  57.                 // 提交修改,关闭事务
  58.                 acTrans.Commit();
  59.             }
  60.         }

nabsqezxobz.png

nabsqezxobz.png

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

4

主题

73

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2021-7-30 12:17:00 | 显示全部楼层
小青春牛逼!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 22:09 , Processed in 0.846375 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表