CAD Program (Autocad Lite)

[ceaser]

Hi Klaus

Ok, I fixed the 3 Point Arc Function and also made the Table where the layers are displayed smaller.

Regarding the zoom functions, I would like to zoom directly on the form.

Regards
Michael

[klaus]

Hi Michael,

For the zoom function you will need:
- to check the min max coordinates of the points in world coordinates
- a drawing surface on the screen in pixels with width and height in variables
- a scale factor variable 1 pixel = x meters
- 2 scroll bars to scroll the drawing on the screen
- 2 variables for the upper left corner coordinates in world coordinates of the screen drawing surface.
- 2 coordinate conversion routines to convert world coordinates into screen coordinates, the zoom factor can directly be included.

In the drawing routine you must check what is visible and only draw these elements.

Best regards.

[ceaser]

Hi Klaus

Dass ist mein problem. How do I show scrollbars on the main form???

Grusse
Michael

[klaus]

Hi Michael,

You can add ScrollBars with the ControlEx library on any form.

You find an example in the ScaledMap program.

Best regards.

[Byak@]

Nice work ceaser! i hope you complite this program)and adapt it for PC. i many work with autocad and i very want alternativ program

[ceaser]

Hi Byak

Thanks for that!

I have finished the following:

1. Move marked entities
2. Copy marked entities
3. Scale marked entities
4. Rotate marked entities
5. Trim and extend lines.

I am busy with importing and exporting DXF format files and also with all the "Zoom" functions.

As soon as I have completed this (later this week) I will post an update of the program.

Thanks
Michael

[Byak@]

thanks for answer)
importing and exporting DXF format files is general function!Good luck

[ceaser]

Hi

I am posting a new version of my CAD program, but I need some help

Once you have drawn a couple of entities on the screen, click on the red cross at the bottom of the screen (this will cancel any drawing commands). Next you mark some entities on the screen. This you can do as if you where drawing a box. The program will then re-color all the drawing entities black (I am working on the routine to redraw the marked entities with dashed lines). Then you select the "Rotate" function to rotate the marked entities.

This all works fine, but when you release the stylus from the screen, the drawing is not right. There is something wrong with the formula that I am using!

Can anybody help please?

Thanks
Michael

[klaus]

Hi Michael,

You should replace your code:

<font size="2"><font face="Courier New"><font size="2"><font face="Courier New">Drawing(i).X = RotX(Drawing(i).X - C, Drawing(i).Y - D, Angle) + C </font></font>
<font size="2"><font face="Courier New">Drawing(i).Y = RotY(Drawing(i).X - C, Drawing(i).Y - D, Angle) + D</font></font></font></font>

by this one:

<font face="Courier New"><font size="2"><font face="Courier New"><font size="2">xx = RotX(Drawing(i).X - C, Drawing(i).Y - D, Angle) + C </font></font>
<font size="2"><font face="Courier New">Drawing(i).Y = RotY(Drawing(i).X - C, Drawing(i).Y - D, Angle) + D</font></font>
<font size="2"><font face="Courier New">Drawing(i).X = xx</font></font></font></font>

You must introduce an intermediate variable, because in the 2nd equation you need the original value of Drawing(i).X and not the already modifyed one.

Best regards.

[ceaser]

Thanks Klaus

How about having different line types as a library?

My next post will have the option of opening and saving drawings in a DXF format.

Any idea where I can look to open and save drawings in a AutoCad format(dwg)?

Thanks
Michael