NP CAD Page | Articles || Introduction | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 9 | 10 | 11 | 12 || Russian

But what is a castle without picture galleries? Or without statues? Where are collections of weapons, armours, hunting trophies? All is present. Any somewhat valuable thing gets in our castle to a collection. Even thing copies go to collections. One can dare to say that all the things in the castle belong to one or another collection. Even there are collections of collections.

Postage stamp that is not rare is really an entity. And if you gathered a stamp collection of some country and for some year then the simplest and not rare stamp is required for the collection. Without this stamp your collection will not be full and not so valuable. And when you gathered stamps for several years and for several countries then it will be collection of collections.

Blocks are important things and after creation they are not hanged. Copies are being hanged there. In general all the castle system is designed in ssuch a manner that whatever you want the castle tries to give you a copy instead of original. The original lies in a store and for free view is inaccessible.

Our next aim is to go to originals store and to find there necessary block. I'll make reservation in advance. On the facade only one block is hanging and nothing else (see DblockSample2007.dwg). It has a line and a Visibility Set. That is the block is dynamic.

The castle has its main door. Before we climbed into the castle through the doors attached to it in additional buildings but now we will try to come in through the main door. This door can be evoked only with one incantation but from any place and you need not to point to anything (so, forgot... See in the sorcerers book. Aha!).

(vlax-get-acad-object)
We see #<VLA-OBJECT IAcadApplication 00d077b4> - vla-door.
We do (vlax-vla-object->ename (vlax-get-acad-object)).
We see nil. Nil is a subtle mockery of the castle or its creators. In some cases it denotes that everything ended well, in other cases it means vacuum (even not 0, but something that deos not exist). In our case I got it indeed. Hence Not all the doors can be named! We'll remember.

Then we apply other incantation returning to us a list of all the object's properties. It affects only on vla-doors.
(vlax-dump-object (vlax-get-acad-object))
If we add after the name an English letter Ò, then as a suppliment we'll get methods to be applied to this room. I will remind that methods are incantations acting only to definite rooms.
(vlax-dump-object (vlax-get-acad-object) T)

What a misfortune: apart from entget we do not receive anything real to be saved in memory and to be used later but only echo that you hear but can't touch.

; IAcadApplication: An instance of the AutoCAD application
; Property values:
; ActiveDocument = #<VLA-OBJECT IAcadDocument 01400420>
; Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4>
; Caption (RO) = "AutoCAD 2007 - [Drawing1.dwg]"
; Documents (RO) = #<VLA-OBJECT IAcadDocuments 05e6c3b0>
; FullName (RO) = "C:\\Program Files\\AutoCAD 2007\\acad.exe"
; Height = 774
; HWND (RO) = 1704798
; LocaleId (RO) = 1033
; MenuBar (RO) = #<VLA-OBJECT IAcadMenuBar 05e71044>
; MenuGroups (RO) = #<VLA-OBJECT IAcadMenuGroups 01408948>
; Name (RO) = "AutoCAD"
; Path (RO) = "C:\\Program Files\\AutoCAD 2007"
; Preferences (RO) = #<VLA-OBJECT IAcadPreferences 05e738dc>
; StatusId (RO) = ...Indexed contents not shown...
; VBE (RO) = #<VLA-OBJECT VBE 01b95aa4>
; Version (RO) = "17.0s (LMS Tech)"
; Visible = -1
; Width = 1288
; WindowLeft = -4
; 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)
T

Here is all as in office of a firm: accounts department, personnel department, functional department, etc. We are interested in the study ActiveDocument. It is a department managing current model and paper spaces and other important things. To enter through the door you should pronounce incantation including door name:
(vla-get-ActiveDocument (vlax-get-acad-object))
We get #<VLA-OBJECT IAcadDocument 01400420> or something similar. Cifers at the end change all the time.
Let's look at all there.
(vlax-dump-object (vla-get-ActiveDocument (vlax-get-acad-object)) T)

; IAcadDocument: An AutoCAD drawing
; Property values:
; Active (RO) = -1
; ActiveDimStyle = #<VLA-OBJECT IAcadDimStyle 05e73a84>
; ActiveLayer = #<VLA-OBJECT IAcadLayer 05e75904>
; ActiveLayout = #<VLA-OBJECT IAcadLayout 05e73544>
; ActiveLinetype = #<VLA-OBJECT IAcadLineType 05e73914>
; ActiveMaterial = #<VLA-OBJECT IAcadMaterial 05e76074>
; ActivePViewport = AutoCAD: No active viewport in paperspace
; ActiveSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 05e76b24>
; ActiveSpace = 1
; ActiveTextStyle = #<VLA-OBJECT IAcadTextStyle 05e6f714>
; ActiveUCS = AutoCAD: Null object ID
; ActiveViewport = #<VLA-OBJECT IAcadViewport 05e6f494>
; Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4>
; Blocks (RO) = #<VLA-OBJECT IAcadBlocks 05e6c094>
; Database (RO) = #<VLA-OBJECT IAcadDatabase 05e6ef14>
; Dictionaries (RO) = #<VLA-OBJECT IAcadDictionaries 05e6e0e4>
; DimStyles (RO) = #<VLA-OBJECT IAcadDimStyles 05e6ff84>
; ElevationModelSpace = 0.0
; ElevationPaperSpace = 0.0
; FileDependencies (RO) = #<VLA-OBJECT IAcadFileDependencies 05e6ed04>
; FullName (RO) = ""
; Groups (RO) = #<VLA-OBJECT IAcadGroups 05e760d4>
; Height = 434
; HWND (RO) = 656614
; Layers (RO) = #<VLA-OBJECT IAcadLayers 05e768c4>
; Layouts (RO) = #<VLA-OBJECT IAcadLayouts 05e763f4>
; Limits = (0.0 0.0 420.0 297.0)
; Linetypes (RO) = #<VLA-OBJECT IAcadLineTypes 05e77a34>
; Materials (RO) = #<VLA-OBJECT IAcadMaterials 05e77df4>
; ModelSpace (RO) = #<VLA-OBJECT IAcadModelSpace 01299e34>
; MSpace = AutoCAD: Invalid mode
; Name (RO) = "Drawing1.dwg"
; ObjectSnapMode = 0
; PaperSpace (RO) = #<VLA-OBJECT IAcadPaperSpace 012a2cc4>
; Path (RO) = "C:\\Documents and Settings\\user\\My documents"
; PickfirstSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 02681e14>
; Plot (RO) = #<VLA-OBJECT IAcadPlot 012a27fc>
; PlotConfigurations (RO) = #<VLA-OBJECT IAcadPlotConfigurations 012a4f64>
; Preferences (RO) = #<VLA-OBJECT IAcadDatabasePreferences 05e6eee4>
; ReadOnly (RO) = 0
; RegisteredApplications (RO) = #<VLA-OBJECT IAcadRegisteredApplications 05e78b64>
; Saved (RO) = -1
; SectionManager (RO) = Îøèáêà
; SelectionSets (RO) = #<VLA-OBJECT IAcadSelectionSets 05e76034>
; SummaryInfo (RO) = #<VLA-OBJECT IAcadSummaryInfo 05e6ecd4>
; TextStyles (RO) = #<VLA-OBJECT IAcadTextStyles 05e78014>
; UserCoordinateSystems (RO) = #<VLA-OBJECT IAcadUCSs 05e784a4>
; Utility (RO) = #<VLA-OBJECT IAcadUtility 05e78534>
; Viewports (RO) = #<VLA-OBJECT IAcadViewports 05e78264>
; Views (RO) = #<VLA-OBJECT IAcadViews 05e79ab4>
; Width = 1210
; WindowState = 3
; WindowTitle (RO) = "Drawing1.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)
T

I am looking at this number of studies and thinking: "Yes, bureaucracy came here". But we are interested in all connected with blocks. We go to Blocks room.
(vlax-dump-object (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) T)

; IAcadBlocks: The collection of all blocks in the drawing
; Property values:
; Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4>
; Count (RO) = 3
; Document (RO) = #<VLA-OBJECT IAcadDocument 01400420>
; Handle (RO) = "1"
; HasExtensionDictionary (RO) = 0
; ObjectID (RO) = 2130271240
; ObjectName (RO) = "AcDbBlockTable"
; OwnerID (RO) = 0
; Methods supported:
; Add (2)
; Delete ()
; GetExtensionDictionary ()
; GetXData (3)
; Item (1)
; SetXData (2)
T

And to my great surprise a bald oldman sits behind the door and picks his ears with a match. And there are no shelves with blocks, no doors to these shelves - it is empty. Two doors exist but we are not silly, this a trick. And so any bureaucratic system looks like. Passing from room to room, dripping with sweat, and getting nothing at the end.

But this a room with an explicit title "BLOCKS"! What is there in the upper line? IAcadBlocks: The collection of all blocks in the drawing.
It means "This a collection of all blocks in the castle". And where are they? It turns out to be a decoration for hiding. There is an incatation that removes scales from the eyes and you can see all the elements lying in such hidden places. It is vlax-for. Bit it should be applied to the door itself, more precisely - to the blocks store where the door leads.

Incantation itself does not affect to everything, thus it only helps to apply incantations to the elements lying in the store. But since all the incantations require reference to object name then after vlax-for you need a symbol representing object in incantation. For example:

(setq sss nil)
(vlax-for x (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))