bluelover 发表于 2020-12-1 23:38:48

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

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

cmcc_gy 发表于 2022-4-27 18:07:15

会了吗 老哥

landsat99 发表于 2022-4-27 22:38:09

本帖最后由 landsat99 于 2022-4-27 22:40 编辑


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





landsat99 发表于 2022-4-27 22:50:02

本帖最后由 landsat99 于 2022-4-27 22:54 编辑

创建动态块得 .net或Objarx

下面这段.net 试试看


using System;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;


namespace Sample
{
    class AddBlock
    {
      /// <summary>
      /// 把块定义变为块参照插入
      /// </summary>
      
      public void AddBk()
      {
            Database db = HostApplicationServices.WorkingDatabase;
            ObjectId blkid;

            //创建块定义
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                BlockTable bt = trans.GetObject(db.BlockTableId, OpenMode.ForWrite) as BlockTable;
                BlockTableRecord blk = new BlockTableRecord();
                blk.Name = "BLK";
                Line L = new Line(Point3d.Origin, new Point3d(1000, 1000, 0));
                Circle C = new Circle(Point3d.Origin, Vector3d.ZAxis, 500);
                blk.AppendEntity(L);
                blk.AppendEntity(C);
                blkid = bt.Add(blk);
                trans.AddNewlyCreatedDBObject(blk, true);
                trans.Commit();
            }
            
            //把块参照添加到块表记录
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                BlockTable bt = tr.GetObject(db.BlockTableId, OpenMode.ForRead) as BlockTable;
                BlockTableRecord btr = tr.GetObject(bt, OpenMode.ForWrite) as BlockTableRecord;
                BlockReference br = new BlockReference(new Point3d(0,0, 0), blkid);   // 通过块定义创建块参照
                btr.AppendEntity(br);
                tr.AddNewlyCreatedDBObject(br, true);   // 通过事务添加块参照到数据库
                tr.Commit();
            }
      }
    }
}



cmcc_gy 发表于 2022-4-28 17:48:52

好的我试试

chixun99 发表于 2022-5-4 00:13:46

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

MXS 发表于 2022-9-20 20:04:35

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

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

Linxian1028 发表于 2022-10-1 18:12:26

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

小捷 发表于 2023-10-13 15:27:13

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

weimeng555 发表于 2024-5-22 02:28:33

发现个问题，动态块改可见性参数后，内容未跟着变动，想问下有什么办法解决吗
页: [1]
查看完整版本: 请教下VBA如何创建动态块？