Milli aviasiya akademiyasi

Proyektİn əsas kompanentlərİ

Proyektin əsas kompanentləri Project pəcərəsindən ThisDrawing>Insert menyusundan yüklənir.

• 
  Bunlar formalar (UserForm)
  
• 
  Modullar (Module)
  
• 
  Modullar klasıdır (Class Module)
  

VBA nın bütün komandaları irarxik ağac strukturunda düzülmüşdür, bu ağacın kökündə isə APPLİCATİON dayanır diğər klaslar isə onun törəmələridir. APPLİCATİON-an bunlara giriş almaq olar.

• 
  1.1 Preferences
  
• 
  1.2 Documents
  
• 
  1.3 MenuBar
  
• 
  1.4 MenuGroups
  

Preferences obyektindən isə növbəti obyektlərə giriş almaq olur

• 
  1.1.1 PreferencesDisplay
  
• 
  1.1.2 PreferencesDrafting
  
• 
  1.1.3 PreferencesFiles
  
• 
  1.1.4 PreferencesOpenSave
  
• 
  1.1.5 PreferencesOutput
  
• 
  1.1.6 PreferencesProfiles
  
• 
  1.1.7 PreferencesSelection
  
• 
  1.1.8 PreferencesSystem
  
• 
  1.1.9 PreferencesUser
  

Documents obyectindən isə Document kolleksiyasına:

• 
  1.2.1 Blocks
  
• 
  1.2.2 Dictionaries
  
• 
  1.2.3 DimStyles
  
• 
  1.2.4 Groups
  
• 
  1.2.5 Layers
  
• 
  1.2.6 Layouts
  
• 
  1.2.7 Linetypes
  
• 
  1.2.8 PlotConfigurations
  
• 
  1.2.9 RegisteredApplications
  
• 
  1.2.10 SelectionSets
  
• 
  1.2.11 TextStyles
  
• 
  1.2.12 UserCoordinateSystems
  
• 
  1.2.13 Views
  
• 
  1.2.14 Viewports
  
• 
  1.2.15 DatabasePreferences
  
• 
  1.2.16 Plot
  
• 
  1.2.17 Utility
  
• 
  1.2.18 ModelSpace
  
• 
  1.2.19 PaperSpace
  

ModelSpace və PaperSpace dən isə aşağıdakı obyektlərə müracət etmək olar.

• 
  3DFace
  
• 
  3DPoly
  
• 
  3DSolid
  
• 
  Arc
  
• 
  Attribute
  
• 
  AttributeReference
  
• 
  BlockReference
  
• 
  Circle
  
• 
  Dim3PointAngular
  
• 
  DimAligned
  
• 
  DimAngular
  
• 
  DimDiametric
  
• 
  DimOrdinate
  
• 
  DimRadial
  
• 
  DimRotated
  
• 
  Ellipse
  
• 
  ExternalReference
  
• 
  Hatch
  
• 
  Leader
  
• 
  LWPolyline
  
• 
  Line
  
• 
  MInsertBlock
  
• 
  MLine
  
• 
  MText
  
• 
  Point
  
• 
  PolyfaceMesh
  
• 
  Polyline
  
• 
  PolygonMesh
  
• 
  RasterImage
  
• 
  Ray
  
• 
  Region
  
• 
  Shape
  
• 
  Solid
  
• 
  Spline
  
• 
  Text
  
• 
  Tolerance
  
• 
  Trace
  
• 
  Xline
  

Bunlardan istifadə çox asandır məsələn, ThisDrawing.Save komandası ilə aktiv cizgini yadda saxlamaq olur.

Hər hansı bir obyektə müracət, ona ya tam yolu göstərməklə mümkündür ya da ki, obyekt dəyişəninə müracət etməklə məsələn, aşağıda düz xətt çəkilmişdir.

Sub Test()

Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double ` Bunlar birölçülü massivlər deməkdir və ölçüləri 3-dür (indeksləri 0, 1, 2)

Dim LineObj As AcadLine

startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0

endPoint(0) = 130: endPoint(1) = 120: endPoint(2) = 0

Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

End Sub

Bu kodu ThisDrawing –də yazmaq olar.

Sub Test()

Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double

Dim LineObj As AcadLine