Vla-get-activedocument
- 構文
- (vla-get-activedocument vla-object)
- 機能
- アクティブなドキュメント(図面ファイル)のVLAオブジェクトを取得する。
- 引数
-
- vla-object … CAD のアプリケーション オブジェクト
- 戻り値
- アクティブドキュメントの VLA オブジェクト。
- サンプル
(setq *ActDoc* (vla-get-activedocument (vlax-get-acad-object)))
#<VLA-OBJECT IDispatch 22701374>
; ダンプ
(vlax-dump-object *actdoc*)
; IAcadDocument: An AutoCAD drawing
; プロパティの値:
; Active (RO) = -1
; ActiveDimStyle = #<VLA-OBJECT IAcadDimStyle 0000000008969c38>
; ActiveLayer = #<VLA-OBJECT IAcadLayer 0000000008968a38>
; ActiveLayout = #<VLA-OBJECT IAcadLayout 0000000008969ba8>
; ActiveLinetype = #<VLA-OBJECT IAcadLineType 0000000008969e78>
; ActiveMaterial = #<VLA-OBJECT IAcadMaterial 0000000008969d58>
; ActivePViewport = AutoCAD: ペーパー空間にアクティブなビューポートがありません
; ActiveSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 00000000318792f8>
; ActiveSpace = 1
; ActiveTextStyle = #<VLA-OBJECT IAcadTextStyle 000000000896a148>
; ActiveUCS = AutoCAD: オブジェクト ID が Null です
; ActiveViewport = #<VLA-OBJECT IAcadViewport 0000000008969f98>
; Application (RO) = #<VLA-OBJECT IAcadApplication 00000001402b91d8>
; Blocks (RO) = #<VLA-OBJECT IAcadBlocks 000000000896a028>
; Database (RO) = #<VLA-OBJECT IAcadDatabase 0000000031878cf8>
; Dictionaries (RO) = #<VLA-OBJECT IAcadDictionaries 0000000008969f08>
; DimStyles (RO) = #<VLA-OBJECT IAcadDimStyles 000000002b546a98>
; ElevationModelSpace = 0.0
; ElevationPaperSpace = 0.0
; FileDependencies (RO) = #<VLA-OBJECT IAcadFileDependencies 00000000318bdeb8>
; FullName (RO) = ""
; Groups (RO) = #<VLA-OBJECT IAcadGroups 000000000896a0b8>
; Height = 896
; HWND (RO) = 2167732
; HWND32 (RO) = 2167732
; Layers (RO) = #<VLA-OBJECT IAcadLayers 000000002b039238>
; Layouts (RO) = #<VLA-OBJECT IAcadLayouts 00000000089693c8>
; Limits = (0.0 0.0 84100.0 59400.0)
; Linetypes (RO) = #<VLA-OBJECT IAcadLineTypes 000000002b546b28>
; Materials (RO) = #<VLA-OBJECT IAcadMaterials 000000002b616518>
; ModelSpace (RO) = #<VLA-OBJECT IAcadModelSpace 000000002b5dd618>
; MSpace = AutoCAD: モードが無効です
; Name (RO) = "Drawing1.dwg"
; ObjectSnapMode = 0
; PaperSpace (RO) = #<VLA-OBJECT IAcadPaperSpace 000000002b5dccb8>
; Path (RO) = "C:\\Program Files\\Autodesk\\AutoCAD Mechanical 2012"
; PickfirstSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 0000000031879478>
; Plot (RO) = #<VLA-OBJECT IAcadPlot 00000000318c0ac8>
; PlotConfigurations (RO) = #<VLA-OBJECT IAcadPlotConfigurations 000000002b616638>
; Preferences (RO) = #<VLA-OBJECT IAcadDatabasePreferences 00000000318bfb38>
; ReadOnly (RO) = 0
; RegisteredApplications (RO) = #<VLA-OBJECT IAcadRegisteredApplications 000000002b6166c8>
; Saved (RO) = 0
; SectionManager (RO) = 例外が発生しました。
; SelectionSets (RO) = #<VLA-OBJECT IAcadSelectionSets 000000002b5513e8>
; SummaryInfo (RO) = #<VLA-OBJECT IAcadSummaryInfo 000000002b262268>
; TextStyles (RO) = #<VLA-OBJECT IAcadTextStyles 000000002b6165a8>
; UserCoordinateSystems (RO) = #<VLA-OBJECT IAcadUCSs 000000002b616758>
; Utility (RO) = #<VLA-OBJECT IAcadUtility 00000000318c0978>
; Viewports (RO) = #<VLA-OBJECT IAcadViewports 000000002b616908>
; Views (RO) = #<VLA-OBJECT IAcadViews 000000002b6167e8>
; Width = 1525
; WindowState = 3
; WindowTitle (RO) = "Drawing1.dwg"
T
(vl-load-com)
(defun c:Example_ActiveDocument()
;; 現在の図面名を返す
(setq acadObj (vlax-get-acad-object))
(setq activeDoc (vla-get-ActiveDocument acadObj))
(alert (strcat "現在の図面 : " (vla-get-Name activeDoc)))
)