Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
PC game stream catre Nvidia Shiel...

Pompa de apa HEPU ?!

Vreau o masina electrica de tocat...

Cum ajunge remorca de tir inapoi ...
 Alt "Utilizator nou" pe T...

ULBS INFORMATICA

Index preturi

Boxa membrana tweeter infundata
 Am nevoie de poze cu un curcubeu

Whisky for Mac

Xiaomi 14 Gpay

Izolare zid exterior de scandura
 Dezinstalare drivere W11 23H3

Recomandare masina de spalat fiab...

BSOD din cauza Intel Audio DSP dr...

De ce sunt oamenii nostalgici
 

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

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

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