Aflare dimensiuni obiect din fisier .eps .ai sau .jpeg

[rafael sanzio 0]

Intrebare

Dupa exportarea unei selectii din CorelDraw sau Adobe, in format .eps, .ai. sau .jpeg, cu ajutorul VB (sau nu neaparat) vreau sa scriu un programel care sa inmulteasca lungimea cu inaltimea obiectului continut de fisier. Cum pot citi din fisier width si hight al continutului acestuia?

Multumesc

Editat Octombrie 17, 2005 de rafael sanzio

[work27 0]

imi poti arata fisierul deschis cu notepad?

.eps sau .ai

[rafael sanzio 0]

imi poti arata fisierul deschis cu notepad?

.eps sau .ai

 

 

Multumesc pentru interesul aratat.

Selectiile pe care le export le folosesc pentru cutter plotter.(.ai sau .eps)

Ele pot contine diferite forme sau texte convertite in curbe. Cutter plotterul taie contururi.

Nu aceasta este important. Ceea ce vreau sa fac este sa inmultesc inaltimea cu latimea selectiei, pentru a afla aria selectiei.

Nu am inteles, din vizualizarea cu notepad a fisierelor unde se afla aceste dimensiuni in fisierul exportat,

pentru a putea citi linia respectiva.

Un exemplu este fisierul inimi .eps, care contine 3 inimi incadrate intr-un dreptunghi de 140x50 cm.

Multumesc inca o data

Rafael

Uite continutul fisierului inimi.eps si dupa aceea acelasi inimi dar .ai deschis cu notepad

 

%!PS-Adobe-3.0 EPSF-3.0

%%BoundingBox: -1153 -760 2816 659

%%LanguageLevel: 1

%%Creator: CorelDRAW 9

%%Title: inimi.eps

%%CreationDate: Thu Oct 20 20:42:44 2005

%%For: Rafael

%%DocumentProcessColors: Cyan Yellow Black

%%DocumentSuppliedResources: (atend)

%%EndComments

%%BeginProlog

/AutoFlatness false def

/AutoSteps 0 def

/CMYKMarks true def

/UseLevel 1 def

%Build: CorelDRAW 9 Version 9.397

%Color profile: Generic offset separations profile

%%BeginResource: procset wCorel9Dict 9.0 0

/wCorel9Dict 300 dict def wCorel9Dict begin

% Copyright

Editat Octombrie 20, 2005 de rafael sanzio

[rafael sanzio 0]

imi poti arata fisierul deschis cu notepad?

.eps sau .ai

 

 

Liniile din fisierele .eps si .ai care arata dimensiunea selectiei sunt

Linia a treia din .eps

%%BoundingBox: -1153 -760 2816 659

 

si respectiv Linia 5-a din .ai

%%BoundingBox:-1152 -758 2816 658

 

Ceea ce este cu minus reperezinta pozitia obiectului selectat fata de coordonatele x,y cu valoarea zero din pagina (deci pozitia obiectului fata de pagina din fisier). Daca setez pagina la dimensiunea selectiai si aceasta se afla in centrul paginii primele doua coordonate ale BoundingBox-ului vor fi 0, 0, apoi 2816 659.

2816 si 659 reprezinta dimensiunile (cred in pixeli) ale obietului (dreptunghiului).

 

Deci ma intereseaza cum pot citi linia (3 sau 5) din fisier si sa transform ultimile doua numere in centimetrii pentru a le putea inmulti intre ele.

Multumesc

[work27 0]

asa se citeste un fisier in vb:

 

 

Private Sub numefunctie()

 

Dim verfis As String

Dim rfile As String

 

Set VerificaFisier = CreateObject("Scripting.FileSystemObject")

 

verfis = App.Path + "\inimi.eps"

 

If VerificaFisier.fileexists(verfis) Then

Open verfis For Input As #1

While Not EOF(1)

Input #1, rfile

TextBox1 = rfile

Wend

Close #1

End If

 

End Sub

[rafael sanzio 0]

asa se citeste un fisier in vb:

Private Sub numefunctie()

 

Dim verfis As String

Dim rfile As String

 

Set VerificaFisier = CreateObject("Scripting.FileSystemObject")

 

verfis = App.Path + "\inimi.eps"

 

If VerificaFisier.fileexists(verfis) Then

Open verfis For Input As #1

While Not EOF(1)

Input #1, rfile

TextBox1 = rfile

Wend

Close #1

End If

 

End Sub

 

 

 

Multumesc deocamdata sper sa reusesc

Rafael