明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4122|回复: 1

请教高手:怎么用Delphi遍历CAD块及属性

[复制链接]
发表于 2007-8-10 12:08 | 显示全部楼层 |阅读模式

    我对Delphi比较熟悉,但初学AutoCAD二次开发。
    需求:提取CAD图纸中的标题栏。
    开发环境:Delphi6.0 + AutoCAD2006
    设计:1、创建块,在块中用程序自动绘制标题栏。将图号,图纸名等信息加入块的属
性。插入CAD中
          2、遍历CAD模块空间的对象,找到“标题栏”块,读取或修改属性。
    问题现象及处理过程:
            var
                TDoc_AutoCAD: acadDocument;
                varAttribute:Variant;
                objBlDef:AcadBlock;
                objRefBlDef:AcadBlockReference;
                i:integer;
            for i:=0 to TDoc_AutoCAD.ModelSpace.Count -1 do     
                begin
                objRefBlDef:=TDoc_AutoCAD.ModelSpace.Item(i);
                objRefBlDef.GetAttributes;
                end;
        编译时报错:Incompatible types: 'IAcadEntity' and  'IAcadBlockReference'                                       
-----------------------------------------------------------------------------------
        我估计时类型错误,所以改为强制转换
            for i:=0 to TDoc_AutoCAD.ModelSpace.Count -1 do     
                begin
                objRefBlDef:=TDoc_AutoCAD.ModelSpace.Item(i);
                objRefBlDef.GetAttributes;
                end;
        编译通过,但系统运行到   objRefBlDef.GetAttributes;报错。
         raised exception class EAccessViolation with message 'Access violation at address 7875512 in module 'RPCRT14.dll',Read of address 000000',Process Stopped.use step or Run to Continue.
----------------------------------------------------------------------------------
        如果将objRefBlDel定义改为AcadEntity类型,又没有GetAttributes方法,
        也就是我没法获得参照块的属性。
----------------------------------------------------------------------------------
        我改为VB6.0将上述代码改写
        for each objRefBlDef in TDoc_AutoCAD.ModelSpace
            objRefBlDef.GetAttributes;
        next 
        运行正常。
     
        问题:1、请问您是怎么解决这个问题?
              2、Delphi真的不适应AutoCAD的二次开发吗?

发表于 2008-12-19 14:43 | 显示全部楼层

你的帖子已经发了好长时间了,相信你问题也已经解决了。但是还是忍不住要回复一下。

由于本人也是刚刚学到的,就现学现买了 嘿嘿。

想要找到Block的块,不必要每个图元都要循环。使用CAD的过滤器就可以搞定的。

给你一段代码,这个代码可以将所有的Block和Text全部提出来。然后你再循环就快很多喽。

    filename:=RzListView1.Items.Caption;
    ACadApp.Documents.Open(filename,emptyparam,emptyparam);
    CadDoc:=ACadApp.ActiveDocument;
    CadSs:=CadDoc.SelectionSets.Add('s1');
    fltrType:=VarArrayCreate([0,0], varSmallint); //2
    fltrData:=VarArrayCreate([0,0], Varvariant);

    fltrType[0]:=100;
    //fltrType[1]:=1;

    fltrData[0]:='AcDbMText,AcadBlockReference';
    //fltrData[1]:='*';
    CadSs.Select(5,emptyparam,emptyparam,fltrType,fltrData);

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 07:32 , Processed in 0.224961 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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