[Andreu]

When I export an Avax file to a graphic file (as Jpeg or Windows Meta File), some lines are changed from black colour to other colour, with an unknown criterial. How can I do to preserve my original colour lines?


This is the code in VB.NET:

	Private Sub ExportCroquis(ByVal Planol As String)
		'
		'   Realitza l'exportació del croquis en els formats:
		'
		'   - AutoCad
		'   - Windows Meta File
		'   - Jpeg
		'
		'

		Dim Result As Boolean

		'Validacions prèvies
		If Trim(Planol) = "" Then
			Exit Sub
		End If

		'Fitxers
		Dim FitxerDWG As String = Planol + ".dwg"
		Dim FitxerJPG As String = Planol + ".jpg"
		Dim FitxerWMF As String = Planol + ".wmf"

		'Càlcul de l'àrea a exportar
		Dim yMin, xMin, zMin As Single
		Dim yMax, xMax, zMax As Single
		Dim lWidth As Integer = 552 * 2
		Dim lHeight As Integer = 300 * 2
		Call AxcAvax1.CalcBoundsDrawing()
		Call AxcAvax1.GetBoundsDrawing(xMin, yMin, zMin, xMax, yMax, zMax)

		'Genera fitxer AutoCad
		Dim ACadVersion As Avax.AvaxACADVersion = Avax.AvaxACADVersion.ACAD_9
		Result = AxcAvax1.PrintToDWG(FitxerDWG, False, xMin, yMin, zMin, ACadVersion)

		'Genera fitxers gràfics
		Result = AxcAvax1.PrintToWMF(FitxerWMF, lWidth, lHeight, False, xMin - 0.75, yMin - 0.75, xMax + 0.75, yMax + 0.75, 1)
		Result = AxcAvax1.PrintToJPG(FitxerJPG, lWidth, lHeight, False, xMin - 0.75, yMin - 0.75, xMax + 0.75, yMax + 0.75, 1)

	End Sub

Attached thumbnail(s)

• 
• 
• 

[Athanasios Gardos]

Please send me the specific AVX file at the support e-mail and I will fix it in the next version.

[Athanasios Gardos]

We have fixed the bug. Please download the latest AVAX version.

[Andreu]

Hi!

I'm working on the latest version and the problem remains!
On Jpeg exportations apperas OK, but on WMF colour lines are changed...

Attached thumbnail(s)

• 

[Andreu]

WMF file

Attached thumbnail(s)

• 

[Andreu]

I found that the problem with the latest Avax version was because the Avax file was created with a previous Avax version.
If I use the latest Avax version to create the avax file, I have no problem.
I suppose that the bug has been fixed for new drawings. Isn’t it?
In this case, I suppose that the bug was in the Avax file format when it was created, an not with the process that reads this file.

Thanks!

[MUZAK]

I am having similar problem with activeX printToWmf line color changing. Any suggestions?

using 1.3.0.78

Screen shot and jpeg copy of wmf attached.

	Dim xbounds As Single
	xbounds = (X_OA / 2) - 40
	Call cAvax1.SetBoundsAvax(xbounds, -10, 0, xbounds + 80, 110, 0)
	hshape = cAvax1.Add_Rectangle(xbounds, -10, 80, 120, "", 11, 0)
	Answer = cAvax1.PrintToWMF("c:\d1.wmf", 800, 1200)

This post has been edited by MUZAK: 18 March 2008 - 03:37 AM

[MUZAK]

see below

This post has been edited by MUZAK: 18 March 2008 - 03:36 AM

[MUZAK]

wmf output

[Athanasios Gardos]

To see where is the problem I need the avx file. Please send me this file by e-mail.

[MUZAK]

I have sent an email to support@avax...

[Athanasios Gardos]

Some objects have color almost white (RGB 16777215 and 16711679). Can you please see it?

[MUZAK]

All objects except the rectangle around the perimeter are created using the same color
This is an example of the rectangles that form the glass:

Const LineColorAvax = 7
Private Sub A_Rectangle(ByVal iLayer As String, ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal Pic As String, Optional ByVal glassIam As Boolean)

If Pic <> "" Then hshape = cAvax1.Add_ShapeRectangle(x1, y1, x2 - x1, y2 - y1, "", AvaxFillType.BMP_f, 0, , , Pic, 0, , LineColorAvax, 1)
 
Zord = Zord + 1


	hshape = cAvax1.Add_ShapeLine(x1, y1, x1, y2, , LineColorAvax, 1, , , Zord)
	Zord = Zord + 1
	hshape = cAvax1.Add_ShapeLine(x1, y1, x2, y1, , LineColorAvax, 1, , , Zord)
	Zord = Zord + 1
	hshape = cAvax1.Add_ShapeLine(x2, y1, x2, y2, , LineColorAvax, 1, , , Zord)
	Zord = Zord + 1
	hshape = cAvax1.Add_ShapeLine(x1, y2, x2, y2, , LineColorAvax, 1, , , Zord)
	Zord = Zord + 1
Dim scalefact As Single
scalefact = 1
If y2 - y1 > 24 Then scalefact = 2
If y2 - y1 > 40 Then scalefact = 3


If glassIam And Pic = "" Then
Dim xPos(7) As Single
Dim yPos(7) As Single
	xPos(1) = (x1 + x2) / 2
	xPos(2) = xPos(1) - 0.67 * scalefact
	xPos(3) = xPos(1) - 0.59 * scalefact
	xPos(4) = xPos(1) - 0.14 * scalefact
	xPos(5) = xPos(1) + 0.35 * scalefact
	xPos(6) = xPos(1) + 0.59 * scalefact
	xPos(7) = xPos(1) + 1.04 * scalefact

	yPos(1) = (y1 + y2) / 2

	yPos(2) = yPos(1) - 2.64 * scalefact
	yPos(3) = yPos(1) - 1.27 * scalefact
	yPos(4) = yPos(1) + 0.06 * scalefact
	yPos(5) = yPos(1) + 1.59 * scalefact
	yPos(6) = yPos(1) + 2.39 * scalefact
	yPos(7) = yPos(1) + 2.64 * scalefact

 
	hshape = cAvax1.Add_ShapeLine(xPos(2), yPos(4), xPos(4), yPos(6), , LineColorAvax, 1, , , Zord)
	Zord = Zord + 1
	hshape = cAvax1.Add_ShapeLine(xPos(3), yPos(2), xPos(6), yPos(7), , LineColorAvax, 1, , , Zord)
	Zord = Zord + 1
	hshape = cAvax1.Add_ShapeLine(xPos(5), yPos(3), xPos(7), yPos(5), , LineColorAvax, 1, , , Zord)
	




End If



End Sub

Again the rectangle that forces the scale size in the output is the only thing that is supposed to be near white. Both jpg and bmp outputs render the colors matching the screen, wmf is the ony one with issues.

[MUZAK]

If I remove the perimeter almost white rectangle, the wmf is properly rendered. I will try another method for scaling and positioning within wmf

[Athanasios Gardos]

We will see it. It is obvious that it is a bug.

[Athanasios Gardos]

We have found the solution for this bug. We will publish it at the next version in a few days.

[MUZAK]

I look forward to it.... Thank You

[Gemalde]

We have fixed the bug. Please download the latest Avax Vector ActiveX version.