Объекты СОМ в AutoCAD

Объекты СОМ в AutoCAD · 16.01.2008, 14:05

Я думаю, что настало время завести специальную тему по поводу использования объектов СОМ технологии.
Ссылки, описания библиотек 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 · 19.01.2008, 13:58

PermChk.dll
------------------------------------------------
PermissionChecker.PermissionChecker

Описание:

Supermax · 19.01.2008, 13:59

seo.dll
-------------------------------------------------
SEOLib.CEventBindingManager
SEOLib.CEventComCat
SEOLib.CEventLock
SEOLib.CEventManager
SEOLib.CEventMetabaseDatabaseManager
SEOLib.CEventRouter
SEOLib.CEventUtil
SEOLib.CSEODictionaryItem
SEOLib.CSEOGenericMoniker
SEOLib.CSEOMemDictionary
SEOLib.CSEOMetaDictionary
SEOLib.CSEOMimeDictionary
SEOLib.CSEORegDictionary
SEOLib.CSEORouter
SEOLib.CSEOStream

Описание:

Supermax · 19.01.2008, 14:00

smtpadm.dll
--------------------------------------------------
SMTPADMLib.CSmtpAdmin
SMTPADMLib.CSmtpAdminAlias
SMTPADMLib.CSmtpAdminDL
SMTPADMLib.CSmtpAdminDomain
SMTPADMLib.CSmtpAdminService
SMTPADMLib.CSmtpAdminSessions
SMTPADMLib.CSmtpAdminUser
SMTPADMLib.CSmtpAdminVirtualDirectory
SMTPADMLib.CSmtpAdminVirtualServer
SMTPADMLib.CWebAdminHelper

Описание:

Supermax · 19.01.2008, 14:01

status.dll
--------------------------------------------------
Status.Status

Описание:

Supermax · 19.01.2008, 14:02

tools.dll
--------------------------------------------------
Tools.Tools
Tools.ToolsResponse

Описание:

Supermax · 19.01.2008, 14:04

mshtml.tlb
--------------------------------------------------
MSHTML.BlockFormats
MSHTML.CEventObj
MSHTML.CMimeTypes
MSHTML.COpsProfile
MSHTML.CPlugins
MSHTML.DOMChildrenCollection
MSHTML.FontNames
MSHTML.FramesCollection
MSHTML.HTCAttachBehavior дописать

Описание:

Supermax · 19.01.2008, 14:06

Msxml2.dll
----------------------------------------------------------------
MSXML2.freethreadeddomdocument
MSXML2.freethreadeddomdocument.3.0
MSXML2.freethreadeddomdocument.4.0
MSXML2.freethreadeddomdocument.5.0
MSXML2.freethreadeddomdocument.6.0
MSXML2.domdocument
MSXML2.domdocument.3.0
MSXML2.domdocument.4.0
MSXML2.domdocument.5.0
MSXML2.domdocument.6.0
MSXML2.serverxmlhttp
MSXML2.serverxmlhttp.3.0
MSXML2.serverxmlhttp.4.0
MSXML2.serverxmlhttp.5.0
MSXML2.serverxmlhttp.6.0
MSXML2.xmlhttp
MSXML2.xmlhttp.3.0
MSXML2.xmlhttp.4.0
MSXML2.xmlhttp.5.0
MSXML2.xmlhttp.6.0

Описания у меня пока нет, но указатели на эти все объекты создаются.

Supermax · 19.01.2008, 18:39

Не зря я целый день потратил на ковыряние реестра.
Нашел интересную и очень полезную весч.

mscomctl.ocx
------------------------------------
MSComctlLib.Toolbar

Вот его думп:

Код:

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

; IToolbar: Microsoft Toolbar Control
; Property values:
;   AllowCustomize = ...Indexed contents not shown...
;   Appearance = ...Indexed contents not shown...
;   BorderStyle = ...Indexed contents not shown...
;   ButtonHeight = ...Indexed contents not shown...
;   Buttons = ...Indexed contents not shown...
;   ButtonWidth = ...Indexed contents not shown...
;   Controls (RO) = ...Indexed contents not shown...
;   DisabledImageList = ...Indexed contents not shown...
;   DisabledImageList (RO) = ...Indexed contents not shown...
;   Enabled = ...Indexed contents not shown...
;   HelpContextID = ...Indexed contents not shown...
;   HelpFile = ...Indexed contents not shown...
;   HotImageList = ...Indexed contents not shown...
;   HotImageList (RO) = ...Indexed contents not shown...
;   hWnd = ...Indexed contents not shown...
;   ImageList = ...Indexed contents not shown...
;   ImageList (RO) = ...Indexed contents not shown...
;   MouseIcon = ...Indexed contents not shown...
;   MouseIcon (RO) = ...Indexed contents not shown...
;   MousePointer = ...Indexed contents not shown...
;   OLEDropMode = ...Indexed contents not shown...
;   ShowTips = ...Indexed contents not shown...
;   Style = ...Indexed contents not shown...
;   TextAlignment = ...Indexed contents not shown...
;   Wrappable = ...Indexed contents not shown...
; Methods supported:
;   Customize ()
;   OLEDrag ()
;   Refresh ()
;   RestoreToolbar (3)
;   SaveToolbar (3)
T

Как говорится "без слов"

kp+ · 19.01.2008, 19:03

[q]Пример работы на VBA - сюда:
http://www.augi.com/education/auhand...005/CP15-1.pdf[/q]
Архиполезная ссылка! Спасибо!!!
Жаль, что с подшивками вообще нельзя работать через ЛИСП. Придется всерьез учить VBA

Supermax · 19.01.2008, 19:17

Ты че? Нельзя в субботу работать!
Русским языком написано:

Цитата:

'' Open a Sheet Set file
Dim oSheetDb As AcSmDatabase
Set oSheetDb = oSheetSetMgr.CreateDatabase("C:\Documents and Settings\<user name>\My Documents\AutoCAD
Sheet Sets\CP15-1 AU2005.dst", "")

У тебя по этому пути что лежит?
У меня - пустая папка AutoCAD Sheet Sets.
Вот ты файлец CP15-1 AU2005.dst сначала создай, а потом к нему и подбирайся.

Supermax · 19.01.2008, 19:28

Там рядышком еще три вещицы есть:
http://www.augi.com/education/auhand...005/CP15-2.pdf
http://www.augi.com/education/auhand...005/CP11-1.pdf
http://www.augi.com/education/auhand...005/CP11-2.pdf

Кулик Алексей aka kpblc · 19.01.2008, 21:23

> Supermax, ты меня, конечно, извини, но, может, тебе будет проще найти MDSN для 6-й студии (по-моему, 3 CD или что-то около того)? Там полно вещей расписано. Например, 48-й пост, судя по всему, описание одной из версий Microsoft Common Dialog (а их может быть зарегистрировано до 6 штук, и в каждой свои примочки).
#47: Похоже на Microsoft XML Parser, ставится вместе с .NET 1.0 (т.е. начиная с AutoCAD 2005). Для .NET 2.0 используется немного другая версия парсера, по-моему.
Ну и так далее. Часть из вещей общие для 32-разрядных систем Microsoft, часть меняется в зависимости от полусистемных (типа MS .NET x.x) вещей, некоторые могут зависеть от версии AutoCAD...
Подчеркиваю - сугубо ИМХО!

Supermax · 25.01.2008, 13:07

Kpblc, если у тебя лично есть какие-нибудь описания COM объектов, хоть свои, хоть чьи-то, то клади сюда.

Вот списал с реестра список доступных СОМ объектов самого AutoCAD-a:

Для 207 и 2008-го

Код:

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

AutoCAD.AcadLayerStateManager.17
AutoCAD.AcCmColor.17
AutoCAD.Application.17
AutoCAD.Application.17.1
AutoCAD.AxMPolygonObj.17
AutoCAD.Drawing.17
AutoCAD.OCDefaultStorage.17
AutoCAD.OCDefinitionFile.17
AutoCAD.OCEntityTag.17
AutoCAD.OCPropertySourceManager.17
AutoCAD.RenderEditSpin.17
AutoCAD.SecurityParams.17

Для 2006-го

Код:

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

AutoCAD.AcadLayerStateManager.16
AutoCAD.AcCmColor.16
AutoCAD.Application
AutoCAD.Application.16.1
AutoCAD.Application.16.2
AutoCAD.AxMPolygonObj16.2
AutoCAD.Drawing.16
AutoCAD.OCDefaultStorage.16
AutoCAD.OCDefinitionFile.16
AutoCAD.OCEntityTag.16
AutoCAD.OCPropertySourceManager.16
AutoCAD.SecurityParams.16

А это вообще крутизна какая-то

Код:

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

Autodesk.AutoCAD.Interop.Common.Ac3DPolylineType
Autodesk.AutoCAD.Interop.Common.AcActiveSpace
Autodesk.AutoCAD.Interop.Common.ACAD_COLOR
Autodesk.AutoCAD.Interop.Common.ACAD_LWEIGHT
Autodesk.AutoCAD.Interop.Common.AcadSecurityParamsConstants
Autodesk.AutoCAD.Interop.Common.AcadSecurityParamsType
Autodesk.AutoCAD.Interop.Common.AcAlignment
Autodesk.AutoCAD.Interop.Common.AcAlignmentPointAcquisition
Autodesk.AutoCAD.Interop.Common.AcAngleUnits
Autodesk.AutoCAD.Interop.Common.AcARXDemandLoad
Autodesk.AutoCAD.Interop.Common.AcAttachmentPoint
Autodesk.AutoCAD.Interop.Common.AcAttributeMode
Autodesk.AutoCAD.Interop.Common.AcBlockScaling
Autodesk.AutoCAD.Interop.Common.AcBoolean
Autodesk.AutoCAD.Interop.Common.AcBooleanType
Autodesk.AutoCAD.Interop.Common.AcCellAlignment
Autodesk.AutoCAD.Interop.Common.AcCellEdgeMask
Autodesk.AutoCAD.Interop.Common.AcCellType
Autodesk.AutoCAD.Interop.Common.AcColor
Autodesk.AutoCAD.Interop.Common.AcColorMethod
Autodesk.AutoCAD.Interop.Common.AcCoordinateSystem
Autodesk.AutoCAD.Interop.Common.AcDimArcLengthSymbol
Autodesk.AutoCAD.Interop.Common.AcDimArrowheadType
Autodesk.AutoCAD.Interop.Common.AcDimCenterType
Autodesk.AutoCAD.Interop.Common.AcDimFit
Autodesk.AutoCAD.Interop.Common.AcDimFractionType
Autodesk.AutoCAD.Interop.Common.AcDimHorizontalJustification
Autodesk.AutoCAD.Interop.Common.AcDimLUnits
Autodesk.AutoCAD.Interop.Common.AcDimPrecision
Autodesk.AutoCAD.Interop.Common.AcDimTextMovement
Autodesk.AutoCAD.Interop.Common.AcDimToleranceJustify
Autodesk.AutoCAD.Interop.Common.AcDimToleranceMethod
Autodesk.AutoCAD.Interop.Common.AcDimUnits
Autodesk.AutoCAD.Interop.Common.AcDimVerticalJustification
Autodesk.AutoCAD.Interop.Common.AcDragDisplayMode
Autodesk.AutoCAD.Interop.Common.AcDrawingAreaSCMCommand
Autodesk.AutoCAD.Interop.Common.AcDrawingAreaSCMDefault
Autodesk.AutoCAD.Interop.Common.AcDrawingAreaSCMEdit
Autodesk.AutoCAD.Interop.Common.AcDrawingAreaShortCutMenu
Autodesk.AutoCAD.Interop.Common.AcDrawingDirection
Autodesk.AutoCAD.Interop.Common.AcDynamicBlockReferencePropertyUnitsType
Autodesk.AutoCAD.Interop.Common.AcEntityName
Autodesk.AutoCAD.Interop.Common.AcExtendOption
Autodesk.AutoCAD.Interop.Common.AcGradientPatternType
Autodesk.AutoCAD.Interop.Common.AcGridLineType
Autodesk.AutoCAD.Interop.Common.AcHatchObjectType
Autodesk.AutoCAD.Interop.Common.AcHatchStyle
Autodesk.AutoCAD.Interop.Common.AcHorizontalAlignment
Autodesk.AutoCAD.Interop.Common.AcInsertUnits
Autodesk.AutoCAD.Interop.Common.AcInsertUnitsAction
Autodesk.AutoCAD.Interop.Common.AcISOPenWidth
Autodesk.AutoCAD.Interop.Common.AcKeyboardAccelerator
Autodesk.AutoCAD.Interop.Common.AcKeyboardPriority
Autodesk.AutoCAD.Interop.Common.AcLayerStateMask
Autodesk.AutoCAD.Interop.Common.AcLeaderType
Autodesk.AutoCAD.Interop.Common.AcLineSpacingStyle
Autodesk.AutoCAD.Interop.Common.AcLineWeight
Autodesk.AutoCAD.Interop.Common.AcLoadPalette
Autodesk.AutoCAD.Interop.Common.AcLoopType
Autodesk.AutoCAD.Interop.Common.AcMeasurementUnits
Autodesk.AutoCAD.Interop.Common.AcMenuFileType
Autodesk.AutoCAD.Interop.Common.AcMenuGroupType
Autodesk.AutoCAD.Interop.Common.AcMenuItemType
Autodesk.AutoCAD.Interop.Common.AcMLineJustification
Autodesk.AutoCAD.Interop.Common.AcOlePlotQuality
Autodesk.AutoCAD.Interop.Common.AcOleQuality
Autodesk.AutoCAD.Interop.Common.AcOleType
Autodesk.AutoCAD.Interop.Common.AcOnOff
Autodesk.AutoCAD.Interop.Common.AcPatternType
Autodesk.AutoCAD.Interop.Common.AcPlotOrientation
Autodesk.AutoCAD.Interop.Common.AcPlotPaperUnits
Autodesk.AutoCAD.Interop.Common.AcPlotPolicy
Autodesk.AutoCAD.Interop.Common.AcPlotPolicyForLegacyDwgs
Autodesk.AutoCAD.Interop.Common.AcPlotPolicyForNewDwgs
Autodesk.AutoCAD.Interop.Common.AcPlotRotation
Autodesk.AutoCAD.Interop.Common.AcPlotScale
Autodesk.AutoCAD.Interop.Common.AcPlotType
Autodesk.AutoCAD.Interop.Common.AcPolylineType
Autodesk.AutoCAD.Interop.Common.AcPolymeshType
Autodesk.AutoCAD.Interop.Common.AcPreviewMode
Autodesk.AutoCAD.Interop.Common.AcPrinterSpoolAlert
Autodesk.AutoCAD.Interop.Common.AcProxyImage
Autodesk.AutoCAD.Interop.Common.AcRegenType
Autodesk.AutoCAD.Interop.Common.AcRotationAngle
Autodesk.AutoCAD.Interop.Common.AcRowType
Autodesk.AutoCAD.Interop.Common.AcSaveAsType
Autodesk.AutoCAD.Interop.Common.AcSelect
Autodesk.AutoCAD.Interop.Common.AcSelectType
Autodesk.AutoCAD.Interop.Common.AcShadePlot
Autodesk.AutoCAD.Interop.Common.AcTableDirection
Autodesk.AutoCAD.Interop.Common.AcTableStyleOverrides
Autodesk.AutoCAD.Interop.Common.AcTextFontStyle
Autodesk.AutoCAD.Interop.Common.AcTextGenerationFlag
Autodesk.AutoCAD.Interop.Common.AcToolbarDockStatus
Autodesk.AutoCAD.Interop.Common.AcToolbarItemType
Autodesk.AutoCAD.Interop.Common.AcUnits
Autodesk.AutoCAD.Interop.Common.AcVerticalAlignment
Autodesk.AutoCAD.Interop.Common.AcViewportScale
Autodesk.AutoCAD.Interop.Common.AcViewportSplitType
Autodesk.AutoCAD.Interop.Common.AcWindowState
Autodesk.AutoCAD.Interop.Common.AcXRefDemandLoad
Autodesk.AutoCAD.Interop.Common.AcZoomScaleType

Все создается, только вот с последним списком думп не очень хочет делать, но не со всеми, с некоторыми делает полностью.

Где бы почитать про них?

Supermax · 25.01.2008, 13:27

А, уже прочел.
Последний список - это свойства выбранных объектов.
Поем и продолжу.

Кулик Алексей aka kpblc · 25.01.2008, 13:33

Цитата:

Сообщение от Supermax

Kpblc, если у тебя лично есть какие-нибудь описания COM объектов, хоть свои, хоть чьи-то, то клади сюда.

Ну в своих я смысла мало вижу, они достаточно кривовато написаны

Ну кому интересен вариант чтения/записи в ini-файл через СОМ, когда это абсолютно спокойно делается "чистым" visual lisp? Вот с XMLParser'ом разобраться можно было бы, если б не то, что для каждой версии .NET он хоть немного, но "другой" - я на augi на этом накололся

Цитата:

Сообщение от Supermax

Вот списал с реестра список доступных СОМ объектов самого AutoCAD-a:<...>Где бы почитать про них?

В справке разработчика AutoCAD'a описано все это. А что не описано - есть в ObjectARX SDK. Смысла в обращении к AutoCAD через СОМ из-под самого AutoCAD лично я не вижу. Это может требоваться при работе из-под Excel'a, к примеру. Но и тут тоже не все гладко (связано с методом связывания - ранним или поздним). Если интересно мое видение этого кусочка, могу рассказать (возможно, я ошибаюсь, но пока моя точка зрения капитальных промахов не давала).

Supermax · 25.01.2008, 15:28

На русском языке и под рукой никаких описаний нет,

Вот Думп всех СОМ самого Автокада:
(может пригодится тем, кто пишет на VBA)

Код:

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

AutoCAD.Application.17
--------------------------------------
; IAcadApplication: An instance of the AutoCAD application
; Property values:
;   ActiveDocument = #<VLA-OBJECT IAcadDocument 06a10950>
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d74d3c>
;   Caption (RO) = "AutoCAD 2008 - [Drawing1.dwg]"
;   Documents (RO) = #<VLA-OBJECT IAcadDocuments 014a39f0>
;   FullName (RO) = "C:\\Program Files\\AutoCAD 2008\\acad.exe"
;   Height = 1032
;   HWND (RO) = 984012
;   LocaleId (RO) = 1033
;   MenuBar (RO) = #<VLA-OBJECT IAcadMenuBar 06cdef0c>
;   MenuGroups (RO) = #<VLA-OBJECT IAcadMenuGroups 014f6f98>
;   Name (RO) = "AutoCAD"
;   Path (RO) = "C:\\Program Files\\AutoCAD 2008"
;   PreferencesInitializing VBA System... (RO) = #<VLA-OBJECT IAcadPreferences 01f32324>
;   StatusId (RO) = ...Indexed contents not shown...
;   VBE (RO) = #<VLA-OBJECT VBE 09c817c4>
;   Version (RO) = "17.1s (LMS Tech)"
;   Visible = -1
;   Width = 1288
;   WindowLeft = -1284
;   WindowState = 3
;   WindowTop = -4
; Methods supported:
;   Eval (1)
;   GetAcadState ()
;   GetInterfaceObject (1)
;   ListArx ()
;   LoadArx (1)
;   LoadDVB (1)
;   Quit ()
;   RunMacro (1)
;   UnloadArx (1)
;   UnloadDVB (1)
;   Update ()
;   ZoomAll ()
;   ZoomCenter (2)
;   ZoomExtents ()
;   ZoomPickWindow ()
;   ZoomPrevious ()
;   ZoomScaled (2)
;   ZoomWindow (2)

AutoCAD.AcCmColor.17
----------------------------------------
; IAcadAcCmColor: AutoCAD AcCmColor Interface
; Property values:
;   Blue (RO) = 0
;   BookName (RO) = ""
;   ColorIndex = 256
;   ColorMethod = 192
;   ColorName (RO) = ""
;   EntityColor = -1073741824
;   Green (RO) = 0
;   Red (RO) = 0
; Methods supported:
;   Delete ()
;   SetColorBookColor (2)
;   SetNames (2)
;   SetRGB (3)

AutoCAD.AxMPolygonObj.17
----------------------------------------------
; IAcMPolygon: AcMPolygon Interface
; Property values:
;   Angle = AutoCAD.AxMPolygonObj.17: Invalid argument.
;   Application (RO) = Ошибка
;   Area (RO) = AutoCAD.AxMPolygonObj.17: Invalid argument.
;   Document (RO) = AutoCAD.Application: No database
;   Double = AutoCAD.AxMPolygonObj.17: Invalid argument.
;   Elevation = AutoCAD.AxMPolygonObj.17: Invalid argument.
;   GradientAngle = Ошибка
;   GradientCentered = Ошибка
;   GradientColor1 = Ошибка
;   GradientColor2 = Ошибка
;   GradientName = Ошибка
;   Handle (RO) = AutoCAD.Application: Invalid class
;   HasExtensionDictionary (RO) = AutoCAD.Application: Invalid class
;   Hyperlinks (RO) = AutoCAD.Application: Null object ID
;   Layer = AutoCAD.Application: Invalid class
;   Linetype = AutoCAD.Application: Invalid class
;   LinetypeScale = AutoCAD.Application: Invalid class
;   Lineweight = AutoCAD.Application: Invalid class
;   Material = AutoCAD.Application: Invalid class
;   ObjectID (RO) = 0
;   ObjectName (RO) = AutoCAD.Application: Invalid class
;   OwnerID (RO) = AutoCAD.Application: Invalid class
;   PatternFillTrueColor = ; error: Unknown exception occurred
; warning: unwind skipped on unknown exception

AutoCAD.Drawing.17
---------------------------------------------
; IAcadDocument: An AutoCAD drawing
; Property values:
;   Active (RO) = 0
;   ActiveDimStyle = #<VLA-OBJECT IAcadDimStyle 01f00bbc>
;   ActiveLayer = #<VLA-OBJECT IAcadLayer 01f0011c>
;   ActiveLayout = #<VLA-OBJECT IAcadLayout 01f00a7c>
;   ActiveLinetype = #<VLA-OBJECT IAcadLineType 01f009dc>
;   ActiveMaterial = #<VLA-OBJECT IAcadMaterial 01efff3c>
;   ActivePViewport = AutoCAD: No active viewport in paperspace
;   ActiveSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 01f4821c>
;   ActiveSpace = 1
;   ActiveTextStyle = #<VLA-OBJECT IAcadTextStyle 01effeec>
;   ActiveUCS = AutoCAD: Null object ID
;   ActiveViewport = #<VLA-OBJECT IAcadViewport 01f0089c>
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d74d3c>
;   Blocks (RO) = #<VLA-OBJECT IAcadBlocks 01f0052c>
;   Database (RO) = #<VLA-OBJECT IAcadDatabase 01f46fec>
;   Dictionaries (RO) = #<VLA-OBJECT IAcadDictionaries 01efffdc>
;   DimStyles (RO) = #<VLA-OBJECT IAcadDimStyles 01f00acc>
;   ElevationModelSpace = 0.0
;   ElevationPaperSpace = 0.0
;   FileDependencies (RO) = #<VLA-OBJECT IAcadFileDependencies 01f732c4>
;   FullName (RO) = ""
;   Groups (RO) = #<VLA-OBJECT IAcadGroups 01f005cc>
;   Height = 580
;   HWND (RO) = 3474260
;   Layers (RO) = #<VLA-OBJECT IAcadLayers 069d7fb4>
;   Layouts (RO) = #<VLA-OBJECT IAcadLayouts 069d7f14>
;   Limits = (0.0 0.0 420.0 297.0)
;   Linetypes (RO) = #<VLA-OBJECT IAcadLineTypes 069d7ec4>
;   Materials (RO) = #<VLA-OBJECT IAcadMaterials 069d7e74>
;   ModelSpace (RO) = #<VLA-OBJECT IAcadModelSpace2 069d7d34>
;   MSpace = AutoCAD: Invalid mode
;   Name (RO) = "Drawing2.dwg"
;   ObjectSnapMode = 0
;   PaperSpace (RO) = #<VLA-OBJECT IAcadPaperSpace2 069d7ce4>
;   Path (RO) = "C:\\Documents and Settings\\Андрей\\Мои документы"
;   PickfirstSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 01f47d0c>
;   Plot (RO) = #<VLA-OBJECT IAcadPlot 01f73fc4>
;   PlotConfigurations (RO) = #<VLA-OBJECT IAcadPlotConfigurations 069d7bf4>
;   Preferences (RO) = #<VLA-OBJECT IAcadDatabasePreferences 01f73bac>
;   ReadOnly (RO) = 0
;   RegisteredApplications (RO) = #<VLA-OBJECT IAcadRegisteredApplications 69d7c44>
;   Saved (RO) = -1
;   SectionManager (RO) = Ошибка
;   SelectionSets (RO) = #<VLA-OBJECT IAcadSelectionSets 01f1dfac>
;   SummaryInfo (RO) = #<VLA-OBJECT IAcadSummaryInfo 01f73a1c>
;   TextStyles (RO) = #<VLA-OBJECT IAcadTextStyles 069d7ba4>
;   UserCoordinateSystems (RO) = #<VLA-OBJECT IAcadUCSs 069d7b04>
;   Utility (RO) = #<VLA-OBJECT IAcadUtility 0a420124>
;   Viewports (RO) = #<VLA-OBJECT IAcadViewports 069d7ab4>
;   Views (RO) = #<VLA-OBJECT IAcadViews 069d7a64>
;   Width = 1169
;   WindowState = 1
;   WindowTitle (RO) = "Drawing2.dwg"
; Methods supported:
;   Activate ()
;   AuditInfo (1)
;   Close (2)
;   CopyObjects (3)
;   EndUndoMark ()
;   Export (3)
;   GetVariable (1)
;   HandleToObject (1)
;   Import (3)
;   LoadShapeFile (1)
;   New (1)
;   ObjectIdToObject (1)
;   Open (2)
;   PurgeAll ()
;   Regen (1)
;   Save ()
;   SaveAs (3)
;   SendCommand (1)
;   SetVariable (2)
;   StartUndoMark ()
;   Wblock (2)


AutoCAD.OCDefaultStorage.17
------------------------------------------------------
; IOCDefaultStorage: IOCDefaultStorage Interface
; No properties
; Methods supported:
;   CreateStorage (6)
;   FindProperties (5)
;   GetReadOnly (5)
;   GetValue (5)
;   RemoveStorage (4)
;   SetReadOnly (5)
;   SetValue (7)

AutoCAD.OCDefinitionFile.17
---------------------------------------------------------
; IOCDefinitionFile: IOCDefinitionFile Interface
; No properties
; Methods supported:
;   CreateEmpty (1)
;   FindAttached (2)
;   GetStoredAttached (1)
;   SetStoredAttached (2)

AutoCAD.OCEntityTag.17
---------------------------------------------------------
; IOCEntityTag: IOCEntityTag Interface
; No properties
; Methods supported:
;   Audit (3)
;   Clear (2)
;   CopyAllTags (2)
;   FindAllTags (2)
;   FindTag (2)
;   MoveAllTags (2)
;   Tag (6)

AutoCAD.OCPropertySourceManager.17
------------------------------------------------------------
nil

AutoCAD.RenderEditSpin.17
-----------------------------------------------------------
; Object does not support ITypeInfo interface
nil

AutoCAD.SecurityParams.17
---------------------------------------------------------
; IAcadSecurityParams: Security Parameters Interface
; Property values:
;   Action = 0
;   Algorithm = 0
;   Comment = ""
;   Issuer = ""
;   KeyLength = 0
;   Password = ""
;   ProviderName = ""
;   ProviderType = 0
;   SerialNumber = ""
;   Subject = ""
;   TimeServer = ""
; No methods

Никак не разберусь с AutoCAD.OCPropertySourceManager.17

Что надо, чтобы он заработал?

Supermax · 25.01.2008, 17:33

AdCommon.dll
--------------------------------------------------------
AdCommon.AdFileOpenDialog
AdCommon.AdHistoryManager
AdCommon.AdOptionsDialog
AdCommon.AdParam
AdCommon.AdPoint
AdCommon.AdPoint
AdCommon.AdPoint3D
AdCommon.AdProperty
AdCommon.AdServiceHandlerFinder
AdCommon.AdStringPair
AdCommon.AdTempFileMgr
AdCommon.AdToggle
AdCommon.AdTransform
AdCommon.AdUrlUtility
AdCommon.AdViewerUtility
AdCommon.Collection
AdCommon.Collection2
AdCommon.Rect

Очень интересует объект "AdCommon.AdFileOpenDialog"
и его метод "ShowFileOpenDialog" с четырьмя параметрами. А если точнее, то четвертый - обязательный. Никак не подберу. Первые три вообще пустую строку пропукают, а четвертый чего-то хочет, но чего - не врублюсь. Может кто по аналогии может угадать? Ну что нужно, чтобы вызвать окно выбора файла?

И где взять описание этих объектов?

Сразу даю лисп для ускорения поиска четвертого аргумента.

Код:

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

(vl-load-com)
(setq svr (vlax-get-or-create-object "AdCommon.ADFileOpenDialog")); Получаем указатель на объект
(vlax-dump-object svr T); Получает распечатку свойств и методов
(vlax-invoke-method svr "ShowFileOpenDialog" "" "" "" "???"); Пытемся открыть окно выбора файла
(vlax-get-property svr "TargetFile"); Пытаемся прочесть выбранные файлы
(vl-catch-all-apply '(lambda () (vlax-release-object svr))); отпускаем объект.

Кулик Алексей aka kpblc · 25.01.2008, 23:35

Во, спасибо LeonidSN, на caduser.ru указал на ссылку http://www.visual.2000.ru/develop/ms...-1/binding.htm - немного по вопросу связывания.

Кулик Алексей aka kpblc · 26.01.2008, 00:53

Мне интересно, где ты нашел эту dll и каково ее полное имя? Посмотри на аттачи (сделано в VB6.0)

Supermax · 26.01.2008, 14:42

Все нашел в реестре.

Вот более подробная инфа из реестра по AdCommon:

Код:

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

AdCommon.dll
--------------------------------------------------------
AdCommon.AdFileOpenDialog		InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdHistoryManager		InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdOptionsDialog		InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdParam			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdPoint 			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdPoint3D			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdProperty			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdServiceHandlerFinder		InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdStringPair			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdTempFileMgr			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdToggle			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdTransform			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdUrlUtility			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.AdViewerUtility		InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.Collection			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.Collection2			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll
AdCommon.Rect			InprocServer32 - C:\Program Files\Common Files\Autodesk Shared\dwf Common\AdCommon.dll

Объекты не имеющие InprocServer32 в реестре и не дающие указатель в пустом файле DWG. 

AdCommon.AdDropTarget
AdCommon.AdDropTarget.1
AdCommon.AdDwfImportManager
AdCommon.AdDwfImportManager.1
AdCommon.AdStreamLength
AdCommon.AdStreamLength.1


Объекты не имеющие InprocServer32 в реестре и дающие указатель в пустом файле DWG. 

AdCommon.AdApiCollection
AdCommon.AdApiCollection.1
AdCommon.AdColor
AdCommon.AdColor.1
AdCommon.AdDREModelOptionsTab
AdCommon.AdDREModelOptionsTab.1
AdCommon.AdDREPlotOptionsTab
AdCommon.AdDREPlotOptionsTab.1
AdCommon.AdDRGeneralOptionsTab
AdCommon.AdDRGeneralOptionsTab.1
AdCommon.AdEModelOptionsTab
AdCommon.AdEModelOptionsTab.1
AdCommon.AdEPlotOptionsTab
AdCommon.AdEPlotOptionsTab.1
AdCommon.AdGeneralOptionsTab
AdCommon.AdGeneralOptionsTab.1
AdCommon.AdHtmlUtility
AdCommon.AdHtmlUtility.1
AdCommon.AdInstance
AdCommon.AdInstance.1
AdCommon.AdPrintDialog
AdCommon.AdPrintDialog.1
AdCommon.UserCollection
AdCommon.UserCollection.1

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
запуск программы из AutoCADа	kminas	Программирование	19	15.06.2012 13:42
AutoCAD 2005 не открывает бесплатные 3Д объекты	LenkA	AutoCAD	3	11.02.2009 01:52
Уже работаю в AutoCAD 2006, но нужна книжка чтобы знать все тонкости работы с 2D графикой.	Unt0nich	Поиск литературы, чертежей, моделей и прочих материалов	17	06.05.2008 17:58
AUTOCAD 2006	Aragorn	AutoCAD	14	01.04.2005 00:55
Что нового в AutoCAD 2005	ilka_t	AutoCAD	40	19.05.2004 16:48

16.01.2008, 14:05
Объекты СОМ в AutoCAD Supermax Руководитель фирмы Москва Регистрация: 28.03.2007 Сообщений: 1,831 Я думаю, что настало время завести специальную тему по поводу использования объектов СОМ технологии. Ссылки, описания библиотек 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))) на своих машинах!!! Пожалуйста!!! И скажите что видите.
Просмотров: 39448