Пакетная вставка растровых изображений. VBA для Autocad
Позволяет вставлять растровые изображения по несколько штук сразу, а не по одному.
Команда: -vbarun "MultiRastr.dvb!ThisDrawing.start"
Обновлено 21.06.2013. Убраны кавычки из пути к файлам.
Обновлено 22.09.2014. Реализована вставка в заблокированный слой
Обновлено 21.01.2015. Добавлена поддержка VBA7 и Autocad x64
Команда: -vbarun "MultiRastr.dvb!ThisDrawing.start"
Обновлено 21.06.2013. Убраны кавычки из пути к файлам.
Обновлено 22.09.2014. Реализована вставка в заблокированный слой
Обновлено 21.01.2015. Добавлена поддержка VBA7 и Autocad x64
Комментарии
Авторизоваться
Выдает ошибку в строке:objFile.OwnerHwnd=ThisDrawing.HWND
Подсвечивает ".HWND" . И появляется окно с сообщением:
"Compile error: Function or interface marked as restricted, or the function uses an Automation not supported in Visual Basic"
Вам надо поменять .HWND на .HWND32 и заработает
Поменял, выбрал файлы, задал точку вставки- выдает ошибку:
Error in loading DLL
в этой строке objFile.OwnerHwnd = ThisDrawing.HWND32
#If VBA7 Then
objFile.OwnerHwnd = ThisDrawing.HWND
#Else
#If Win64 Then
objFile.OwnerHwnd = ThisDrawing.HWND32
#Else
objFile.OwnerHwnd = ThisDrawing.HWND32
#End If
#End If
Вам надо поменять .HWND на .HWND32 и заработает
Поменял, выбрал файлы, задал точку вставки- выдает ошибку:
Error in loading DLL
в этой строке objFile.OwnerHwnd = ThisDrawing.HWND32
#If VBA7 Then
objFile.OwnerHwnd = ThisDrawing.HWND
#Else
#If Win64 Then
objFile.OwnerHwnd = ThisDrawing.HWND32
#Else
objFile.OwnerHwnd = ThisDrawing.HWND32
#End If
#End If
Версия и разрядность автокада и windows