[Dyskusja] Corel'owanie starych modeli*

[barman44]

Hmm. Tak to jest proste ale gdy mamy część kadłuba (jak na rys) to trzeba rysować kilka figur pokrywających się z węzłami na obiekcie.

Przeniosłęm siez tym do Photoshopa i jest ok. Mam jednak pytanie:

W jakiej rozdzielczości otwierać plik z częściami w photoshopie??

W małej rozdzielczości jakoś jest beznadziejna a jak otworzyłem to w rozdzielczości 860 pikseli/cal to nie mogłem używać narzędzia rozmywanie.

[wokram]

polecałbym 150-300dpi, wszystko jednak zależy od Twoich wymagań, sprzętu na jakim bedziesz drukował i sprzętu na jakim pracujesz, najlepiej jest zrobić sobie jakąś część na próbę, wydrukować i wtedy zobaczysz czy potrzebujesz dopakować jeszcze dpi

[fimdan]

Wczesniej origami zadal pytanie na temat mierzenia dlugosci krzywych.
Grzebalem w opcjach Visual Basic w mojej "12" i dowiedzialem sie ze krzywe maja wbudowana funkcje dlugosci. Oto prosty VB script kotry wyswietla dlugosc.

Dim sh As Shape, shs As Shapes,length As Double
Set shs = ActiveSelection.Shapes
For Each sh In shs
length = sh.curve.length
MsgBox ("The length is " & length)
Next sh

Nie wiem czy to cos bedzie dzialalo na wczesniejszych wersjach Corela
Bede wdzieczny jesli ktos sprawdzi.

Jesli macie jakies pytania to strzelajcie.

FimDan

[barman44]

Ekhm. To ja pytałem :] Raziel wcześniej też podesłał jakiegoś scripta ale nie działa na corelu 9 (albo nie wiem jak z tego skorzystać)

A gdy już się umieści plik z tym tekstem w katalogu Script to z jakiej funkcji trzeba skorzystać żeby zmierzyć krzywą? Z tej samej co do mierzenia prostych?

[fimdan]

Odpowiadam szybko

Nie mialem okazji popatrzec na skrypt Raziel'a wiec nie wiem co on tam napoczynial. Moja wersja jest w Visual Basic i musisz ja uzyc jako makro. Ci ktorzy znaja Visual Basic pod Corelem nie bede miec probelmu, dla reszty napisze cos wiecej ale jak wroce ze szkoly.

Ogolna to robi sie to tak.

1 Tworzysz nowa makro w VB (a dokladnie module) i dodajesz to co podalem wczesniej.
2 Rysujesz krzywa i ZAZNACZASZ ja.
3 Odpalasz makro funkcja play no i wyskakuje wiadomosc z dlugoscia krzywej.

Chce jeszcze dodac ze to co podalem nie jest jakims tam cudownym narzedziem. Pare linijek kodu ktory robi to co trzeba i nic wiecej:)
Moze jeszcze wieczorem postaram sie to upiekszyc aby dzialalo to w sposob podobny do narzedzia mierzacego odleglosci.

Narazie

FimDan

[barman44]

Umieściłęm scripty raziela i fimdana w katalogu script i gdy chciałem je zarejestrować to przy scrypcie raziela wyskakuje błąd scryptu że nie można utworzyć obiektu automatyzacji OLE a przy scrypcie fimdana jest napisane że skrypt zawiera błąd i nie można go uruchomić. Obydwa pliki są zapisane w notatniku.

Nie śmiejcie sie jeśli popełniłem jakiś banalny błąd bo dopiero stawiam pierwsze kroki w temacie makr. Do tej pory tylko rysowałem w corelu a jak usłyszałem słowo "makra" "visual basic" to zrobiłem takie oczy

[fimdan]

Jak smiesz ludziom tutaj gadac ze moj skrypt nie dziala!!!!!!!

Zartuje....

Z moim kawalkiem nie postepuje sie tak jak to zrobiles. Napisze potem co trzeba zrobic.

FimDan

[raziel]

Na sieci znalazłem makro do określania długości krzywej przeznaczone dla Corela 9. Wygląda to tak:

Sub ShowCurveLength()
Dim doc As CorelDRAW.Document
Dim s As CorelDRAW.Shape

Set doc = CorelDRAW.ActiveDocument
doc.Unit = cdrInch
If doc.Selection.Shapes.Count <> 0 Then
Set s = doc.Selection.Shapes(1)
If s.Type = cdrCurveShape Then
MsgBox "Selected curve length is " & s.Curve.Length & " inches"
End If
End If
End Sub

Oczywiście samo nie zadziała, to tylko procedurka. Trzeba ją trochę rozwinąć i przerobić, dodac jakiś przycisk, etykietkę itp.
Przede wszystkim Musi być z Corelem zainstalowana obsługa VBA.

Sporo informacji można znaleźć na stronach
http://www.oberonplace.com/forum/viewfo ... 0&start=50

www16.big.or.jp/~a3design/spon/draw/draw.htm

[fimdan]

Czyli wyglada na to ze moj kod powinien dzialac takze pod starszymi wersjami Corela.


Dzieki za linka raziel. Trzeba jakis fajny skrypt napisac. Narazie wracam do openGLa . Tak dla zabawy pisze aplikacje ktora bedzie mogla otwierac modele z rhio.

FimDan

[Marek S.]

Gdzie w corelu mozna znaleźć funkcję skalowania. Kończę przerysowywanie Lublina RVIII z MM, tyle ze wg opisu zastosowano tam skalę 1/50 a interesuje mnie 1/33.