Jump to content
Forum Roportal
Sign in to follow this  
rafael sanzio

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

Rate this topic

Recommended Posts

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

Edited by rafael sanzio

Share this post


Link to post
Share on other sites
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

Edited by rafael sanzio

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×