TianJun 发表于 2007-8-10 12:08:00

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

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

stevenwong 发表于 2008-12-19 14:43:00

<p>你的帖子已经发了好长时间了，相信你问题也已经解决了。但是还是忍不住要回复一下。</p><p>由于本人也是刚刚学到的，就现学现买了 嘿嘿。</p><p>想要找到Block的块，不必要每个图元都要循环。使用CAD的过滤器就可以搞定的。</p><p>给你一段代码，这个代码可以将所有的Block和Text全部提出来。然后你再循环就快很多喽。</p><p>&nbsp;&nbsp;&nbsp; filename:=RzListView1.Items.Caption;<br/>&nbsp;&nbsp;&nbsp; ACadApp.Documents.Open(filename,emptyparam,emptyparam);<br/>&nbsp;&nbsp;&nbsp; CadDoc:=ACadApp.ActiveDocument;<br/>&nbsp;&nbsp;&nbsp; CadSs:=CadDoc.SelectionSets.Add('s1');<br/>&nbsp;&nbsp;&nbsp; fltrType:=VarArrayCreate(, varSmallint); //2<br/>&nbsp;&nbsp;&nbsp; fltrData:=VarArrayCreate(, Varvariant);</p><p>&nbsp;&nbsp;&nbsp; fltrType:=100;<br/>&nbsp;&nbsp;&nbsp; //fltrType:=1;</p><p>&nbsp;&nbsp;&nbsp; fltrData:='AcDbMText,AcadBlockReference';<br/>&nbsp;&nbsp;&nbsp; //fltrData:='*';<br/>&nbsp;&nbsp;&nbsp; CadSs.Select(5,emptyparam,emptyparam,fltrType,fltrData);</p>
页: [1]
查看完整版本: 请教高手：怎么用Delphi遍历CAD块及属性