Corel FORUM Strona Główna Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  DownloadDownload

Poprzedni temat «» Następny temat
Modyfikacja Makra do tworzenia obrysu wewnętrznego
Autor Wiadomość
tomaszryba
Początkujący


Dołączył: 19 Lut 2021
Posty: 2
Skąd: Mielec
Wysłany: 19 Luty 2021, 12:39   Modyfikacja Makra do tworzenia obrysu wewnętrznego

Witam wszystkich bardzo serdecznie
potrzebuję pomocy przy przerobieniu marka
Cytat:

Sub ThreecubeMike_01()

Dim sOriginal As Shape
Dim sDuplicate As Shape
Dim sr_from_contour As ShapeRange
Dim e As Effect

Set sOriginal = ActiveShape

'create the duplicate that will be the cut outline
Set sDuplicate = sOriginal.Duplicate

'name it
sDuplicate.Name = "Cut Outline"

'set outline color
sDuplicate.Outline.Color.CMYKAssign 0, 100, 0, 0

'set to have no fill
sDuplicate.Fill.ApplyNoFill

'from original shape, create contour effect
Set e = sOriginal.CreateContour(, ConvertUnits(3, cdrMillimeter, ActiveDocument.Unit), , , , sOriginal.Fill.UniformColor.GetCopy)

'separate contour group into a shaperange
Set sr_from_contour = e.Separate

'name the contour shape
sr_from_contour(1).Name = "Shape from Contour"

'delete the original shape
sOriginal.Delete

End Sub


Chodzi o to, że jak wrzucam bitmapę albo plik wektorowy to chcę aby stworzyło mi obrys włosowy wewnątrz z przesunięciem 2mm

czyli mam plik np mapę bitową o wymiarach 200x100 po użyciu makra tworzy się prostokąt o wymiarach 199,8x99,8 obrys włosowy bez wypełnienia.
 
 
Martin Nez 
Doradca
Grafik?


Wersja CorelDRAW: 2019
Pomógł: 14 razy
Dołączył: 29 Sty 2011
Posty: 113
Skąd: Czmoń
Wysłany: 19 Luty 2021, 14:04   

Witam,
Spróbuj tego:
Kod:
Sub tomaszryba()
    ActiveDocument.Unit = cdrMillimeter
    Dim s As Shape
    Dim sr As ShapeRange
    Dim e As Effect
   
    Set s = ActiveShape
    Set e = s.CreateContour(0, 2)
    Set sr = e.Separate
    sr(1).Fill.ApplyNoFill
    sr(1).Outline.Width = 0.025
End Sub

Pozdr,
MN
 
 
tomaszryba
Początkujący


Dołączył: 19 Lut 2021
Posty: 2
Skąd: Mielec
Wysłany: 22 Luty 2021, 12:26   

dzięki wielkie za pomoc - działa super!
Pytanie tylko dlaczego w wersji 20 nie ustawia się linia 0.025 tylko 0,567
Natomiast w wersji x5 jest OK
 
 
Martin Nez 
Doradca
Grafik?


Wersja CorelDRAW: 2019
Pomógł: 14 razy
Dołączył: 29 Sty 2011
Posty: 113
Skąd: Czmoń
Wysłany: 23 Luty 2021, 13:05   

Niestety nie mam dojścia do Corela 20, więc nie mogę sprawdzić dlaczego tak jest.

Pozdr,
MN
 
 
kek 
Praktyk



Wersja CorelDRAW: X7
Dołączył: 20 Lut 2017
Posty: 81
Skąd: Polska
Wysłany: 9 Marzec 2021, 12:04   

Witam.
Może grubość linii podstawowej w programie jest tak ustawiona.
Zobacz w opcjach programu, może tam definiuje się grubość linii domyślnej?

Pozdrawiam
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Nowe zasady dotyczące cookies. Wykorzystujemy pliki cookies, aby nasz serwis lepiej spełniał Państwa oczekiwania. Można zablokować zapisywanie cookies, zmieniając ustawienia przeglądarki.
         
Strona wygenerowana w 0.12 sekundy. Zapytań do SQL: 14