CADSoftTools

Hi,

I received new version of CadImportVCL (7.2.5) and replaced the old version with it.

Now Angle in class TsgDXFMText is always set to 0 instead of text angle. This happens only with AutoInsert set to false. In previous (7.1) version it was working.

I found in TsgDXFMText.Loaded routine, that you calculate vAngle and use it to calculate matrix, but it is not stored for use in iterations.

Can I use TsgDXFMText.FPoint1 to calculate angle?



This is example of how I start import of the file:

DwgObj.LoadFromFile(IDataFile);
If Not Assigned (DwgObj.CurrentLayout) Then
If DwgObj.LayoutsCount > 1 Then
DwgObj.CurrentLayout := TsgDXFLayout(DwgObj.Converter.Layouts[1])
Else DwgObj.CurrentLayout := TsgDXFLayout(DwgObj.Converter.Layouts[0]);
FCADParams.Matrix := IdentityMat;
DwgObj.Converter.ImportMode := imImport;
DwgObj.Converter.NumberOfPartsInSpline := 4;
DwgObj.Converter.NumberOfPartsInCircle := 4;
// DwgObj.Converter.AllArcsAsCurves := Not TSdmsLyr(FParentList.FParent).AllowedEntity[ttArc];
DwgObj.Converter.AutoInsert := Not FDXFNoBlocks;
DwgObj.Converter.Params := @FCADParams;
DwgObj.Converter.Iterate(AddDwgEntity, Nil, FCADParams);

Hello.
TsgDXFMText.Angle property not always specifies the value of MText rotation. This parameter can be set by MText own coordinates system orientation in drawing WCS. In that case rotation must be calculated using TsgDXFMText.FPoint1 value. Please note, these two situations are independent. MText can be located inside insert object also.
AutoInsert property specifies if TsgDXFInsert objects will be handled or not within Iterate method. CAD Import VCL current version handles MTexts as Inserts. Probably the cause of problem is Iterate returns just the same set of parameters for MText and Insert. If the rotation set with TsgDXFMText.FPoint1 then it will be lost. You need either modify your FDXFNoBlocks flag setting or AddDwgEntity method.

If the problem won't be resolved then you can send your file for the testing to support@cadsofttools.com

Alexander.

This resolved my problem for now.

function TLayerImp.AddDwgEntity (Entity: TsgDXFEntity): Integer;
begin
DoScale2D(FCADParams);
case Entity.EntType of
ceMText: With TsgDXFMText (entity) Do Begin
A1 := NormalAngle (uProcedures.Angle (Point1.X, Point1.Y) + DegToRad (FCADParams.Angle));


End;
End;
end;

I must use AutoInsert as True and as False, in cases where insertion points of blocks must be imported. You should use different property for text and for blocks so I can select which objects to iterate.

Regards Aleš.

Hello.
Sory, I haven't undersood fully, please specify with more deatais you reply:

...You should use different property for text and for blocks so I can select which objects to iterate.

Alexander.

With AutoInsert = True you perform insert of blocks and MText and in Iterate routine and AddDwgEntity is called for every entities of block in every insertions. It is also called for each line and each formating in MText entity. So I would split AutoInsert in 2 variables (AutoInsertBlock, AutoInsertMText or AutoSplitMText) , one to do insert of block and the other to do insert (normal text for each liens and each formating) of MText.

Regards Aleš

Hello.
The task of MTexts handling while different AutoInsert values can be resolved within Iterate method easy enough. So, we prefer not implement additional properties into CAD Import VCL to avoid unnecessary library API expansion.

Alexander.