CAD::Format::DWG::AC1_50 - Read AutoCAD 1.50 DWG file.
use CAD::Format::DWG::AC1_50;
my $dwg = CAD::Format::DWG::AC1_50->new;
my $dwg = CAD::Format::DWG::AC1_50::from_file($dwg_file);
my $blocks_ar = $dwg->blocks;
my $entities = $dwg->entities;
my $header = $dwg->header;
my $layers_ar = $dwg->layers;
my $linetypes_ar = $dwg->linetypes;
my $styles_ar = $dwg->styles;
my $views_ar = $dwg->views;
my $block_entities = $dwg->block_entities;
In distribution is kaitai structure definition file dwg_ac1_50.ksy which described AutoCAD DWG format version AC1.50.
my $dwg = CAD::Format::DWG::AC1_50->new;
Constructor.
Returns instance of object.
my $dwg = CAD::Format::DWG::AC1_50->from_file($dwg_file);
Create instance of object from DWG file.
Returns instance of object.
my $blocks_ar = $dwg->blocks;
Get list of blocks in DWG file.
Returns reference to array with CAD::Format::DWG::AC1_50::Block instances.
my $entities_ar = $dwg->entities;
Get list of entities in DWG file.
Returns reference to array with CAD::Format::DWG::AC1_50::Entity instances.
my $header = $dwg->header;
Get header of DWG file.
Returns instance of CAD::Format::DWG::AC1_50::Header object.
my $layers_ar = $dwg->layers;
Get list of layers in DWG file.
Returns reference to array with CAD::Format::DWG::AC1_50::Layer instances.
my $linetypes_ar = $dwg->linetypes;
Get list of line types in DWG file.
Returns reference to array with CAD::Format::DWG::AC1_50::Linetype instances.
my $styles_ar = $dwg->styles;
Get list of styles in DWG file.
Returns reference to array with CAD::Format::DWG::AC1_50::Style instances.
my $views_ar = $dwg->views;
Get list of views in DWG file.
Returns reference to array with CAD::Format::DWG::AC1_50::View instances.
my $block_entities = $dwg->block_entities;
Get list of block entitites.
Returns CAD::Format::DWG::AC1_50::RealEntities instance
https://github.com/michal-josef-spacek/CAD-Format-DWG-AC1_50.git
Michal Josef Špaček mailto:skim@cpan.org
© 2021-2023 Michal Josef Špaček
BSD 2-Clause License
0.01