[CDR 2024] Обрезка нескольких пикселей растрового изображения

[mnemonix]

трассировка грубовата

Это я сделал на маленьком изображении в виде примера, на больших - прям красота получается.

 

[_MBK_]

как запустить плагин Feather из макроса? я даже готов смириться окном настроек и нажимать каждый раз ок)
dupImage.ApplyEffectBCI -100, 0, 0
dupImage.OrderToFront
dupImage.Bitmap.ApplyBitmapEffect "Feather", .

Через UID соответствующего пункта меню, наверное, но, по мне, так это более шаткий костыль, чем IM

 

[fersat]

как запустить плагин Feather из макроса? я даже готов смириться окном настроек и нажимать каждый раз ок)

На VBA не знаю. На Delphi так:

uses
  Windows,VGCore_TLB,ActiveX;

var
  CorelCLSID: TGUID;
  CorelApp:   IVGApplication;
  CUIApp:     ICUIApplication;

begin
  CoInitialize(0);
  CLSIDFromProgID('CorelDRAW.Application.20',CorelCLSID);
  CoCreateInstance(CorelCLSID,nil,CLSCTX_LOCAL_SERVER,IVGApplication,CorelApp);
  CorelApp.QueryInterface(IID_ICuiApplication,CUIApp);
  CUIApp.DataContext.GetDataSource('BitmapEffectsDS').InvokeMethod('ON_LOWPASS');
end.

 

[_MBK_]

CorelDRAW.Application.20

Это разве не для 2020?
Тем более, нужен Feather а не Low pass

 

[fersat]

Исправляюсь - вот VBA

FrameWork.Application.DataContext.GetDataSource("EffectsDialogFactoryDS").InvokeMethod("OnFeather")

 

[fersat]

Для установки параметров вроде бы нужно использовать FeatherEffectDS, но у меня не получилось - наверное, что-то не так делаю:

With FrameWork.Application.DataContext.GetDataSource("FeatherEffectDS")
  .SetProperty "Mode", "Linear"
  .SetProperty "Width", 50
  .UpdateListeners "Mode,Width"
End With

 

[fersat]

Потестировал методы SetProperty/GetProperty на своём SmartDepart. При их вызове должен вызываться метод Invoke с флагами DISPATCH_PROPERTYPUT/DISPATCH_PROPERTYGET, но этого не происходит. UpdateListeners также не вызывает Invoke.

 

[_MBK_]

У вас же, вроде, аддишн на асме, вы оттуда VBAшные методы вызываете?

 

[fersat]

Я обращался к его DataSource через VBA, предварительно поставив брейкпоинт в методе Invoke.

 

[_MBK_]

А IDispatch::Invoke это разве не обертка для дотнета?

 

[fersat]

Интерфейс DataSource наследуется от IDispatch как и все интерфейсы CorelDraw.

 

[fersat]

Точнее это и есть IDispatch. Где то в Corel Community был пример cpg-аддона на плюсах RulerTool - вот строчка из него

IDispatch* DataSourceFactory::GetDataSource(CString name)

 

[fersat]

Вот нашёл - https://community.coreldraw.com/sdk...ng-ruler-tool-for-coreldraw-or-corel-designer. Но меня туда пускают только через прокси. Наверное забанили по IP

 

[tohaa]

Sub Duple()
    Dim origImage As Shape
    Dim dupImage As Shape
  
    Set origImage = ActiveSelection.Shapes(1)
       
    origImage.Duplicate 0, 0
    Set dupImage = ActiveSelection.Shapes(1)
    
    Set dup = dupImage.ConvertToBitmapEx(2, False, True, 300, 1, True, False, 95)
    dup.ApplyEffectBCI -100, 0, 0
    dup.OrderToFront
    dup.CreateSelection
    Application.FrameWork.Automation.InvokeItem "0a76cfa2-35ee-453a-8996-e45237d5793f"
    
    Application.Refresh
End Sub
b

дублирую картинку, выкручиваю контраст, растрирую в оттенки серого, двигаю на передний план.
а далее инвоком вызываю фильтр.
работает вполне себе.
и никуда по меню лазать ненужно