Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Recomandare aparat foto

Ariston "Genus One+" 24kw...

unde ii pot arunca?

Problema respingere memorie supli...
 Posibila virusare

Material opac developat filme

Caramida de sticla la exterior

Geam cuptor crapat
 Un canal de AI de comedie pe YT

Update intr-un tabel

[Controlul] vremii si a vremurilor

Blocuri din placi prefabricate
 Achiziție mașina de fam...

[unde] cozonaci traditionali

Jandarmii in fondul forestier

Sa dus seceta pedologica?
 

Macro Trace CorelDraw

- - - - -
Last Updated: Apr 08 2018 17:23, Started by trollerul_de_serviciu , Apr 06 2018 12:34  
  ·  
  • Please log in to reply
1 reply to this topic

#1
trollerul_de_serviciu
Posted 06 April 2018 - 12:34

trollerul_de_serviciu

    Guru Member

  • Grup: Senior Members
  • Posts: 10,987
  • Înscris: 23.03.2018
Hai sa-mi incerc si aici norocul, desi nu-mi pun mari sperante :) :(
Am facut un scurt macro pentru trace automat fisiere PNG.
Merge foarte bine, doar ca nu stiu sa selectez background color: alb sau negru.
In mod automat sterge negru si am nevoie de ambele variante: sa stearga o data alb, o data negru.
Mersi de ajutor.

	Dim impopt As StructImportOptions
	Set impopt = CreateStructImportOptions
	impopt.Mode = cdrImportFull
	Dim impflt As ImportFilter
	Set impflt = ActiveLayer.ImportEx("poza.png", cdrPNG, impopt)
	impflt.Finish
   
	Dim OrigSel As ShapeRange, BMap As Shape
   
	Set OrigSel = ActiveSelectionRange
	Set BMap = OrigSel.ConvertToBitmapEx(cdrRGBColorImage, False, False, 300, cdrNoAntiAliasing, True, False, 95)
	With BMap.Bitmap.Trace(cdrTraceLineArt, Default, Default, cdrColorBlackAndWhite)
		'.DetailLevelPercent = 100
		'.Smoothing = 100
		'.ColorMode = cdrColorBlackAndWhite
		'.PaletteID
		'.ColorCount
		.DeleteOriginalObject = True
		.RemoveBackground = True
		.RemoveEntireBackColor = True
		.MergeAdjacentObjects = True
		.Finish
	End With
  
Activewindow.Refresh
Application.Refresh

#2
trollerul_de_serviciu
Posted 08 April 2018 - 17:23

trollerul_de_serviciu

    Guru Member

  • Grup: Senior Members
  • Posts: 10,987
  • Înscris: 23.03.2018
Cred ca am gasit singur solutia.... dupa o sugestie a clientului.
Am elimitat conversia in bitmap si am adaugat/inlocuit asa:
	Dim s As Shape
	Set s = ActiveShape
	s.ApplyEffectInvert
	With s.Bitmap.Trace.........
Ruleaza de 2 ori, o data cu ApplyEffectInvert, o data fara.

Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro
Back to Software

▶ 0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Forumul Softpedia
  2. → Soft Related / OS
  3. → Windows
  4. → Software
Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate