Серый форум — VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-26T16:00:06Z

сафемассив получается просче и симпатишнее

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-26T09:29:14Z

1С:7.7 - понятно - легко и элегантно содавать, манипулировать, сопровождать БД (ту, которая требуется в данной прикладной задаче).
AutoCAD - в нем автоматом по исходным из 1С: создаются фрагменты, да и целые листы инженерной графики. Вся организация работает в Акаде, да и предыдущий опыт программирования в Ём же есть.
Ессно, у Автокада есть масса интерфейсов для обена данными, свои скрипты, VLISP, DIESEL, DXF и пр. но они с разной степенью успешности (далеко не идеальной) обеспечивают реальный интерактив. Хочется более коротким путем сразу из прикладной среды рулить АКАДом. Предлагаемые Chessman`ом меры решают многие проблемы, но иные остаются. Объектная модель АКАДа (правда, об этом говорится в разных источниках) выглядит и ведет себя по-разному в разных клиентских средах.
Например в связке 1С:-АКАД мало того, что есть проблемы с обменом данными, так и методы и свойства некоторые не отзываются. некоторые, вообще отсутствуют.
С событиями, вообще швах..Т.ч. побьюсь еще и не исключаю, откачусь к традиционным средствам без интерактива.

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-26T02:29:47Z

OFF.
Прочитал название темы, видать туго соображаю, но не понял почему автокад и 1с через VBS?? В первом посте нет поставленной задачи.. поэтому я не понял принципиального принятого решения, жаль, а мое любопытство вначале пересилило меня. Не подскажите почему данные из 1 с надо в графическом редакторе Автокад обрабатывать? (1с очень хорошо дружит с екселем, например, где можно строить графики и не только..)

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-25T10:14:56Z

|    newArray    =    ArrayCreate(VT_VARIANT, 3)
|    MsgBox TypeName(newArray)
|
|    newArray(0)    = 15.56
|    MsgBox newArray(0)

Чтобы создать массив типа Double, нужно VT_VARIANT заменить на VT_R8. "3" - размерность массива.
Соответственно, после этого ни присвоить, ни получить значения массива штатным способом не получится.
Но мы уже знаем, как это сделать "нештатным" образом.

ЗЫ: (для массива типа Double) нам с одной стороны нужен указатель на массив, чтобы манипулировать значениями элементов, а с другой переменная типа "Array" в vbs'e, чтобы ее передать дальше в AutoCAD. Сейчас ф-я ArrayCreate возвращает переменную типа Array. Чтобы не делать лишних телодвижений, по получению указателя на массив, можно сам указатель хранить в какой-то глобальной переменной(нужно поправить ф-ю ArrayCreate в классе Service).

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-25T10:09:06Z

Добавлен код создания массива "нештатными" для vbs средствами

|Public Const     PAGE_EXECUTE_READWRITE    = &h40
|Public Const     HEAP_ZERO_MEMORY        = &h08
|Public Const     VT_R8                   = 5
|Public Const     VT_VARIANT              = 12    
|Public Const     VT_ARRAY                  = &h2000 
|'============================================
|Public Wrap
|Set Wrap = CreateObject(""DynamicWrapperX"")
|
|Public oServ
|Public Point
|'============================================
|
|Class    Service
|    Private hHeap
|    Private    ppv
|    Private    pVal
|    Private    pFlag    
|    Private    addrParamTypesAvailable
|    Private    rgsabound
|    Private        DllSeg    
|
|    Private Sub Class_Initialize
|        'Необходимые функции
|        Wrap.Register ""Kernel32"",    ""LoadLibrary"" , ""i=s"", ""r=h""
|        Wrap.Register ""Kernel32"",    ""GetProcAddress"" , ""i=hs"", ""r=u""
|        Wrap.Register ""Kernel32"",    ""VirtualProtect"" , ""i=lllp"", ""r=l""
|        Wrap.Register ""Kernel32"",    ""HeapAlloc"",    ""i=lll"",    ""r=l""
|        Wrap.Register ""Kernel32"",    ""GetProcessHeap"", ""r=l""
|        Wrap.Register ""Kernel32"",    ""HeapFree"", ""i=lll"",""r=l""
|        
|        Wrap.Register ""Oleaut32"",    ""SafeArrayCreate"", ""i=llp"",""r=l""    
|        Wrap.Register ""Oleaut32"",    ""SafeArrayGetDim"", ""i=p"",""r=l""
|        Wrap.Register ""Oleaut32"",    ""SafeArrayGetElement"", ""i=plp"",""r=l""
|        Wrap.Register ""Oleaut32"",    ""SafeArrayPutElement"", ""i=plp"",""r=l""
|        
|        'Выделяем память под результат
|        hHeap    = Wrap.GetProcessHeap() 
|        ppv        = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 4)
|        pFlag    = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 4)
|        pVal    = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 16)
|        rgsabound = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 8)
|        
|        
|        'Для патча DWX налету
|        '=============================================================
|        handle = Wrap.LoadLibrary(""dynwrapx"")
|        Addr   = Wrap.GetProcAddress(handle, ""DllGetClassObject"")
|        DllSeg = Addr And &hFFFF0000
|        
|        Offset                         = &h41C8 + 10        'VT_Dispatch
|        addrParamTypesAvailable     = DllSeg + Offset
|        '=============================================================
|        Wrap.VirtualProtect addrParamTypesAvailable, 2, PAGE_EXECUTE_READWRITE, pFlag
|    End Sub
|    
|    Private Sub Class_Terminate
|        Wrap.VirtualProtect addrParamTypesAvailable, 2, Wrap.NumGet(pFlag), pFlag
|        Wrap.HeapFree hHeap, 0, ppv
|        Wrap.HeapFree hHeap, 0, pFlag
|        Wrap.HeapFree hHeap, 0, pVal
|        Wrap.HeapFree hHeap, 0, rgsabound
|    End Sub
|    
|    Public Function GetSafeArray(Arr)
|        'Учим DWX принимать массив
|        vtType = Wrap.NumGet(addrParamTypesAvailable, 0, ""t"")    
|        Wrap.NumPut VarType(Arr), addrParamTypesAvailable, 0, ""t""    
|        
|        'Получим указатель на SafeArray
|        GetSafeArray = Wrap.GetIDispatch(Arr)
|        
|        'Возвращаем статус-кво
|        Wrap.NumPut vtType, addrParamTypesAvailable, 0, ""t""    
|    End Function
|    
|    Public Function GetElement(pSafeArray, ind)
|        Wrap.NumPut ind, ppv
|        Wrap.SafeArrayGetElement pSafeArray, ppv, pVal
|        
|        GetElement = Wrap.NumGet(pVal, 8, ""d"")
|    End Function
|    
|    Public Function PutElement(pSafeArray, ind, vl)
|        'Тип Variant - VT_R8
|        Wrap.NumPut    VT_R8, pVal, 0, ""t""    
|        'Значение Variant
|        Wrap.NumPut    vl, pVal, 8, ""d""    
|        
|        Wrap.NumPut ind, ppv
|        Wrap.SafeArrayPutElement pSafeArray, ppv, pVal
|    End Function
|    
|    Public Function ArrayCreate(vt, cElements)
|        'Структура SAFEARRAYBOUND
|        Wrap.NumPut cElements, rgsabound, 0
|        Wrap.NumPut 0         , rgsabound, 4
|        
|        pSA = Wrap.SafeArrayCreate(vt, 1, rgsabound)
|        
|        'Научим DWX возвращать массивы
|        '=============================================================
|        addr = DllSeg + &h278D
|        Wrap.VirtualProtect addr, 8, PAGE_EXECUTE_READWRITE, pFlag
|        
|        'Запоминаем участок памяти
|        mem1 = Wrap.NumGet(addr, 0)
|        mem2 = Wrap.NumGet(addr, 4)
|        
|        'Меняем участок памяти
|        Wrap.NumPut    &h90909090, addr, 0 
|        Wrap.NumPut    &h90909090, addr, 4
|        
|        Wrap.NumPut    VT_ARRAY + vt, addr, 0, ""t""
|        
|        ArrayCreate = Wrap.GetObject(pSA)
|
|        'Возвращаем статус-кво
|        Wrap.NumPut    mem1, addr, 0 
|        Wrap.NumPut    mem2, addr, 4
|        '=============================================================
|    End Function
|End Class
|
|Set oServ = New Service
|
|'===========================================================
|Public Function GetSafeArray(Arr)
|    GetSafeArray = oServ.GetSafeArray(Arr)
|End Function
|
|Public Function GetElement(pSafeArray, ind)
|    GetElement = oServ.GetElement(pSafeArray, ind)
|End Function
|
|Public Function PutElement(pSafeArray, ind, vl)
|    oServ.PutElement pSafeArray, ind, vl
|End Function
|
|Public Function ArrayCreate(vt, cElements)
|    ArrayCreate = oServ.ArrayCreate(vt, cElements)
|End Function
|
|Public Function Test()
|    pArr = GetSafeArray(Point)
|    
|    item0 = GetElement(pArr, 0)
|    item1 = GetElement(pArr, 1)
|    
|    MsgBox ""item0 = "" & CSTR(item0)
|    MsgBox ""item1 = "" & CSTR(item1)
|    
|    PutElement pArr, 0, 3.14
|    MsgBox ""item0 = "" & CSTR(Point(0))
|    
|    newArray    =    ArrayCreate(VT_VARIANT, 3)    
|    MsgBox TypeName(newArray)
|
|    newArray(0)    = 15.56
|    MsgBox newArray(0)
|End Function
|'===========================================================
|
|Point     = Array(10.454, 11.56944656, 12, 15, 25)
|";

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-24T14:22:55Z

Dbeer пишет:

Но проблема с созданием контейнера с нуля остается..

Нам потребуется функция SafeArrayCreate
http://msdn.microsoft.com/en-us/library … s.85).aspx

она возвращает указатель на SafeArray .
Все остальное мы делать уже умеем(получить/поместить элемент).

Остается только научить DWX возвращать массив.

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-24T04:51:41Z

Dbeer пишет:

…(I или II-ой?)

Последнее.

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-24T04:03:28Z

Sorry, за OFF, конечно. Но ведь, я, как раз, об этом - адрес нужен реальный. Разберемся..С новым Годом!! Alexii (I или II-ой?)

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-24T02:31:54Z

OFF:

Dbeer пишет:

Ну не могу же я тебе по интернету пива послать или еще чего..tongue

Есть службы доставки, если что .

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-23T14:17:05Z

Погорячился я, видимо, если pArr - это указатель, а не значение, то тогда так и д.б.
Т.е. "PutElement pArr, 0, 3.14" запихивает правильно число Pi в адрес, вычисляемый от pArr по индексу.
А в POINT уже лежит готовый измененный массив.
Но проблема с созданием контейнера с нуля остается..

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-23T14:10:57Z

Пока не пробовал, изучал "всухую".
Почти понятно. Только вот что смущает:

|Public Function Test()
|    pArr = GetSafeArray(Point) ' здесь я конвертирую в съедобную форму то, что мне вернулось из автокада
|
|    PutElement pArr, 0, 3.14     ' а здесь наверное д.б. :
                                               PutElement Point, 0, 3.14 ????
|    MsgBox ""item0 = "" & CSTR(Point(0))
|End Function

получается, что сначала я должен получить из Автокада Point, тем самым получив ссылку на созданный Автокадом массив,
и потом его использовать, как контейнер для УЖЕ моих данных (запихивать туда свои цифры и снова передавать АвтоКаду).
А как самому с нуля создать такой контейнер?

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-23T13:51:30Z

на самом деле самому было интересно, так что просто enjoy!

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-23T13:31:27Z

СПасибо огромное за участие. Опробую завтра с утра - работаем за Новый Год. Доложу.
Сообщи мне на мыло какой-нить почтовый адрес - вышлю посылочку..Жажду отомстить
Ну не могу же я тебе по интернету пива послать или еще чего..:P

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-23T13:26:59Z

Теперь исправления для Double, к тем, что уже были

|    Public Function PutElement(pSafeArray, ind, vl)
|        Wrap.NumPut    vl, pVal, 0, ""d""    
|
|        Wrap.NumPut ind, ppv
|        Wrap.SafeArrayPutElement pSafeArray, ppv, pVal
|    End Function

ну и соответственно убрать MsgBox из Test

MsgBox ""item0 = "" & CSTR(Point(0))

т.к. ругнется на Тип значения

В общем жду результатов.

Re: VBS: хочу рулить AutoCAD'ом из 1С:7.7 через VBS. ??? с типами данных

2011-12-23T13:23:05Z

Итоговый скрипт, сначала получаем "нештатным для vbs" образом значения элементов массива, потом нештатным присваиваем значение.
(Скрипт для массива из VARIANT'ов. Для Double напишу ниже.)

|Public Const     PAGE_EXECUTE_READWRITE    = &h40
|Public Const     HEAP_ZERO_MEMORY        = &h08
|Public Const     VT_R8                   = &h5
|'============================================
|Public Wrap
|Set Wrap = CreateObject(""DynamicWrapperX"")
|
|Public oServ
|Public Point
|'============================================
|
|Class    Service
|    Private hHeap
|    Private    ppv
|    Private    pVal
|    Private    pFlag    
|    Private    addrParamTypesAvailable
|
|    Private Sub Class_Initialize
|        'Необходимые функции
|        Wrap.Register ""Kernel32"",    ""LoadLibrary"" , ""i=s"", ""r=h""
|        Wrap.Register ""Kernel32"",    ""GetProcAddress"" , ""i=hs"", ""r=u""
|        Wrap.Register ""Kernel32"",    ""VirtualProtect"" , ""i=lllp"", ""r=l""
|        Wrap.Register ""Kernel32"",    ""HeapAlloc"",    ""i=lll"",    ""r=l""
|        Wrap.Register ""Kernel32"",    ""GetProcessHeap"", ""r=l""
|        Wrap.Register ""Kernel32"",    ""HeapFree"", ""i=lll"",""r=l""
|
|        Wrap.Register ""Oleaut32"",    ""SafeArrayGetDim"", ""i=p"",""r=l""
|        Wrap.Register ""Oleaut32"",    ""SafeArrayGetElement"", ""i=plp"",""r=l""
|        Wrap.Register ""Oleaut32"",    ""SafeArrayPutElement"", ""i=plp"",""r=l""
|
|        'Выделяем память под результат
|        hHeap    = Wrap.GetProcessHeap() 
|        ppv        = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 4)
|        pFlag    = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 4)
|        pVal    = Wrap.HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 16)
|
|        'Для патча DWX налету
|        '=============================================================
|        handle = Wrap.LoadLibrary(""dynwrapx"")
|        Addr   = Wrap.GetProcAddress(handle, ""DllGetClassObject"")
|        DllSeg = Addr And &hFFFF0000
|
|        Offset                         = &h41C8 + 10        'VT_Dispatch
|        addrParamTypesAvailable     = DllSeg + Offset
|        '=============================================================
|        Wrap.VirtualProtect addrParamTypesAvailable, 2, PAGE_EXECUTE_READWRITE, pFlag
|    End Sub
|    
|    Private Sub Class_Terminate
|        Wrap.VirtualProtect addrParamTypesAvailable, 2, Wrap.NumGet(pFlag), pFlag
|        Wrap.HeapFree hHeap, 0, ppv
|        Wrap.HeapFree hHeap, 0, pFlag
|        Wrap.HeapFree hHeap, 0, pVal
|    End Sub
|
|    Public Function GetSafeArray(Arr)
|        'Учим DWX принимать массив
|        vtType = Wrap.NumGet(addrParamTypesAvailable, 0, ""t"")    
|        Wrap.NumPut VarType(Arr), addrParamTypesAvailable, 0, ""t""    
|
|        'Получим указатель на SafeArray
|        GetSafeArray = Wrap.GetIDispatch(Arr)
|        
|        'Возвращаем статус-кво
|        Wrap.NumPut vtType, addrParamTypesAvailable, 0, ""t""    
|    End Function
|
|    Public Function GetElement(pSafeArray, ind)
|        Wrap.NumPut ind, ppv
|        Wrap.SafeArrayGetElement pSafeArray, ppv, pVal
|
|        GetElement = Wrap.NumGet(pVal, 8, ""d"")
|    End Function
|
|    Public Function PutElement(pSafeArray, ind, vl)
|        'Тип Variant - VT_R8
|        Wrap.NumPut    VT_R8, pVal, 0, ""t""    
|        'Значение Variant
|        Wrap.NumPut    vl, pVal, 8, ""d""    
|
|        Wrap.NumPut ind, ppv
|        Wrap.SafeArrayPutElement pSafeArray, ppv, pVal
|    End Function
|
|End Class
|
|Set oServ = New Service
|
|'===========================================================
|Public Function GetSafeArray(Arr)
|    GetSafeArray = oServ.GetSafeArray(Arr)
|End Function
|
|Public Function GetElement(pSafeArray, ind)
|    GetElement = oServ.GetElement(pSafeArray, ind)
|End Function
|
|Public Function PutElement(pSafeArray, ind, vl)
|    oServ.PutElement pSafeArray, ind, vl
|End Function
|
|Public Function Test()
|    pArr = GetSafeArray(Point)
|
|    item0 = GetElement(pArr, 0)
|    item1 = GetElement(pArr, 1)
|
|    MsgBox ""item0 = "" & CSTR(item0)
|    MsgBox ""item1 = "" & CSTR(item1)
|
|    PutElement pArr, 0, 3.14
|    MsgBox ""item0 = "" & CSTR(Point(0))
|End Function
|'===========================================================
|
|Point     = Array(10.454, 11.56944656, 12, 15, 25)
|";