【转帖】请教高手：怎么用delphi遍历cad块及属性
 

请教高手：怎么用delphi遍历cad块及属性
www.dimcax.com
请教高手：怎么用delphi遍历cad块及属性
我对delphi比较熟悉，但初学autocad二次开发。
需求：提取cad图纸中的标题栏。
开发环境：delphi6.0 + autocad
1,objrefbldef:acadblockreference;
2,objrefbldef:=tdoc_autocad.modelspace.item(i);
3,objrefbldef.getattributes;
首先声明我不懂delphi，
acadblockreference(块参考)是一种实体类型，tdoc_autocad.modelspace.item(i)的返回值肯定是一个实体，但不一定是块参考类型，比如可能是circle(源)，circle 与acadblockreference不能转换，所以objrefbldef:=tdoc_autocad.modelspace.item(i);若不报错则objrefbldef的值应该为空，相当于c＃的null,也可能根本没有返回值因而objrefbldef还只是声明而已，即没有初始化，3,objrefbldef.getattributes;行访问没有初始化的变量，故有'access violation at address 7875512 in module这类的报错，我估计是变量没有初始化而导致内存方面的问题，再次声明，我不懂delphi，上面的话是瞎猜而已!