[Supermax]

Я думаю, что настало время завести специальную тему по поводу использования объектов СОМ технологии.
Ссылки, описания библиотек DLL, методы, свойства и прочее. Естественно в ключе использования AutoCAD-a на язывак AutoLISP и VBA.


Первая проблема:
Объект WScript.Shell
(setq svr (vlax-get-or-create-object "WScript.Shell"))
; создаем объект
(vlax-dump-object svr T)
; читаем его свойства и методы

Код:

[Выделить все]

; IWshShell3: Shell Object Interface
; Property values:
;   CurrentDirectory = ...Indexed contents not shown...
; Methods supported:
;   Exec (2)
T

Это у меня

А это у людей
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=39974nf

Код:

[Выделить все]

(defun C:TEST()
  (vl-load-com)
  (if (and
        (setq FILE (getfiled "Выберите файл для чтения" "" "csv" 16))
        (setq WS (vlax-get-or-create-object "wscript.shell"))
        )
  (vlax-invoke-method WS
    "run"
    (strcat "notepad.exe\ " FILE)
    4
    :vlax-true)
    )
  )

И это в описании
http://www.script-coding.info/WSH/WshShell.html

Библиотеки исполняемые модули вроде
wscript.exe 5.06.0000.8820
scrobj.dll 5.06.0000.8820
scrrun.dll 5.06.0000.8820
vbscript.dll 5.06.0000.8820

Но не уверен.
Кто и что скажет?

Люди! Сделайте
(vl-load-com)
(setq svr (vlax-get-or-create-object "WScript.Shell"))
(vlax-dump-object svr T)
;;; а потом
(vl-catch-all-apply '(lambda () (vlax-release-object svr)))


на своих машинах!!! Пожалуйста!!!
И скажите что видите.

[Supermax]

Страшная штука!

ADROT.dll
-------------------------------------------------
AdRotator.AdRotator


Тут про борьбу со злом:

http://translate.google.com/translat...006-40,GGLR:en

Только почему-то там говорится про brrotate.dll и adrotate.dll на три буковки слово длиннее. Разбираться надо, однако.
Можно использовать для вывода на экран разного рода информации, если за этой dll-кой не будут охотиться сисадмины.
Описание:

[Supermax]

asptxn.dll
-------------------------------------------------
ASPTxnTypeLibrary.ASPObjectContextTxNotSupported
ASPTxnTypeLibrary.ASPObjectContextTxRequired
ASPTxnTypeLibrary.ASPObjectContextTxRequiresNew
ASPTxnTypeLibrary.ASPObjectContextTxSupported

Более подробно:
http://www.webtropy.com/articles/art...TxnTypeLibrary

Описание:

[Supermax]

ASP.dll
-------------------------------------------------
ASPTypeLibrary.Application
ASPTypeLibrary.Request
ASPTypeLibrary.Response
ASPTypeLibrary.ScriptingContext
ASPTypeLibrary.Server
ASPTypeLibrary.Session

За информацией сюда:
http://www.asp.net/
и сюда:
http://www.aspnetmania.com/


Описание:

[Supermax]

browscap.dll
---------------------------------------------------
BrowserType.BrowserCap

http://www.dll-files.ru/dll/b/browscap.dll.html

Описание:

[Supermax]

CertMap.ocx
--------------------------------------------------
CERTMAPLib.CertAuth
CERTMAPLib.Certmap

Описание:

[Supermax]

CertWiz.ocx
---------------------------------------------------
CERTWIZLib.CertWiz

Описание:

[Supermax]

Cnfgprts.ocx
---------------------------------------------------
CNFGPRTSLib.Apps
CNFGPRTSLib.LogUI
CNFGPRTSLib.Rat

Описание:

[Supermax]

ContRot.dll
--------------------------------------------------
ContentRotator.ContentRotator

Описание:

[Supermax]

counters.dll
-------------------------------------------------
Counters.Counters

Описание:

[Supermax]

logscrpt.dll
------------------------------------------------
IISLog.LogScripting

Описание:

[Supermax]

mdsync.dll
------------------------------------------------
MDSYNCLib.MdSync
MDSYNCLib.regc

Описание:

[kp+]

А можно ли с помощью COM добраться из Лиспа до подшивок Акада (2006)?
Типа как (setq svr (vlax-get-or-create-object "Sheetset")), а дальше получить доступ к свойствам и методам?

[Supermax]

О каких подшивках идет речь?

"Sheetset" это не СОМ объект.

[Кулик Алексей aka kpblc]

Справка разработчика (ADT 2006) говорит следующее:

Overview of Sheet Set Manager Objects The Sheet Set Manager API is based on a set of COM objects. You can use the COM objects of the Sheet Set Manager to develop macros and applications that create sheet sets and perform related tasks.

[kp+]

ну оговорился я. действительно, не sheetset, а sheetsetmanager. не судите строго.
Лучше поскажите, PLS, как правильно записать на лиспе создание этого COM-объекта. У меня почему-то не получилось

[Supermax]

Sheet Set Manager - это сервис автокада, а не объект.
Вызывается через File\New Sheet Set... После того, как ты создал подшивку листов, в автокаде создаются следующие объекты:

AcSmAcDbBlockRecordReference
AcSmAcDbDatabase
AcSmAcDbLayoutReference
AcSmAcDbObjectReference
AcSmAcDbViewReference
AcSmCalloutBlockReferences
AcSmCalloutBlocks
AcSmCustomPropertyBag
AcSmCustomPropertyValue
AcSmDatabase
AcSmDSTFiler
AcSmEvent
AcSmFileReference
AcSmNamedAcDbObjectReference
AcSmObjectReference
AcSmPersistProxy
AcSmPublishOptions
AcSmResources
AcSmSheet
AcSmSheetSelSet
AcSmSheetSelSets
AcSmSheetSet
AcSmSheetSetMgr
AcSmSheetView
AcSmSheetViews
AcSmSubset
AcSmViewCategories
AcSmViewCategory

IAcSmComponent
IAcSmEnumAcDbBlockRecordReference
IAcSmEnumComponent
IAcSmEnumDatabase
IAcSmEnumFileReference
IAcSmEnumPersist
IAcSmEnumProperty
IAcSmEnumSheetSelSet
IAcSmEnumSheetView
IAcSmEnumViewCategory
IAcSmEvents
IAcSmObjectId
IAcSmPersist

PropertyFlags

Более подробно о них, их свойствах и прочими аксессуарами сюда:
http://www.kxcad.net/autodesk/autoca...Help/1sso.html

Пример работы на VBA - сюда:
http://www.augi.com/education/auhand...005/CP15-1.pdf

Чтобы создать такие объекты надо делать так:
(setq asadbrr (entmakex '((0 . "AcSmAcDbBlockRecordReference") и тут другие пары для этого объекта)))
Какие пары нужны для создания я не знаю, и последовательность создания тоже. Не было нужды.

[Supermax]

СОМ объект, это массив данных в оперативной памяти машины (включая в понятие "оперативная память" и временные файлы), которые понимается как объект, то есть имеет свойства, допускает или не допускает применение к себе различных методов и после этого реагирует определенным образом на эти действия.
Чтобы его создать нужна программа с расширением *.exe Которая пользуясь алгоритмом создания, написанного либо прямо в ней, либо в библиотеке *.dll создает такой объект.
От того, что вы положили себе в машину dll-ку - никаких объектов не появится. И даже если вы положили программу, работающую с ними, но не запустили ее - тоже, объектов не найдете. Зарегистрировать эту dll-ку вы сможете, только если в реестре есть указание на программу, которая с ней работает.
AutoCAD тоже является такой программой и некоторые объекты он создает, только если его заставить это сделать. Все вышеперечисленные объекты таковыми и являются.

Функция vlax-get-or-create-object не создает объект!!! Она вычисляет указатель (VLA-объект), или создает указатель, да и то, только для внешнего приложения!

Цитирую Полещука:

6.3.10. Функция vlax-get-or-create-object Вычисляет указатель объекта внешнего приложения или создает его, если такого указателя не было (т. е. приложение еще не стартовало).

Приложение объект создает, а функция - на него указатель.

Аминь.

[Supermax]

myinfo.dll
------------------------------------------------
MyInfo.MyInfo

Описание:

[Supermax]

NEXTLINK.dll
------------------------------------------------
NextLink.NextLink

Описание:

[Supermax]

PageCnt.dll
------------------------------------------------
PageCounter.PageCounter

Описание: