Как рисовать API-функциями из VBA?

[EducatedFool]

Мне надо в Corel, а не в AutoCad

Использовать AutoCad - хорошая идея. Там тот же VBA.
И для рисования линий он, пожалуй, подойдёт больше, чем CorelDRAW.
Так что зря отказываетесь.

А результат из AutoCad можно экспортировать одной строкой кода (или вручную) в любой удобный для Вас формат.

[doober]

Если возникнет необходимость в Макросах для Автокада,помогу.
Есть возможность 3 Д построения по данным с текстового файла по координатам точек,вывод данных в Excel.

[litvin44]

Вот, если кому интересно.
(Ссылки были хорошие, но в них все-таки немного другое)

Private Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Sub Рисование_GDI_и_Копирование()
Dim hCompDC As Long, hCompBM As Long
    'в памяти
    hCompDC = CreateCompatibleDC(0)
    hCompBM = CreateCompatibleBitmap(GetDC(GetDesktopWindow), размер_X, размер_Y)
    Call SelectObject(hCompDC, hCompBM)
    'рисование
    Call Рисование_GDI(hCompDC) 'вызов подпрограммы рисования с дискриптором в качестве аргумента
    'в буфер обмена
    If OpenClipboard(0) Then
        EmptyClipboard
        Call SetClipboardData(2, hCompBM)  'vbCFBitmap=2, есть не во всех версиях VBA
        CloseClipboard
    Else
        MsgBox "Буфер обмена не доступен" 'ситуация маловероятная
    End If
    'удаление
    DeleteDC(hCompDC)
    DeleteObject(hCompBM)
End Sub

[litvin44]

Спасибо, за предложение помощи по Автокаду!
Но, повторяю, мне нужно делать именно в CorelDraw.
И именно растром (см. выше)
Линии я тоже ресую, макросом, но для этого достаточно просто VBA, без API

[repon]

можно вопросик?
как в Corel Photo-Paint нарисовать точку на объекте Image?
или получить цвет пикселя?

как вообще обратиться к открытому (в CPP) растровому изображению?

Image1.***.PSet(x,y)?

благодарю

[repon]

up
неужели никто не знает?! ((