请教下VBA如何创建动态块？

bluelover

如题，请教下VBA如何创建动态块？
有可以参考的代码可以分享吗？
非常感谢！

cmcc_gy

会了吗 老哥

landsat99

官方已明确：动态块可VBA编辑属性、 可参数控制变形；但不可VBA/Vlisp创建。

landsat99

创建动态块得 .net或Objarx

下面这段.net 试试看

2. using System;
   
3. using Autodesk.AutoCAD.DatabaseServices;
   
4. using Autodesk.AutoCAD.Geometry;
   
5. using Autodesk.AutoCAD.Runtime;
   
6. 
   
7. [assembly: CommandClass(typeof(Sample.AddBlock))]
   
8. namespace Sample
   
9. {
   
10.     class AddBlock
    
11.     {
    
12.         /// <summary>
    
13.         /// 把块定义变为块参照插入
    
14.         /// </summary>
    
15.         [CommandMethod("AddBlock")]
    
16.         public void AddBk()
    
17.         {
    
18.             Database db = HostApplicationServices.WorkingDatabase;
    
19.             ObjectId blkid;
    
20. 
    
21.             //创建块定义
    
22.             using (Transaction trans = db.TransactionManager.StartTransaction())
    
23.             {
    
24.                 BlockTable bt = trans.GetObject(db.BlockTableId, OpenMode.ForWrite) as BlockTable;
    
25.                 BlockTableRecord blk = new BlockTableRecord();
    
26.                 blk.Name = "BLK";
    
27.                 Line L = new Line(Point3d.Origin, new Point3d(1000, 1000, 0));
    
28.                 Circle C = new Circle(Point3d.Origin, Vector3d.ZAxis, 500);
    
29.                 blk.AppendEntity(L);
    
30.                 blk.AppendEntity(C);
    
31.                 blkid = bt.Add(blk);
    
32.                 trans.AddNewlyCreatedDBObject(blk, true);
    
33.                 trans.Commit();
    
34.             }
    
35.             
    
36.             //把块参照添加到块表记录
    
37.             using (Transaction tr = db.TransactionManager.StartTransaction())
    
38.             {
    
39.                 BlockTable bt = tr.GetObject(db.BlockTableId, OpenMode.ForRead) as BlockTable;
    
40.                 BlockTableRecord btr = tr.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord;
    
41.                 BlockReference br = new BlockReference(new Point3d(0,0, 0), blkid);     // 通过块定义创建块参照
    
42.                 btr.AppendEntity(br);
    
43.                 tr.AddNewlyCreatedDBObject(br, true);   // 通过事务添加块参照到数据库
    
44.                 tr.Commit();
    
45.             }
    
46.         }
    
47.     }
    
48. }

using System;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.Geometry;<br /> using Autodesk.AutoCAD.Runtime;<br /> <br /> [assembly: CommandClass(typeof(Sample.AddBlock))]<br /> namespace Sample<br /> {<br />     class AddBlock<br />     {<br />         /// <summary><br />         /// 把块定义变为块参照插入<br />         /// </summary><br />         [CommandMethod("AddBlock")]<br />         public void AddBk()<br />         {<br />             Database db = HostApplicationServices.WorkingDatabase;<br />             ObjectId blkid;<br /> <br />             //创建块定义<br />             using (Transaction trans = db.TransactionManager.StartTransaction())<br />             {<br />                 BlockTable bt = trans.GetObject(db.BlockTableId, OpenMode.ForWrite) as BlockTable;<br />                 BlockTableRecord blk = new BlockTableRecord();<br />                 blk.Name = "BLK";<br />                 Line L = new Line(Point3d.Origin, new Point3d(1000, 1000, 0));<br />                 Circle C = new Circle(Point3d.Origin, Vector3d.ZAxis, 500);<br />                 blk.AppendEntity(L);<br />                 blk.AppendEntity(C);<br />                 blkid = bt.Add(blk);<br />                 trans.AddNewlyCreatedDBObject(blk, true);<br />                 trans.Commit();<br />             }<br />             <br />             //把块参照添加到块表记录<br />             using (Transaction tr = db.TransactionManager.StartTransaction())<br />             {<br />                 BlockTable bt = tr.GetObject(db.BlockTableId, OpenMode.ForRead) as BlockTable;<br />                 BlockTableRecord btr = tr.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord;<br />                 BlockReference br = new BlockReference(new Point3d(0,0, 0), blkid);     // 通过块定义创建块参照<br />                 btr.AppendEntity(br);<br />                 tr.AddNewlyCreatedDBObject(br, true);   // 通过事务添加块参照到数据库<br />                 tr.Commit();<br />             }<br />         }<br />     }<br /> }

cmcc_gy

好的我试试

chixun99

好像是没有对应的动态块创建命令，我一般都是手动设置动态块的属性和范围后，VBA可调用已存在的对应块定义，插入块参照，设置指定的参数属性。

MXS

landsat99 发表于 2022-4-27 22:38
官方已明确：动态块可VBA编辑属性、 可参数控制变形；但不可VBA/Vlisp创建。

您好，想请教一下如何切换动态块，使用vba，想最后附属到
cad自带的自定义按键

Linxian1028

VBA，怎么调整动态块的参数？

小捷

动态块肯定是手动创建，代码更改数据