Corel FORUM

[tomaszryba]

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]

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]

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]

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

Pozdr,
MN

[kek]

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