Código final do tutorial 0008 Automação no Coreldraw
Código final do tutorial 0008 Automação no Coreldraw
Publicado: Modificado:
Código final do tutorial 0008 de automação no Coreldraw, o tutorial se encontra em
Resultado
[CgsAddInMacro] | |
public string[] ReadLines(string filePath) | |
{ | |
filePath = filePath.Trim('\"'); | |
string[] lines = File.ReadAllLines(filePath); | |
return lines; | |
} | |
//== igualdade | |
//= atribuição | |
//!= diferente | |
//< menor que | |
//> maior que | |
//<= menor ou igual | |
//>= maior ou igual | |
//% resto | |
//! negação | |
[CgsAddInMacro] | |
public void DrawLines(string[] lines) | |
{ | |
int price = 0; | |
bool isGray = true; | |
double bgHeight = 0.75; | |
double y = corelApp.ActivePage.TopY - bgHeight; | |
double bgWidth = corelApp.ActivePage.SizeWidth; | |
for (int i = 0; i < lines.Length; i++) | |
{ | |
if (!int.TryParse(lines[i], out price)) | |
continue; | |
Shape bg = corelApp.ActiveLayer.CreateRectangle2(0, y, bgWidth, bgHeight); | |
Shape text = corelApp.ActiveLayer.CreateArtisticText(0, y, lines[i]); | |
if (price < 50) | |
text.Fill.UniformColor.RGBAssign(240, 10, 10); | |
else | |
text.Fill.UniformColor.RGBAssign(10, 10, 240); | |
text.CenterY = bg.CenterY; | |
y = y - bgHeight; | |
if (isGray) | |
bg.Fill.UniformColor.RGBAssign(210, 210, 210); | |
isGray = !isGray; | |
bg.Outline.SetNoOutline(); | |
} | |
} |
Nota
Este código pode ser utilizado na janela de Scripts ou Macro Manager nativas do Coreldraw na opção Visual studio tools for application (necessário versão especifica do Visual Studio dependendo da versão do CorelDraw ),
ou na minha janela Run Command, que é parte da barra de auxiliar de desenvolvimento de adicionais para CorelDraw, com ela você poderá utilizar qualquer versão do Visual Studio ou ainda qualquer editor, até mesmo o bloco de notas!
https://bonus630.com.br/downloads/bonus630devtoolsbar/165.html.
Veja o vídeo abaixo para um exemplo de como utilizar esses trechos de códigos. Pedidos de trechos de código serão aceitos nos comentários, e pedidos de "botões mágicos" talvez sejam atendidos.