天气与日历 切换到窄版

 找回密码
 立即注册
中国膜结构网
十大进口膜材评选 十大国产膜材评选 十大膜结构设计评选 十大膜结构公司评选
查看: 102|回复: 0

[表格] 数据写入autoCAD

[复制链接]
  • TA的每日心情
    开心
    昨天 08:01
  • 签到天数: 82 天

    [LV.6]常住居民II

    1585

    主题

    204

    回帖

    214748万

    积分

    管理员

    积分
    2147483647
    发表于 2024-3-9 11:12:30 | 显示全部楼层 |阅读模式
    [表格] 数据写入autoCAD

    1. using Autodesk.AutoCAD.ApplicationServices;
    2. using Autodesk.AutoCAD.DatabaseServices;
    3. using Autodesk.AutoCAD.EditorInput;
    4. using Autodesk.AutoCAD.Geometry;
    5. using Autodesk.AutoCAD.Runtime;
    6. namespace TableCreation
    7. {
    8.   public class Commands
    9.   {
    10.     [CommandMethod("CRT")]
    11.     static public void CreateTable()
    12.     {
    13.       Document doc =
    14.         Application.DocumentManager.MdiActiveDocument;
    15.       Database db = doc.Database;
    16.       Editor ed = doc.Editor;
    17.       PromptPointResult pr =
    18.         ed.GetPoint("\nEnter table insertion point: ");
    19.       if (pr.Status == PromptStatus.OK)
    20.       {
    21.         Table tb = new Table();
    22.         tb.TableStyle = db.Tablestyle;
    23.         tb.NumRows = 5;
    24.         tb.NumColumns = 3;
    25.         tb.SetRowHeight(3);
    26.         tb.SetColumnWidth(15);
    27.         tb.Position = pr.Value;
    28.         // Create a 2-dimensional array
    29.         // of our table contents
    30.         string[,] str = new string[5, 3];
    31.         str[0, 0] = "Part No.";
    32.         str[0, 1] = "Name ";
    33.         str[0, 2] = "Material ";
    34.         str[1, 0] = "1876-1";
    35.         str[1, 1] = "Flange";
    36.         str[1, 2] = "Perspex";
    37.         str[2, 0] = "0985-4";
    38.         str[2, 1] = "Bolt";
    39.         str[2, 2] = "Steel";
    40.         str[3, 0] = "3476-K";
    41.         str[3, 1] = "Tile";
    42.         str[3, 2] = "Ceramic";
    43.         str[4, 0] = "8734-3";
    44.         str[4, 1] = "Kean";
    45.         str[4, 2] = "Mostly water";
    46.         // Use a nested loop to add and format each cell
    47.         for (int i = 0; i < 5; i++)
    48.         {
    49.           for (int j = 0; j < 3; j++)
    50.           {
    51.             tb.SetTextHeight(i, j, 1);
    52.             tb.SetTextString(i, j, str[i, j]);
    53.             tb.SetAlignment(i, j, CellAlignment.MiddleCenter);
    54.           }
    55.         }
    56.         tb.GenerateLayout();
    57.         Transaction tr =
    58.           doc.TransactionManager.StartTransaction();
    59.         using (tr)
    60.         {
    61.           BlockTable bt =
    62.             (BlockTable)tr.GetObject(
    63.               doc.Database.BlockTableId,
    64.               OpenMode.ForRead
    65.             );
    66.           BlockTableRecord btr =
    67.             (BlockTableRecord)tr.GetObject(
    68.               bt[BlockTableRecord.ModelSpace],
    69.               OpenMode.ForWrite
    70.             );
    71.           btr.AppendEntity(tb);
    72.           tr.AddNewlyCreatedDBObject(tb, true);
    73.           tr.Commit();
    74.         }
    75.       }
    76.     }
    77.   }
    78. }
    复制代码

     

     

     

     

    [表格] 数据写入autoCAD
    中国膜结构网打造全中国最好的膜结构综合平台 ,统一协调膜结构设计,膜结构施工,膜材采购,膜材定制,膜结构预算全方位服务。 中国空间膜结构协会合作单位。
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|中国膜结构网_中国空间膜结构协会

    GMT+8, 2024-5-17 17:08 , Processed in 0.056600 second(s), 22 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

    快速回复 返回顶部 返回列表