rafael sanzio 0 Raportează post Postat Octombrie 17, 2005 (editat) 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 Partajează acest post Link spre post Distribuie pe alte site-uri
work27 0 Raportează post Postat Octombrie 20, 2005 imi poti arata fisierul deschis cu notepad? .eps sau .ai Partajează acest post Link spre post Distribuie pe alte site-uri
rafael sanzio 0 Raportează post Postat Octombrie 20, 2005 (editat) 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 Partajează acest post Link spre post Distribuie pe alte site-uri
rafael sanzio 0 Raportează post Postat Octombrie 23, 2005 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 Partajează acest post Link spre post Distribuie pe alte site-uri
work27 0 Raportează post Postat Noiembrie 17, 2005 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 Partajează acest post Link spre post Distribuie pe alte site-uri
rafael sanzio 0 Raportează post Postat Noiembrie 18, 2005 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 Partajează acest post Link spre post Distribuie pe alte site-uri