Search found 8 matches

by Laker32
14 Sep 2006, 04:10
Forum: CAD VCL
Topic: no valid characters
Replies: 3
Views: 15143

Well I found a way to solve this: 1) First we need to declare a procedure like: procedure TFormParDibComp.elimina0(Entity: TsgDXFEntity); var S2: String; vBox: TFRect; begin if Entity is TsgDXFText then begin S2 := AnsiUpperCase(TsgDXFText(Entity).Text); while pos(#0,s2)>0 do delete(s2,pos(#0,s2),1)...
by Laker32
13 Sep 2006, 21:28
Forum: CAD VCL
Topic: no valid characters
Replies: 3
Views: 15143

Hello again, I realized there where some #0 characters in the text, I wrote the next code: procedure TfmMain.delInvalidChars; var i:integer; s:string; begin for i :=0 to tsgdxfimage(sgimage.Picture.Graphic).Converter.Counts[csEntities]-1 do begin if (tsgdxfimage(sgimage.Picture.Graphic).Converter.En...
by Laker32
13 Sep 2006, 20:53
Forum: CAD VCL
Topic: no valid characters
Replies: 3
Views: 15143

no valid characters

Hello! I bought the cadimportvcl, It's very cool tool, but I'm having 2 problems: 1: Some text entities shows a box at the end of line, looks like a non printable character, how can i delete it? 2: for a demo you post (CADImportVCL_site_beta_010906) there is a method "getrect" for the TsgDXFImageAcc...
by Laker32
07 Sep 2006, 21:08
Forum: CAD VCL
Topic: Zoom to selection
Replies: 5
Views: 20855

Thanks Again Sergey!

Is just what I wanted to do!

It works fine with some entities but I tried to zoom to certain entities and apear incomplete in the screen and the scrollbars doesn't apear(like we haven't done a zoom). It looks like an update problem or something alike.

Regards,

Laker32
by Laker32
04 Sep 2006, 18:11
Forum: CAD VCL
Topic: Zoom to selection
Replies: 5
Views: 20855

Thanks for the quick answer Sergey, As you said the zoom works in both windows, but only with the mouse wheel, but the zoom box (the box that is drawn for auto zoom in the other demos) is disabled. What I want to do is to be able to select the entities and zoom to them, I mean, to see the selected e...
by Laker32
02 Sep 2006, 01:42
Forum: CAD VCL
Topic: Zoom to selection
Replies: 5
Views: 20855

Zoom to selection

Hi Sergei!

In the editor demo the zoom box feature when you drag de mouse is disabled and a selection manager is created, how can I do to have a button with the "zoom to selection" functionality.
by Laker32
08 Aug 2006, 18:33
Forum: CAD VCL
Topic: Copying entities from a layout to a new DXFImage
Replies: 3
Views: 14387

Hi again, I've modified the Editor demo and added a combobox with the list of layouts to change from one layout to another: <b>procedure</b> TfmMain.cblayoutsChange(Sender: TObject); <b>begin</b> img.CurrentLayout:=img.Layouts[cblayouts.itemindex]; <b>end</b>; I have one dwg file with a layout calle...
by Laker32
07 Aug 2006, 22:32
Forum: CAD VCL
Topic: Copying entities from a layout to a new DXFImage
Replies: 3
Views: 14387

Copying entities from a layout to a new DXFImage

Hi!, I'm checking out your component in delphi and I need to add a feature to a program I'm developing. I need to select and copy some entities from a specific layout and save them to a emf file. I've checked the "Editor" demo and does the work fine using the selection manager and 1 layout, the prob...