Search found 5 matches

by Softdata
20 Jan 2011, 17:58
Forum: CAD VCL
Topic: Angle in MText
Replies: 5
Views: 25303

Re: Angle in MText

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, AutoInsert...
by Softdata
20 Jan 2011, 16:13
Forum: CAD VCL
Topic: Angle in MText
Replies: 5
Views: 25303

Re: Angle in MText

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; ...
by Softdata
19 Jan 2011, 17:17
Forum: CAD VCL
Topic: Angle in MText
Replies: 5
Views: 25303

Angle in MText

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 ...
by Softdata
25 Nov 2009, 16:57
Forum: CAD VCL
Topic: Unloading DWG file
Replies: 1
Views: 12399

Unloading DWG file

I need to load diferent files or unload them. I wrote this code, but I am not sure if DWG file is freed. Each time i draw some file, memory consumtion increases and since this can happen 100 times it is necessary not to have leaks. Do you have some example of how to unload loaded file. If FileExists...
by Softdata
10 Apr 2009, 17:23
Forum: CAD VCL
Topic: Acad 2007 file & Stack overflov
Replies: 1
Views: 12676

Acad 2007 file & Stack overflov

I have problem with importing this file. It causes stack overflow in delphi.

Regards Aleš.