Început de rafael sanzio, Lun 17 oct 2005 · 5 răspunsuri · 7.994 vizualizări
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 Lun 17 oct 2005 13:01
imi poti arata fisierul deschis cu notepad?
.eps sau .ai
work27 a scris: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 Joi 20 oct 2005 21:25
work27 a scris: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
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
work27 a scris: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