ΠΠ²ΡΠΎΠΊΠ°Π΄ vba enabler ΡΡΠΎ ΡΡΠΎ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ AutoCAD VBA ΠΈ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ ΡΠ°Π±ΠΎΡΡ Ρ Π½ΠΈΠΌ
ΠΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΠ·ΡΠΊΠ° VBA Π΅Π³ΠΎ Π°Π²ΡΠΎΡΡ ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π»ΠΈΡΡ Π½Π° ΠΎΠ±ΡΡΠ½ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ, Π° Π½Π΅ Π½Π° ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ², ΠΏΠΎΡΡΠΎΠΌΡ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° VBA Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΎΡΡΠΎ ΠΈ Π±ΡΡΡΡΠΎ.
ΠΠ· ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ² ΡΠ·ΡΠΊΠ° VBA ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΌΠ΅ΡΠΈΡΡ Π»Π΅Π³ΠΊΠΎΡΡΡ Π΅Π³ΠΎ ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΡ ΠΈ ΠΏΡΠΎΡΡΠΎΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ, ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΠΎΡΡΡ (ΠΈΠ·ΡΡΠΈΠ² VBA Π΄Π»Ρ AutoCAD ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π±Π΅Π· ΡΡΡΠ΄Π° ΠΈΠ·ΡΡΠΈΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, VBA Π΄Π»Ρ Microsoft Word ΠΈΠ»ΠΈ Excel). ΠΠ»Π°Π²Π½ΡΠΉ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΠΊ ΡΠ·ΡΠΊΠ° VBA β ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ Ρ ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΉ ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΠΎΡΡΡΡ ΡΠ°Π·Π½ΡΡ Π²Π΅ΡΡΠΈΠΉ.
Π AutoCAD ΡΠ°ΠΊΠΆΠ΅ Π΅ΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½Π°Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΡΠ·ΡΠΊΠ° VBA, Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΡΠ»ΡΠΆΠΈΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ AutoCAD VBA Enabler. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π½Π° VBA ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ AutoCAD, ΠΏΡΠΈΠΌΠΈΡΠΈΠ²Π°ΠΌ ΡΠ΅ΡΡΠ΅ΠΆΠ°, ΠΎΠ±ΡΠ°ΡΡΡΡ ΠΌΠ΅ΠΆΠ΄Ρ AutoCAD ΠΈ ΡΡΠΎΡΠΎΠ½Π½ΠΈΠΌΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ΅ Π΄ΡΡΠ³ΠΎΠ΅. ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ·ΡΠΊΠ° VBA ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π»ΡΠ±ΠΎΠΉ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡ ΡΠ°ΡΡΠΈΡΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΡ ΡΠΈΡΡΠ΅ΠΌΡ, Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡΠΈΠ½Π½ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ΅ Π΄ΡΡΠ³ΠΎΠ΅.
ΠΠ°ΠΆΠ½ΡΠΌ ΠΎΡΠ»ΠΈΡΠΈΠ΅ΠΌ VBA Π΄Π»Ρ AutoCAD ΠΎΡ VBA Π΄Π»Ρ Π΄ΡΡΠ³ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎ, ΡΡΠΎ Π² Π½Π΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΡΠ°Π½ΡΡΡΡ Π½Π΅ Π²Π½ΡΡΡΠΈ ΡΠ°ΠΉΠ»ΠΎΠ², Π° Π²ΠΎ Π²Π½Π΅ΡΠ½ΠΈΡ ΡΠ°ΠΉΠ»Π°Ρ Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ DVB.
Π ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΡ Π²Π΅ΡΡΠΈΡΡ AutoCAD ΠΌΠΎΠ΄ΡΠ»Ρ VBA Enabler Π½Π΅ Π²Ρ ΠΎΠ΄ΠΈΡ Π² Π΄ΠΈΡΡΡΠΈΠ±ΡΡΠΈΠ² ΠΈ Π½Π΅ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΡΠ°ΠΌΠΈΠΌ AutoCAD. Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ VBA Π² AutoCAD, Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°ΡΠ°ΡΡ ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ AutoCAD VBA Enabler ΡΠΎ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΡ Π² ΠΈΠ½ΡΠ΅ΡΠ½Π΅ΡΠ΅
ΠΠ°ΠΆΠ½ΠΎ ΡΠΎ, ΡΡΠΎ ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΌΠΎΠ΄ΡΠ»Ρ VBA Enabler Π½ΡΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°ΡΠΈΡΡ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° Π²Π΅ΡΡΠΈΡ AutoCAD ΠΈ Π΅Π³ΠΎ ΡΠ°Π·ΡΡΠ΄Π½ΠΎΡΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΌΠΎΠ΄ΡΠ»Ρ VBA Π΄Π»Ρ AutoCAD 2018 32-x Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π² ΡΡΠ΅Π΄Π΅ AutoCAD 2018 64-x.
ΠΠΎΡΠ»Π΅ ΡΠΊΠ°ΡΠΈΠ²Π°Π½ΠΈΡ, ΡΠ°ΡΠΏΠ°ΠΊΠΎΠ²ΠΊΠΈ ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΌΠΎΠ΄ΡΠ»Ρ AutoCAD VBA Enabler Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ AutoCAD ΠΏΠΎΡΠ²ΠΈΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA.
ΠΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA (VBA IDE) Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ VBAIDE.
ΠΠ½ΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ΅ Π΄Π»Ρ ΡΠ·ΡΠΊΠ° VBA ΠΈ Π½ΠΈΡΠ΅ΠΌ Π½Π΅ ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ VBA Π² Π΄ΡΡΠ³ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Ρ .
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π΄Π²ΠΎΠΈΡΠ½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² VBA Π² AutoCAD Π½Π΅ ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌ Ρ ΡΠΎΡΠΌΠ°ΡΠΎΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² Visual Basic. ΠΠ΄Π½Π°ΠΊΠΎ, Π² VBA Π΄Π»Ρ AutoCAD ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠΌΠΏΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΡΠΌΡ, ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΈ ΠΊΠ»Π°ΡΡΡ, Ρ ΡΠ°Π½ΡΡΠΈΠ΅ΡΡ Π² ΡΠ°ΠΉΠ»Π°Ρ ΡΠΎΡΠΌΠ°ΡΠΎΠ² FRM, BAS ΠΈ CLS ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠ°Π½Π΄, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ VBA:
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΡΡΡΠΈΠ½Π½ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΠΆΠ΄Ρ Excel ΠΈ AutoCAD ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ VBA
Π£ΠΆΠ΅ Π½Π΅ ΠΏΠ΅ΡΠ²ΡΠΉ Π³ΠΎΠ΄ Ρ Π²ΡΡΡΠ΅ΡΠ°Ρ Π½Π° ΠΏΡΠΎΡΠΈΠ»ΡΠ½ΡΡ ΡΠΎΡΡΠΌΠ°Ρ ΠΌΠ½Π΅Π½ΠΈΠ΅, ΡΡΠΎ VBA Π΄Π»Ρ AutoCAD ΠΎΡΠΌΠΈΡΠ°Π΅Ρ, ΠΈ AutoDesk Π½Π΅ Π±ΡΠ΄Π΅Ρ Π΅Π³ΠΎ Π²ΠΊΠ»ΡΡΠ°ΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΠ΅Π»ΠΈΠ·Π°Ρ Π² Π΄ΠΈΡΡΡΠΈΠ±ΡΡΠΈΠ², ΠΈ Π²ΠΎΠΎΠ±ΡΠ΅, ΠΈΡΡΠΈΠ½Π½ΡΠ΅ ΠΏΠ°Π΄Π°Π²Π°Π½Ρ ΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ lisp, C# ΠΈ ΠΏΡΠΎΡΠΈΠΌ, Π½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ Π½Π΅ VBA.
Π― ΠΈΠ½ΠΆΠ΅Π½Π΅Ρ-ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²ΡΠΈΠΊ ΠΠΠΈΠ, Π½Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ. Π Π½Π΅ Ρ ΠΎΡΡ, Π΄Π° ΠΈ Π½Π΅ΠΊΠΎΠ³Π΄Π°, Π²Π½ΠΈΠΊΠ°ΡΡ Π² ΡΠ΅ΡΡΠ΅Π·Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. Π§Π°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΈΡΡΠ°ΡΠΈΡ, ΡΡΠΎ Π½ΡΠΆΠ½ΠΎ ΠΊΠ°ΠΊ-ΡΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡΠΈΠ½Ρ Π·Π΄Π΅ΡΡ ΠΈ ΡΠ΅ΠΉΡΠ°Ρ. ΠΠ° ΠΏΠΎΠΌΠΎΡΡ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠ·ΡΠΊ VBA.
ΠΠ°Π»Π΅Π΅ Ρ ΠΏΠΎΠΊΠ°ΠΆΡ, ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π±Π΅Π· ΠΎΡΠΎΠ±ΡΡ Π·Π°Π±ΠΎΡ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΌΠΎΠΌΡ ΡΠΎ, Π·Π° ΡΡΠΎ ΡΠ΅ΡΡΠ΅Π·Π½ΡΠ΅ ΡΠ΅Π±ΡΡΠ° Π±Π΅ΡΡΡ Π½Π΅ ΠΏΠ»ΠΎΡ ΠΈΠ΅ Π΄Π΅Π½Π΅ΠΆΠΊΠΈ. Π ΠΈΠΌΠ΅Π½Π½ΠΎ ΠΏΠ΅ΡΠ΅Π½ΠΎΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Excel Π² AutoCAD ΠΈ ΠΎΠ±ΡΠ°ΡΠ½ΠΎ. ΠΠ°ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΠΎΡΡ ΠΏΠΎΠ΄ ΠΊΠ°Ρ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ Π±ΡΠ΄Π΅ΠΌ Π½Π° ΡΡΠΎΡΠΎΠ½Π΅ Excel β ΠΌΠ½Π΅ ΡΠ°ΠΊ ΠΏΡΠΎΡΠ΅. ΠΠ»Ρ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ Π½ΡΠΆΠ½ΠΎ Π²ΠΎΠΉΡΠΈ Π² ΡΠ΅ΠΆΠΈΠΌ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°: Alt+F8 ΠΠΈΠ±ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΊΡΡΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» ΠΈΠ· Π½Π°ΡΡΡΠΎΠ΅ΠΊ Π»Π΅Π½ΡΡ.
Π ΠΎΠΊΠ½Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° VBA Π²Ρ ΠΎΠ΄ΠΈΠΌ Π² Π²Π΅ΡΡ Π½Π΅Π΅ ΠΌΠ΅Π½Ρ: Tools/References. Π ΡΡΠΎΠΌ ΠΎΠΊΠ½Π΅ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΡΡΠ°Π²ΠΈΡΡ Π³Π°Π»ΠΎΡΠΊΡ Π½Π° Π²Π°ΡΠ΅ΠΉ Π²Π΅ΡΡΠΈΠΈ AutoCAD
Π ΠΌΠΎΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ AutoCAD 2014 Type Library. ΠΠ°Π»Π΅Π΅ Π½ΡΠΆΠ½ΠΎ Π² Π»Π΅Π²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΡΠΎΠ·Π΄Π°ΡΡ Π² Π²Π°ΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΊΠ°ΠΊ Π½Π° ΡΠΊΡΠΈΠ½ΡΠΎΡΠ΅ (Module)
Π Π² ΠΌΠΎΠ΄ΡΠ»Ρ Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π½ΠΈΠΆΠ΅ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ ΠΊΠΎΠ΄:
ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π±Π»ΠΎΠΊΠΈ Ρ Π°ΡΡΠΈΠ±ΡΡΠ°ΠΌΠΈ, Π² ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡΠ°Π²Π»ΡΡΡ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΡΡΠ΅Π΅ΠΊ.
ΠΡΠΆΠ½ΠΎ Π²Π½Π΅ΡΡΠΈ Π² Π²Π΅ΡΡ
Π½ΠΈΠΉ ΠΊΠΎΠ΄ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π²ΡΠΎΠ΄Π΅:
ΠΠΎΠ΄ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ° ΠΏΠΎ Ρ ΡΠ½Π΄Π»Ρ β Π½Π°ΠΏΠΈΡΠ°Π½ Π½ΠΈΠΆΠ΅: ‘ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ Ρ ΡΠ½Π΄Π» ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΌΡ Π·Π°ΠΏΠΈΡΠ°Π»ΠΈ ΠΊΠΎΠ΄ΠΎΠΌ Π²ΡΡΠ΅.
entHandle = ActiveCell.Offset(0, 3).Value ‘ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ Π½Π°Ρ Π±Π»ΠΎΠΊ ΠΏΠΎ Ρ
ΡΠ½Π΄Π»Ρ
Set blockObj = acadDoc.HandleToObject(entHandle)
Π Π΄Π°Π»ΡΡΠ΅ Π΄Π΅Π»Π°Π΅ΠΌ Π²ΡΡ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, ΡΡΠΎ ΠΈ Π²ΡΡΠ΅.
ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°Π·ΡΡΡΠ½ΠΈΡΡ ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π²ΠΆΠΈΠ²ΡΡ β Π·Π°ΠΏΠΈΡΠ°Π» Π²ΠΈΠ΄Π΅ΠΎ:
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΡΠ΅, ΠΊΠΎΠ΄Π° ΠΌΠΈΠ½ΠΈΠΌΡΠΌ, ΠΎΠ΄Π½Π°ΠΊΠΎ Π½Π° Π±ΠΎΠ»ΡΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ ΠΌΠ½Π΅ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΡ ΠΏΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°ΡΠΎΠ² ΡΠ°Π±ΠΎΡΡ. Π ΡΠ½ΠΈΠΆΠ°Π΅ΡΡΡ ΡΠΈΡΠΊ ΠΎΡΠΈΠ±ΠΊΠΈ. Π’.ΠΊ. ΠΎΠ±ΡΡΠ½ΠΎ ΡΡΠΎ Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²ΡΠΈΠΊΠΎΠ² β ΠΎΡΠΊΡΡΠ²Π°ΡΡΡΡ Π΄Π²Π° ΠΎΠΊΠ½Π° Π½Π° ΡΠ°Π·Π½ΡΡ ΡΠΊΡΠ°Π½Π°Ρ , ΠΈ ΠΈΠ»ΠΈ Π²ΡΡΡΠ½ΡΡ, ΠΈΠ»ΠΈ ΡΠ΅ΡΠ΅Π· Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π° Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ½ΠΎΡΠΎΠΊ ΠΈΠ»ΠΈ Π±Π»ΠΎΠΊΠΎΠ² Π½Π° ΡΠ΅ΡΡΠ΅ΠΆΠ΅.
ΠΠΏΡΡΡ ΠΆΠ΅ ΡΠ΅ΠΌ Ρ ΠΎΡΠΎΡ VBA β ΡΡΠΎ ΠΎΠ½ Π²ΡΠ΅Π³Π΄Π° ΠΏΠΎΠ΄ ΡΡΠΊΠΎΠΉ π Excel-ΡΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½Ρ Ρ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ°.
ΠΠ²ΡΠΎΠΊΠ°Π΄ vba enabler ΡΡΠΎ ΡΡΠΎ
CΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠΈΠ»ΠΈΡΡ Π΄Π»Ρ AutoCAD 2000 Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA
ΠΠ²ΡΠΎΡ: Mike Gunderloy
ΠΎΡΠΈΠ³ΠΈΠ½Π°Π» ΡΡΠ°ΡΡΠΈ Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡΡ ΠΏΠΎ Π·Π΄Π΅ΡΡ
ΠΠ²ΡΠΎΡ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π°: ΠΠΈΠΊΡΠΎΡ Π’ΠΊΠ°ΡΠ΅Π½ΠΊΠΎ
http://www.cad.dp.ua/
Π‘ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ AutoCAD 2000, VBA Π² AutoCAD Π΄ΠΎΡΡΠΈΠ³ ΡΠΎΠ²Π΅ΡΡΠ΅Π½Π½ΠΎΠ»Π΅ΡΠΈΡ. ΠΠΎΠ²Π°Ρ Π²Π΅ΡΡΠΈΡ ΠΈΠ·Π±Π°Π²ΠΈΠ»Π°ΡΡ ΠΎΡ ΠΌΠ½ΠΎΠ³ΠΈΡ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠΉ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ VBA Π² AutoCAD R14, ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΠ»Π° ΡΠ΅Π°Π»ΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΊ AutoCAD.
Π§ΡΠΎΠ±Ρ ΠΏΠΎΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ, ΡΡΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΅ΠΏΠ΅ΡΡ Π΄Π΅Π»Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA, ΡΡΠ° ΡΡΠ°ΡΡΡ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΏΡΠΎΡΡΡΡ ΡΡΠΈΠ»ΠΈΡΡ MRU +. ΠΡΠ° ΡΡΠΈΠ»ΠΈΡΠ°, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½Π°Ρ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 1, ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΡ ΠΎΡΠΊΡΡΡΡΡ ΡΠ΅ΡΡΠ΅ΠΆΠ΅ΠΉ, ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΠ°ΠΌ ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π·Π°Π³ΡΡΠΆΠ΅Π½Ρ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ, ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΠ°ΠΌ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΈ Π²ΡΠ³ΡΡΠΆΠ°ΡΡ ΡΠ΅ΡΡΠ΅ΠΆΡ ΠΏΡΠΎΡΡΠΎ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Ρ Π³Π°Π»ΠΎΡΠΊΡ ΡΡΠ΄ΠΎΠΌ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΡΠ΅ΡΡΠ΅ΠΆΠ°. Π₯ΠΎΡΡ ΡΡΠΎ ΠΏΡΠΎΡΡΠ°Ρ ΡΡΠΈΠ»ΠΈΡΠ°, Π½ΠΎ MRU + Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΠΈΠ· Π½ΠΎΠ²ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡΠ΅ΠΉ VBA Π² AutoCAD, ΠΈ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΠΎΠΌΠΎΡΡ Π½Π°ΡΡΠΈΡΡ Π²Π°Ρ Π²Π»Π°Π΄Π΅ΡΡ ΡΡΠ΅Π΄ΠΎΠΉ VBA Π² AutoCAD.
ΠΠΎΠ±ΡΠΎ ΠΏΠΎΠΆΠ°Π»ΠΎΠ²Π°ΡΡ Π² VBA AutoCAD.
ΠΠ²Π° ΡΠΈΠΏΠ° ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² Π² VBA
ΠΠΎΠ½Π΅ΡΠ½ΠΎ, Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»Π΅Π½ Π΄Π»Ρ ΡΡΠΈΠ»ΠΈΡΡ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠΉ, ΡΡΠΎΠ±Ρ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΠ΅ΡΡΠ΅ΠΆΠ΅ΠΉ. Π ΡΠ»ΡΡΠ°Π΅ MRU +, Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ ΡΡΠΎ ΡΠ°Π»ΠΉ MRUPlus.dvb. Π Π°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ «dvb» ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ AutoCAD Π΄Π»Ρ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ², ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΡ Π½Π° Π΄ΠΈΡΠΊΠ΅.
ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅
AutoCAD 2000 Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π΅ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅Ρ VBA Π²ΡΡΠΊΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΠΡ Π΅Π³ΠΎ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΠ΅. Π‘ΠΊΠΎΡΠ΅Π΅, VBA Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ ΠΏΠΎ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ. ΠΠ΄Π½Π°ΠΊΠΎ, ΠΈΠΌΠ΅ΡΡΡΡ Π΄Π²Π° ΡΠΏΠΎΡΠΎΠ±Π° ΠΊΠΎΠ³Π΄Π° ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΈ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΊΠΎΠ΄ VBA ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅. ΠΠΎ ΠΏΠ΅ΡΠ²ΡΡ , ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ VBA, Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ acad.dvb, ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΡΡ Π΅Π³ΠΎ Π² Π²Π°ΡΠ΅ΠΌ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅ AutoCAD. ΠΡΠ±ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Ρ ΡΡΠΈΠΌ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Π±ΡΠ΄Π΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π³ΡΡΠΆΠ΅Π½ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ AutoCAD. ΠΠ°Π»Π΅Π΅, Π΅ΡΠ»ΠΈ ΡΡΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΌΠ°ΠΊΡΠΎc ( ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Sub ) Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ AcadStartup, ΡΡΠ° ΠΌΠ°ΠΊΡΠΎΠΊΠΎΠΌΠ°Π½Π΄Π° Π±ΡΠ΄Π΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ, ΠΊΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΉΠ» acad.dvb Π·Π°Π³ΡΡΠΆΠ΅Π½.
ΠΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ AutoLisp Π² ΡΠ°ΠΉΠ»Π΅ acad.lsp, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅ AutoCAD. ΠΡΠ±Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ AutoLisp Π½Π°Π·Π²Π°Π½Π°Ρ STARTUP Π² ΡΡΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ Π±ΡΠ΄Π΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ, ΠΊΠΎΠ³Π΄Π° ΡΠ°ΠΉΠ» Π·Π°Π³ΡΡΠΆΠ΅Π½. ΠΠ°ΠΊ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ Π²ΠΈΠ΄Π΅ΡΡ Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅, Autodesk ΡΠ΄Π΅Π»Π°Π»Π° Ρ ΠΎΡΠΎΡΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ²ΡΠ·ΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΠ°ΡΡΠΈΠΌ ΡΠ·ΡΠΊΠΎΠΌ Lisp ΠΈ Π±ΠΎΠ»Π΅Π΅ Π½ΠΎΠ²ΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ VBA, ΡΡΠΎ Π±Ρ ΡΡΠ°Π»ΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π΄Π»Ρ ΠΊΠΎΠ΄Π° Lisp, Π²ΡΠ·Π²Π°ΡΡ ΠΊΠΎΠ΄ VBA ΠΈ Π½Π°ΠΎΠ±ΠΎΡΠΎΡ.
ΠΠ»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, Ρ ΠΎΡΠΎΡΠ°Ρ ΠΌΡΡΠ»Ρ, ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°ΠΉΠ» acad.lsp, ΡΡΠΎΠ±Ρ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅. ΠΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ AutoCAD Π·Π½Π°ΠΊΠΎΠΌΡ Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΠΈ Ρ ΡΠ·ΡΠΊΠΎΠΌ Autolisp, ΡΠ°ΠΊ ΡΡΠΎ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠ΄Π°, ΡΡΠΎΠ±Ρ Π·Π°Π³ΡΡΠ·ΠΈΡΡ Π²Π°ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π΄Π»Ρ Π½ΠΈΡ ΠΏΡΠΎΡΡΠΎ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΡΠΎ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΈΠ»ΠΈ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· Π½Π΅Π³ΠΎ Π² ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅ Π²ΡΠ΅ΠΌΡ.
Π§ΡΠΎΠ±Ρ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ Autolisp, ΡΡΠΎΠ±Ρ Π²ΡΠ·Π²Π°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ AutoCAD vbaload:
ΠΠ»ΠΈ, ΡΡΠΎΠ±Ρ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΏΡΠΎΡΠ΅ΡΡ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ·ΡΠ²Π°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ vbarun:
ΠΡΠ³ΡΠΌΠ΅Π½Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ vbarun ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΊΠ²Π°Π»ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½ Π² ΡΠΎΡΠΌΠ΅:
ΠΡΠ»ΠΈ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» Π½Π΅ Π·Π°Π³ΡΡΠΆΠ΅Π½, ΠΎΠ½ Π±ΡΠ΄Π΅Ρ ΡΠ½Π°ΡΠ°Π»Π° Π·Π°Π³ΡΡΠΆΠ΅Π½, ΠΈ Π·Π°ΡΠ΅ΠΌ Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ ΠΌΠ°ΠΊΡΠΎΡ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΠΊΠΎΠΌΠ°Π½Π΄Ρ vbarun ΠΈΠ»ΠΈ vbaload Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΡΠ°ΠΉΠ»Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ· Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π° AutoCAD. ΠΡΠ»ΠΈ Π²Π°ΡΠ° ΡΡΠΈΠ»ΠΈΡΠ° ΡΠΎΡ ΡΠ°Π½Π΅Π½Π° Π² Π΄ΡΡΠ³ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅, Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΠΈ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π² Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ΅. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, ΠΡ Π½ΡΠΆΠ΄Π°Π΅ΡΠ΅ΡΡ Π² «escape» ΠΈΠ· Π·Π½Π°ΠΊΠΎΠ² Π½Π°ΠΊΠ»ΠΎΠ½Π½ΠΎΠΉ ΡΠ΅ΡΡΡ Π²Π»Π΅Π²ΠΎ, ΡΠ΄Π²Π°ΠΈΠ²Π°Ρ ΠΈΡ . ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΠΎ ΠΈΠΌΠ΅Π»ΠΎ ΡΠΈΠ»Ρ Π±Ρ Π² ΡΠ°ΠΉΠ»Π΅ acad.lsp:
ΠΠ°ΠΊ ΡΠ°ΡΡΡ ΡΠ²ΠΎΠ΅Π³ΠΎ Π·Π°Π³ΡΡΠ·ΠΎΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, MRU + Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ ΡΠ΅Π±Ρ ΠΊ ΠΌΠ΅Π½Ρ AutoCAD File, ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΡΠ΅ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΠΏΠΈΡΠΊΠ° ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ². Π ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΡ Π²Π΅ΡΡΠΈΡΡ AutoCAD, ΡΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Π±ΡΠ»Π° ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° Π΄Π»Ρ ΠΊΠΎΠ΄Π° VBA. Π’Π΅ΠΏΠ΅ΡΡ Π½ΠΎΠ²Π°Ρ Π²Π΅ΡΠ²Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ AutoCAD Π΄Π΅Π»Π°Π΅Ρ ΡΠ°ΠΊΠΈΠ΅ Π²Π΅ΡΠΈ ΡΡΠΈΠ²ΠΈΠ°Π»ΡΠ½ΡΠΌΠΈ.
Π ΠΈΡΡΠ½ΠΎΠΊ 3 ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½ΠΎΠ²ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΡ AutoCAD, Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ Π΄Π»Ρ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΠ°Π½Π΅Π»ΡΡ ΠΈ ΠΌΠ΅Π½Ρ. ΠΠ±ΡΠ΅ΠΊΡ MenuBar ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΡΠ΅Ρ Π²ΡΠ΅ ΠΌΠ΅Π½Ρ, Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½Π½ΡΠ΅ Π² Π³Π»Π°Π²Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅ ΠΌΠ΅Π½Ρ AutoCAD. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΡΠ°Π²ΠΈΠ»ΡΡΡ ΠΈ ΡΠ΄Π°Π»ΡΡΡ ΠΌΠ΅Π½Ρ, Π²ΡΠ·ΡΠ²Π°Ρ ΠΌΠ΅ΡΠΎΠ΄Ρ InsertInMenuBar ΠΈ RemoveFromMenuBar ΠΎΠ±ΡΠ΅ΠΊΡΠ° PopupMenu.
ΠΠ±ΡΠ΅ΠΊΡ PopupMenu ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ΅ ΠΏΠ°Π΄Π°ΡΡΠ΅Π΅ ΠΌΠ΅Π½Ρ, ΠΈΠ»ΠΈ ΠΌΠ΅Π½Ρ Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΏΠΎ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΌΡΡΠΈ. ΠΠ±ΡΠ΅ΠΊΡ PopupMenuItem ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ.
Π‘ΠΈΡΡΠ΅ΠΌΠ° MenuGroups ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π°Π±ΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² MenuGroup. ΠΠ°ΠΆΠ΄ΡΠΉ MenuGroup ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΌΠ΅Π½Ρ ΠΈ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ². ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Π³ΡΡΠΆΠ°ΡΡ Π³ΡΡΠΏΠΏΡ ΠΌΠ΅Π½Ρ ΠΈΠ· ΡΠ°ΠΉΠ»Π° Π½Π° Π΄ΠΈΡΠΊΠ΅. ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ Π·Π°Π³ΡΡΠ·ΠΈΠ»ΠΈ Π³ΡΡΠΏΠΏΡ ΠΌΠ΅Π½Ρ, Π΅Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΡΡΠ°Π½Π΅Ρ Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌ, ΡΡΠΎΠ±Ρ Π·Π°Π³ΡΡΠ·ΠΈΡΡΡΡ Π² MenuBar ΠΈΠ»ΠΈ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΡΠ΅ ΠΌΠ΅Π½Ρ.
Π‘ΠΈΡΡΠ΅ΠΌΠ° Toolbars ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ Toolbar, ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ². ΠΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ ToolbarItem.
Π£ΡΠΈΠ»ΠΈΡΠ° MRU + Π΄Π΅Π»Π°Π΅Ρ ΡΠ°ΠΌΡΡ ΠΏΡΠΎΡΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Ρ ΡΡΠΈΠΌΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ: ΠΠ½Π° ΠΏΡΠΈΠ±Π°Π²Π»ΡΠ΅Ρ ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΊ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠΌΡ ΠΌΠ΅Π½Ρ. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ ΠΊΠΎΠ΄Π°:
Π₯ΠΎΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠΌΠ΅ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ Π·Π°Π³ΡΡΠΆΠ΅Π½Π½ΡΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² VBA, ΠΎΠ½ΠΈ Π²ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Π½Π°Π·Π²Π°Π½Π½ΡΠΉ ThisDrawing. ΠΡΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ Π² ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ AutoCAD, ΠΈ ΠΈΠΌΠ΅Π΅Ρ ΠΊΠ»Π°ΡΡ AcadDocument. (Π ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΠΌΠ½ΠΎΠ³ΠΈΡ Π΄ΡΡΠ³ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΡ ΠΌΠΎΠ΄Π΅Π»Π΅ΠΉ, Π² ΠΌΠΎΠ΄Π΅Π»ΠΈ AutoCAD ΠΈΠΌΠ΅Π½Π° Π²ΡΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π½Π°ΡΠΈΠ½Π°ΡΡΡΡΡ Ρ ΠΏΡΠ΅ΡΠΈΠΊΡΠ° «Acad», ΡΡΠΎΠ±Ρ Π³Π°ΡΠ°Π½ΡΠΈΡΠΎΠ²Π°ΡΡ ΠΎΠ΄Π½ΠΎΠ·Π½Π°ΡΠ½ΠΎΡΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΡ ). ΠΡΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² VBA Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ Π΄Π»Ρ ΡΠΎΠ±ΡΡΠΈΠΉ Π΄Π»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ThisDrawing, ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΠΉ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΠΎΡΠ΅ΡΠ΅Π΄ΠΈ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΠΉ ThisDrawing ΠΏΡΠΎΡΡΠΎ. ΠΠ°ΠΆΠ΄ΡΠΉ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΠΡ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ThisDrawing ΠΊΠΎΡΠΎΡΡΠΉ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ΄Π°Π»Π΅Π½. Π ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ MRU + ΡΠΎΠ±ΡΡΠΈΠ΅ ThisDrawing.BeginClose ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ, ΡΡΠΎΠ±Ρ ΡΠΎΠΎΠ±ΡΠΈΡΡ Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅, ΠΊΠΎΠ³Π΄Π° ΡΠΈΡΡΠ½ΠΎΠΊ Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ ΠΈΠ· ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°. ΠΡΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΠΊΠΎΠ΄Π°, ΡΡΠΎΠ±Ρ Π²ΡΠ·Π²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ public ΡΠΎΡΠΌΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΡΡΠΎΠ±Ρ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ListItem Π² ListView ΠΈ Π½Π΅ ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΠΎΠ²Π°ΡΡ ΡΡΠΎ.
ΠΠΌΡ ΡΠΎΠ±ΡΡΠΈΡ | ΠΠΎΠ²ΠΎΠ΅ | ΠΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΊΠΎΠ³Π΄Π°: |
Activate | ΠΠ° | ΠΠΊΠ½ΠΎ ΡΠ΅ΡΡΠ΅ΠΆΠ° Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ |
BeginClose | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠ»ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΡΠ°Π΅ΡΡΡ Π·Π°ΠΊΡΡΡΡ ΡΠ΅ΡΡΠ΅ΠΆ |
BeginCommand | ΠΠ° | ΠΠ°ΠΏΡΡΠ΅Π½Π° ΠΊΠΎΠΌΠ°Π½Π΄Π° |
BeginDoubleClick | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠ΅ΠΊ ΠΌΡΡΡΡ Π½Π° Π»ΡΠ±ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ ΡΠ΅ΡΡΠ΅ΠΆΠ° |
BeginLisp | ΠΠ΅Ρ | Lisp-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠΎΡΡΠ»Π°Π΅ΡΡΡ Π½Π° ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ |
BeginPlot | ΠΠ° | ΠΠ°ΡΠΈΠ½Π°Π΅ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΏΠ΅ΡΠ°ΡΠΈ |
BeginRightClick | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ Π½Π°ΠΆΠΈΠΌΠ°Π΅Ρ ΠΏΡΠ°Π²ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΌΡΡΠΈ Π½Π° Π»ΡΠ±ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Π² ΡΠ΅ΡΠ΅ΡΠ΅ΠΆΠ΅ |
BeginSave | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π°ΡΠΈΠ½Π°Π΅Ρ ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΡΠ΅ΡΡΠ΅ΠΆ |
BeginShortcutMenuCommand | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ΄Π°Π΅Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΊΠΎΠΌΠΌΠ°Π½Π΄Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ° |
BeginShortcutMenuDefault | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ΄Π°Π΅Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ |
BeginShortcutMenuEdit | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ΄Π°Π΅Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ EDIT |
BeginShortcutMenuGrip | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ΄Π°Π΅Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ GRIP |
BeginShortcutMenuOsnap | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ΄Π°Π΅Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ OSNAP |
Deactivate | ΠΠ° | ΠΠΊΠ½ΠΎ ΡΠ΅ΡΡΠ΅ΠΆΠ° ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡΡ Π½Π΅ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ |
EndCommand | ΠΠ΅Ρ | ΠΠ°Π²Π΅ΡΡΠ°Π΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ |
EndLisp | ΠΠ° | ΠΠ°Π²Π΅ΡΡΠ°Π΅ΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Lisp-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ |
EndPlot | ΠΠ° | ΠΠ°Π²Π΅ΡΡΠ°Π΅ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΏΠ΅ΡΠ°ΡΠΈ |
EndSave | ΠΠ° | ΠΠ°Π²Π΅ΡΡΠ°Π΅ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Π·Π°ΠΏΠΈΡΠΈ |
EndShortcutMenu | ΠΠ° | ΠΡΠ±ΠΎΠ΅ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ. |
LayoutSwitched | ΠΠ° | ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅ΡΡ Π½Π° Π΄ΡΡΠ³ΠΎΠΉ layout |
LispCancelled | ΠΠ° | ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ lisp-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΡΠ΅ΡΠ²Π°Π½ΠΎ |
ObjectAdded | ΠΠ° | ΠΡΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ ΠΊ ΡΠ΅ΡΡΠ΅ΠΆΡ |
ObjectErased | ΠΠ° | ΠΡΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠ΄Π°Π»Π΅Π½ ΠΈΠ· ΡΠ΅ΡΡΠ΅ΠΆΠ° |
ObjectModified | ΠΠ° | ΠΡΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½ |
SelectionChanged | ΠΠ° | Π’Π΅ΠΊΡΡΠΈΠΉ Π½Π°Π±ΠΎΡ Π²ΡΠ±ΠΎΡΠ° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ |
WindowChanged | ΠΠ° | ΠΠΊΠ½ΠΎ ΠΌΠ°ΠΊΡΠΈΠΌΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ ΠΈΠ»ΠΈ ΠΌΠΈΠ½ΠΈΠΌΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ |
WindowMovedOrResized | ΠΠ° | ΠΠΊΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΡΡΡ ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅Ρ |
ΠΠ°ΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Application
ΠΠΎΠΌΠΈΠΌΠΎ Π½Π°Π»ΠΈΡΠΈΡ ThisDrawing, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ, ΡΡΠΈΠ»ΠΈΡΠ° MRU + ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΠ±ΡΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° AcadApplication (ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ΅Π³ΠΎ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ AutoCAD) ΡΡΠΎΠ±Ρ Π·Π½Π°ΡΡ, ΠΊΠΎΠ³Π΄Π° Π½ΠΎΠ²ΡΠΉ ΡΠΈΡΡΠ½ΠΎΠΊ Π±ΡΠ» ΠΎΡΠΊΡΡΡ. Π ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ThisDrawing, ΠΎΠ΄Π½Π°ΠΊΠΎ, Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠ΅ VBA ΠΎΠ±ΡΠ΅ΠΊΡΡ Π½Π΅ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΠ±ΡΠ°Π·Π΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° AcadApplication. Π ΡΡΠ°ΡΡΡΡ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² VBA ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ WithEvents, ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ Π²Π°Ρ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ. ΠΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΡΠΎΠ±ΡΡΠΈΠΉ, ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ MRU+, ΡΡΠΎΠ±Ρ Π·Π°ΡΠ΅ΠΏΠΈΡΡ cΠΎΠ±ΡΡΠΈΠ΅ EndOpen ΠΎΠ±ΡΠ΅ΠΊΡΠ° AcadApplication, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ½ΡΠ΅ΡΡΡ Π²ΡΡΠΊΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π½ΠΎΠ²ΡΠΉ ΡΠΈΡΡΠ½ΠΎΠΊ, Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠΉ Π² ΡΠ»Π΅Π΄ΡΡΡΠΈΡ Π°Π±Π·Π°ΡΠ°Ρ .
Π€Π°ΠΉΠ» acad.lsp, ΠΊΠ°ΠΊ ΠΡ ΡΠΆΠ΅ Π²ΠΈΠ΄Π΅Π»ΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠΎΠ΄ Π²ΡΠ·ΠΎΠ²Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ LoadMRUPlus Π² basMRUPlus. ΠΠ°ΡΡΠ΄Ρ Ρ Π΄ΡΡΠ³ΠΈΠΌ Π·Π°Π³ΡΡΠ·ΠΎΡΠ½ΡΠΌ ΠΊΠΎΠ΄ΠΎΠΌ, ΡΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΠΎΠ±ΡΠ°Π·Π΅Ρ ΡΠ°ΡΡΠ½ΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ CApp ΠΈ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π΅Π³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²:
Π‘ΠΎΠ±ΡΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° AcadApplication ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ Π½ΠΎΠ²ΡΠ΅ Π² AutoCAD 2000. Π ΡΠ°Π±Π»ΠΈΡΠ΅ Π½ΠΈΠΆΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ ΡΠΏΠΈΡΠΎΠΊ Π½ΠΎΠ²ΡΠ΅Ρ ΡΠΎΠ±ΡΡΠΈΠΉ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ° AcadApplication.
ΠΠΌΡ ΡΠΎΠ±ΡΡΠΈΡ | ΠΠΎΠ³Π΄Π° ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ |
AppActivate | AutoCAD ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΡΠΎΠΊΡΡ |
AppDeactivate | AutoCAD ΡΠ΅ΡΡΠ΅Ρ ΡΠΎΠΊΡΡ |
ARXLoaded | ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ObjectARX Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ |
ARXUnloaded | ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ObjectARX Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ |
BeginCommand | ΠΠΎΠΌΠ°Π½Π΄Π° Π·Π°ΠΏΡΡΠ΅Π½Π° ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ AutoCAD |
BeginFileDrop | Π€Π°ΠΉΠ» ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ Π½Π° ΡΠ°Π±ΠΎΡΠ΅Π΅ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²ΠΎ AutoCAD |
BeginLisp | ΠΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ Lisp-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ |
BeginModal | ΠΠΎΠ΄Π°Π»ΡΠ½ΠΎΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠΎΠ±ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡΡ. |
BeginOpen | Π§Π΅ΡΡΠ΅ΠΆ ΡΠΎΠ±ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡΠΊΡΡΡΡΡΡ |
BeginPlot | Π§Π΅ΡΡΠ΅ΠΆ ΠΎΡΠΏΡΠ°Π²Π»ΡΠ΅ΡΡΡ Π½Π° ΠΏΠ΅ΡΠ°ΡΡ |
BeginQuit | Π‘Π΅ΡΡΠΈΡ AutoCAD ΡΠΎΠ±ΠΈΡΠ°Π΅ΡΡΡ Π·Π°Π²Π΅ΡΡΠΈΡΡΡΡ |
BeginSave | ΠΠΎΠΊΡΠΌΠ΅Π½Ρ ΠΎΡΠΏΡΠ°Π²Π»Π΅ Π½Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ |
EndCommand | ΠΠΎΠΌΠ°Π½Π΄Π° Π·Π°Π²Π΅ΡΡΠ°Π΅Ρ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ |
EndLisp | Lisp-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΎ |
EndModal | ΠΠΎΠ΄Π°Π»ΡΠ½ΡΠΉ Π΄ΠΈΠ°Π»ΠΎΠ³ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½. |
EndOpen | Π§Π΅ΡΡΠ΅ΠΆ ΠΎΡΠΊΡΡΡ |
EndPlot | Π§Π΅ΡΡΠ΅ΠΆ Π½Π°ΠΏΠ΅ΡΠ°ΡΠ°Π½ |
EndSave | Π§Π΅ΡΡΠ΅ΠΆ ΡΠΎΡ ΡΠ°Π½Π΅Π½ |
LispCancelled | ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Lisp-Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΡΠ΅ΡΠ²Π°Π½ΠΎ |
NewDrawing | Π‘ΠΎΠ·Π΄Π°Π½ Π½ΠΎΠ²ΡΠΉ ΡΠ΅ΡΡΠ΅ΠΆ |
SysVarChanged | ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ |
WindowChanged | ΠΠΊΠ½ΠΎ ΠΌΠΈΠ½ΠΈΠΌΠΈΠ·ΠΈΡΠΎΠ²Π°Π½ΠΎ ΠΈΠ»ΠΈ ΠΌΠ°ΠΊΡΠΈΠΌΠΈΠ·ΠΈΡΠΎΠ²Π°Π½ΠΎ |
WindowMovedOrResized | ΠΠΊΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΎ ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ Π΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅Ρ |
Π₯ΠΎΡΡ MRU + ΡΡΠΈΠ»ΠΈΡΠ°, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½Π°Ρ Π·Π΄Π΅ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΊΠ°ΠΊ Π΄ΠΎΠΊΠ°Π·Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ, ΠΎΠ½Π° Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ Π²ΡΠ΅ ΡΡ Π΅ΠΌΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ Π±ΡΠ»ΠΈ Π±Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ Π΄Π΅Π»Π°ΡΡ Ρ Π»ΡΠ±ΠΎΠΉ ΡΡΠΈΠ»ΠΈΡΠΎΠΉ Π΄Π»Ρ AutoCAD. Autodesk Π²Π»ΠΎΠΆΠΈΠ» ΠΌΠ½ΠΎΠ³ΠΎ ΡΡΠΈΠ»ΠΈΡ Π² ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ VBA ΠΊΠ°ΠΊ ΠΏΠ΅ΡΠ²ΠΎΠΊΠ»Π°ΡΡΠ½ΠΎΠΉ ΡΡΠ΅Π΄ΠΎΠΉ ΠΎΠΊΡΡΠΆΠ΅Π½ΠΈΡ Π΄Π»Ρ AutoCAD.
ΠΠ΄Π°ΠΏΡΠ°ΡΠΈΡ AutoCAD ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ VBA
VBA ΠΌΠΎΠΆΠ΅Ρ ΡΠ»ΡΠΆΠΈΡΡ ΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ, Π² ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΡΡΠΎΠ΅Π½Π° ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° VBA. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, AutoCAD ΠΌΠΎΠΆΠ΅Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Microsoft Word ΠΈΠ»ΠΈ Excel, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
Π§ΡΠΎΠ±Ρ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΡ AutoCAD VBA ΡΠ°ΠΊΠΈΠΌΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌΠΈ, ΠΊΠ°ΠΊ ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π²Π½Π΅ΡΠ½ΠΈΠΌΠΈ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ ΠΈΠ»ΠΈ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΎΡΡΠ΅ΡΠΎΠ², ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΡΠΈ ΠΏΠ°ΠΊΠ΅Ρ Visual Basic 6, ΡΠ²Π»ΡΡΡΠΈΠΉΡΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΡΠΌ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠΌ.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ AutoCAD VBA
VBA ΠΎΡΠΏΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π· ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ AutoCAD ActiveX Automation. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° AutoCAD VBA ΡΡΠ΅Π΄Π° Visual Basic ΠΌΠΎΠΆΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ Ρ AutoCAD ΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ AutoCAD ΡΠ΅ΡΠ΅Π· ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ActiveX Automation. Π‘Π²ΡΠ·ΠΊΠ° AutoCAD, ActiveX Automation ΠΈ VBA ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ΅Π½Ρ ΠΌΠΎΡΠ½ΡΠΌ ΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ½Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ AutoCAD, Π½ΠΎ ΠΈ ΠΎΠ±ΠΌΠ΅Π½ΠΈΠ²Π°ΡΡΡΡ Π΄Π°Π½Π½ΡΠΌΠΈ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ.
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠΈ VBA Π² AutoCAD ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½Ρ Π΄Π»Ρ Π°Π΄Π°ΠΏΡΠ°ΡΠΈΠΈ AutoCAD. Π‘ Π΅Π³ΠΎ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠΎΠΆΠ½ΠΎ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΈΠ·Π²Π»Π΅ΠΊΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π°ΡΡΠΈΠ±ΡΡΠΎΠ², Π²ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π² ΠΊΠ½ΠΈΠ³Ρ Excel ΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ Π΄ΡΡΠ³ΠΈΠ΅ ΡΡΠ΅Π±ΡΠ΅ΠΌΡΠ΅ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΡΡΠΈΠΈ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ.
ΠΡΠΈΠ½ΡΠΈΠΏΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° VBA Π΄Π»Ρ AutoCAD ΠΎΡΠ½ΠΎΠ²ΡΠ²Π°ΡΡΡΡ Π½Π° ΡΡΠ΅Ρ Π±Π°Π·ΠΎΠ²ΡΡ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠΈΡ . ΠΠ΅ΡΠ²ΠΎΠΉ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° AutoCAD, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² AutoCAD ΠΊΡΠ°ΠΉΠ½Π΅ ΠΆΠ΅Π»Π°ΡΠ΅Π»ΡΠ½Π°. ΠΠ΄Π½Π°ΠΊΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΎΡΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΠΉ Π² ΠΎΡΠ½ΠΎΠ²Ρ VBA ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠ³ΠΎ Π² AutoLISP.
ΠΡΠΎΡΠΎΠΉ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ActiveX Automation, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ (Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ) Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ AutoCAD. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° VBA ΡΡΠ΅Π±ΡΠ΅Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ ΠΏΡΠΈΠ½ΡΠΈΠΏΠΎΠ² ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ActiveX Automation.
Π’ΡΠ΅ΡΡΠ΅ΠΉ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ, ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΠΎ, ΡΠ°ΠΌΠ° ΡΡΠ΅Π΄Π° VBA. VBA ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ Π½Π°Π±ΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΊΠ»ΡΡΠ΅Π²ΡΡ ΡΠ»ΠΎΠ², ΠΊΠΎΠ½ΡΡΠ°Π½Ρ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ, ΠΎΡΠ»Π°Π΄ΠΊΠ΅ ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ. Π ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡ ΠΏΠΎΡΡΠ°Π²ΠΊΠΈ AutoCAD Π²Ρ ΠΎΠ΄ΠΈΡ ΠΎΠ±ΡΠΈΡΠ½Π°Ρ ΡΠΏΡΠ°Π²ΠΎΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΏΠΎ VBA ΠΎΡ Microsoft.
ΠΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ActiveX/VBA ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ AutoCAD ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ ΡΡΠ΄ΠΎΠΌ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ² ΠΏΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°ΠΌΠΈ API AutoCAD.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ VBA
ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ° VBA ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ VBALOAD. ΠΠΎΡΠ»Π΅ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΡΠ°Π½ΠΎΠ²ΡΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌΠΈ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ «ΠΠ°ΠΊΡΠΎΡΡ».
ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ° VBA ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ VBALOAD. ΠΠΎΡΠ»Π΅ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΡΠ°Π½ΠΎΠ²ΡΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌΠΈ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ «ΠΠ°ΠΊΡΠΎΡΡ». ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠΎΠ΄ΡΠ»Ρ VBA ΡΠ»ΡΠΆΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄Π° VBARUN. ΠΡΠ»ΠΈ Π½Π΅ Π·Π°Π³ΡΡΠΆΠ΅Π½ΠΎ Π½ΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° VBA, Π΄Π°Π½Π½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π½Π΅Π΄ΠΎΡΡΡΠΏΠ½Ρ. ΠΡΠΈ Π²ΡΠ²ΠΎΠ΄Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅ Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ «ΠΠ°ΠΊΡΠΎΡΡ» ΠΏΠ΅ΡΠ΅ΡΠ½Π΅ΠΌ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΏΠΈΡΠΊΠ° «ΠΠ°ΠΊΡΠΎΡΡ ΠΈΠ·».
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΠΊΠΎΠΌΠ°Π½Π΄Ρ VBA ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π·Π°Π³ΡΡΠ·ΠΊΠ° ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² VBA
ΠΠΎΠΆΠ½ΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΡΠ°Π½Π΅Π΅ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΡ VBA ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ AutoCAD. ΠΡΠΈ ΡΡΠΎΠΌ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ΡΡ Π² ΡΠ°ΠΊΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°Ρ ΠΌΠ°ΠΊΡΠΎΡΡ ΡΡΡΠ°Π·Ρ ΠΆΠ΅ ΡΡΠ°Π½ΠΎΠ²ΡΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌΠΈ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π·Π°Π³ΡΡΠ·ΠΊΠΈ Π½ΡΠΆΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Π° ΠΠΠΠΠ ΠΠ.
acvba.arx β ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π·Π°Π³ΡΡΠ·ΠΊΠ° VBA
ΠΠ°Π³ΡΡΠ·ΠΊΠ° VBA Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄ AutoCAD VBA. ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ arx-ΠΌΠΎΠ΄ΡΠ»Ρ VBA Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π³ΡΡΠΆΠ°Π»ΡΡ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ AutoCAD, ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΡΡΠΎΠΊΡ Π½ΡΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π² ΡΠ°ΠΉΠ» acad. rx:
ΠΠ»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π΅Π³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π² ΡΠ°ΠΉΠ» acad. dvb ΠΈ Π½Π°Π·Π²Π°ΡΡ AcadStartup. ΠΠ°ΠΊΡΠΎΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ AcadStartup ΠΈΠ· ΡΠ°ΠΉΠ»Π° acad. dvb Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΠΌΠΎΠ΄ΡΠ»Ρ VBA.
acad.dvb β ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π·Π°Π³ΡΡΠ·ΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ° VBA
Π€Π°ΠΉΠ» acad. dvb ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² VBA ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ AutoCAD. ΠΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ΅Π°Π½ΡΠ° AutoCAD ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΎΠΈΡΠΊ ΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ° ΡΠ°ΠΉΠ»Π° acad. dvb.
ΠΡΠ»ΠΈ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ ΠΌΠ°ΠΊΡΠΎΡ ΡΠ°ΠΉΠ»Π° acad. dvb Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ»ΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΈΠΌΠ΅ΡΡΠ΅Π³ΠΎΡΡ ΡΠ΅ΡΡΠ΅ΠΆΠ°, Π² ΡΠ°ΠΉΠ» acaddoc.lsp ΡΠ»Π΅Π΄ΡΠ΅Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄:
ΠΠ²ΡΠΎΠΊΠ°Π΄ vba enabler ΡΡΠΎ ΡΡΠΎ
ΠΡ ΡΠ»ΡΡΠ°Π»ΠΈ ΡΡΠΎ AutoCAD R14 ΠΈ 2000 ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π½ΠΎΠ²ΡΠΉ ΠΎΠΏΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ β VBA (Visual BASIC for Applications). ΠΠΎ ΠΊΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΠΡ Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΠ΅ Π΅Π³ΠΎ, ΠΡ ΠΏΠΎΡΠ°ΠΆΠ°Π΅ΡΠ΅ΡΡ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠΌΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΠΎΠΊΠΎΠ½ ΠΈ ΠΎΠΏΡΠΈΠΉ ΠΌΠ΅Π½Ρ, Π½Π΅ ΡΠΎΠ²ΡΠ΅ΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΠ²ΡΡΡΠΈΠΌ Π²Π°ΡΠΈΠΌ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡΠΌ ΠΎ Π½ΠΎΠ²ΠΎΠΌ ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΡ Π² AutoLISP ΠΈΠ»ΠΈ Π΄ΡΡΠ³ΠΈΡ ΡΠ·ΡΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ΄Π½Π°ΠΊΠΎ Ρ ΡΡΡΠ°ΡΡΡ, ΡΡΠΎ VBA Π½Π΅ Π½Π°ΡΡΠΎΠ»ΡΠΊΠΎ ΡΠ»ΠΎΠΆΠ΅Π½, ΠΊΠ°ΠΊ ΠΊΠ°ΠΆΠ΅ΡΡΡ. ΠΠΎΠ³Π΄Π° Π²Ρ Π·Π°ΠΊΠΎΠ½ΡΠΈΡΠ΅ ΡΠΈΡΠ°ΡΡ ΡΡΠΎ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ, ΠΡ Π±ΡΠ΄Π΅ΡΠ΅ Π·Π½Π°ΠΊΠΎΠΌΡ Ρ VBA ΠΈ Π΅Π³ΠΎ ΡΡΠ΅Π΄ΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΡΠΎΠ·Π΄Π°Π΄ΠΈΡΠ΅ ΠΏΡΠΎΡΡΠΎΠ΅ VBA-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅. ΠΡ ΡΡΠΎ, Π³ΠΎΡΠΎΠ²Ρ? ΠΠ°Π²Π°ΠΉΡΠ΅ Π½Π°ΡΠΈΠ½Π°ΡΡ.
ΠΡΠΊΡΠΎΠΉΡΠ΅ VBA IDE (Integrated Development Environment). ΠΠ· ΠΌΠ΅Π½Ρ AutoCAD Tools, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Macros|Visual Basic Editor.
ΠΠ·ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° VBA
VBA, Ρ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ, ΠΈΠ΄Π΅Ρ Ρ Π²ΡΠ΅ΠΌΠΈ ΡΡΠΈΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅. VBA IDE Π²ΠΊΠ»ΡΡΠ°Π΅Ρ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΊΠΎΠ΄Π°, ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡ ΡΠΎΡΠΌ, ΠΈ ΠΎΡΠ»Π°Π΄ΡΠΈΠΊ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΏΠ°ΠΊΠ΅ΡΠ΅. ΠΠ· ΠΌΠ΅Π½Ρ AutoCAD Tools, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Macros|Visual Basic Editor. ΠΠΎΠ³Π΄Π° ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡΡ VBA IDE, ΠΡ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅ ΠΌΠ°ΡΡΠΈΠ² ΠΌΠ΅Π½Ρ, ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈ ΠΎΠΊΠΎΠ½.
Π‘Π½Π°ΡΠ°Π»Π° Π½Π°ΠΉΠ΄ΠΈΡΠ΅ ΠΎΠΊΠ½ΠΎ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ. ΠΡΠΎ ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² Project Explorer (ΡΠΏΡΠ°Π²Π°). ΠΠΎΠ΄ΠΎΠ±Π½ΠΎ ΠΊΠ°ΠΊ Windows Explorer ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ Π²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ ΠΈ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ΠΈ Π½Π° Π²Π°ΡΠ΅ΠΌ ΠΆΠ΅ΡΡΠΊΠΎΠΌ Π΄ΠΈΡΠΊΠ΅ ΠΈ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ Π²Π°ΠΌ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡ ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΎ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ, Project Explorer ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ Π²ΡΠ΅ ΡΠΎΡΠΌΡ ΠΈ ΠΌΠΎΠ΄ΡΠ»ΠΈ Ρ ΠΊΠΎΠ΄ΠΎΠΌ Π² Π²Π°ΡΠ΅ΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ΅ ΠΈ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ Π²Π°ΠΌ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡ ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΎ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΡΠΎΡΠΌΠ°ΠΌΠΈ ΠΈΠ»ΠΈ ΠΌΠΎΠ΄ΡΠ»ΡΠΌΠΈ.
ΠΡ ΡΠ²ΠΈΠ΄Π΅ΡΠ΅ ΡΡΠΈ ΠΏΠ°ΠΏΠΊΠΈ: AutoCAD Objects, Forms, ΠΈ Modules. ΠΠΎΠ³Π΄Π° Π²Ρ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΠ΅ ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΊ Π²Π°ΡΠ΅ΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΡ, VBA Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ ΠΈΡ ΠΊ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΏΠ°ΠΏΠΊΠ΅.
Π AutoCAD 2000, ΠΏΠ°ΠΏΠΊΠ° AutoCAD objects ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡ ThisDrawing, ΠΊΠΎΡΠΎΡΡΠΉ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½ΡΠ΅ΡΡΡ ΠΊ AutoCAD.
Π Π΄ΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ, Π² Π»ΡΠ±ΠΎΠ΅ Π²ΡΠ΅ΠΌΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΏΡΠΎΡΠΈΡΡ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π±ΠΎΠ»Π΅Π΅ ΡΠ΅ΠΌ Π΄Π²Π΅ ΠΈΠ»ΠΈ ΡΡΠΈ ΡΠ°ΡΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΡΠΎΡΠΌΡ Π²ΠΎΡΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ Π±ΡΡΡΡΠ΅Π΅ ΡΠ΅ΠΌ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ Π² ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅. ΠΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΡΠΎΡΠΌΡ, ΡΡΠΎ Π±Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠ΅ΡΠΈΡΡ, ΠΊΠ°ΠΊΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ.
ΠΡΠΎΡΠΌΠ»Π΅Π½ΠΈΠ΅ Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ Π²ΠΈΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° VBA
ΠΡΠΊΡΠΎΠΉΡΠ΅ ΠΌΠ΅Π½Ρ Insert menu ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ UserForm. ΠΠΎΡΠ²ΡΡΡΡΡ Π΄Π²Π° Π½ΠΎΠ²ΡΡ ΠΎΠΊΠ½Π°. ΠΠ΅ΡΠ²ΠΎΠ΅, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠ΅ Project-UserForm1 (UserForm), ΡΡΠΎ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡ ΡΠΎΡΠΌ. ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΡΠΌ. ΠΡΠΎΡΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠ΅ Toolbox, ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊ ΡΠΎΡΠΌΠ΅.
ΠΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, ΠΏΠΎΡΠΌΠΎΡΡΠΈΡΠ΅ Π½Π° Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΡΠΎΡΠΌΡ: UserForm1. ΠΠ°ΠΆΠ΄ΡΠΉ VBA-ΠΏΡΠΎΠ΅ΠΊΡ, ΠΊΠ°ΠΆΠ΄Π°Ρ ΡΠΎΡΠΌΠ° ΠΈ ΠΌΠΎΠ΄ΡΠ»Ρ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°, ΠΈ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΈ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠ΅ ΠΈΠΌΡ. ΠΠΎΠ³Π΄Π° Π²Ρ Π½Π°ΡΠΈΠ½Π°Π΅ΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡ, Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΠ΅ Π½ΠΎΠ²ΡΡ ΡΠΎΡΠΌΡ ΠΊ ΠΏΡΠΎΠ΅ΠΊΡΡ, ΠΈΠ»ΠΈ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΊ ΡΠΎΡΠΌΠ΅, VBA ΡΠΎΠ·Π΄Π°Π΅Ρ ΠΈΠΌΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ. Π― Π΄ΡΠΌΠ°Ρ, ΡΡΠΎ Π²Ρ Π±ΡΠ΄ΠΈΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΡΡΠΈ ΠΈΠΌΠ΅Π½Π° Π½Π° Π΄ΡΡΠ³ΠΈΠ΅, ΡΡΠΎ Π½ΠΈΠ±ΡΠ΄Ρ Π·Π½Π°ΡΠ°ΡΠΈΠ΅ Π΄Π»Ρ Π²Π°Ρ. ΠΠ°ΠΆΠΌΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° Project Π² Project Explorer ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Project Properties ΠΈΠ· Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠ΅Π³ΠΎ ΠΌΠ΅Π½Ρ. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΈΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π½Π° VbaDemo ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ Π½Π° OK.
ΠΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, Π½Π°ΠΉΠ΄ΠΈΡΠ΅ ΠΎΠΊΠ½ΠΎ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Properties (ΡΠΏΡΠ°Π²Π°). Π― Ρ ΠΎΡΡ ΠΠ°ΠΌ Π½Π°ΠΏΠΎΠΌΠ½ΠΈΡΡ, Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈΠΌΠ΅ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ Π²Π½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΠΊΠ½ΠΎ window ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²Π°ΠΌ Π»Π΅Π³ΠΊΠΎ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡ ΡΡΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°. ΠΡΡΠΌΠΎ ΡΠ΅ΠΉΡΠ°Ρ, ΠΏΠ°Π΄Π°ΡΡΠ΅Π΅ ΠΌΠ΅Π½Ρ Π²Π²Π΅ΡΡ Ρ ΠΎΠΊΠ½Π° Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ UserForm1 UserForm. ΠΠ°Π΄Π°ΡΡΠ΅Π΅ ΠΌΠ΅Π½Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΠ»ΠΈ Π½Π° ΡΠΎΡΠΌΠ΅. ΠΠΈΠΆΠ΅ ΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΠΌΠ΅Π½Ρ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π΄Π»ΠΈΠ½Π½ΡΠΉ ΡΠΏΠΈΡΠΎΠΊ ΡΠ²ΠΎΠΉΡΡΠ² ΡΠΎΡΠΌΡ: Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, Π²ΡΡΠΎΡΠ°, Π²Π΅ΡΡΠΈΠ½Π° ΠΈ ΠΌΠ½ΠΎΠ³ΠΎ Π΄ΡΡΠ³ΠΈΡ . ΠΠ΅Π²Π°Ρ ΡΡΠΎΡΠΎΠ½Π° ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ, Π° ΠΏΡΠ°Π²Π°Ρ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π°. ΠΠ°ΠΉΠ΄ΠΈΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name ΠΈ ΠΈΠ·ΠΌΠΈΠ½ΠΈΡΠ΅ Π΅Π³ΠΎ Π½Π° MainWin. ΠΠ°ΠΌΠ΅ΡΡΡΠ΅, ΡΡΠΎ Project Explorer ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ΅Ρ ΠΈΠΌΡ ΡΠΎΡΠΌΡ.
Π’Π΅ΠΏΠ΅ΡΡ Π²Ρ Π³ΠΎΡΠΎΠ²Ρ ΡΠ³Π»ΡΠ±ΠΈΡΡΡΡ Π² Toolbox (Π½ΠΈΠΆΠ΅ ΡΠ»Π΅Π²Π°) ΠΈ ΡΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΎΡΠΌΡ. Π§ΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊ Π²Π°ΡΠ΅ΠΉ ΡΠΎΡΠΌΠ΅, ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° ΠΈΠΊΠΎΠ½ΠΊΠ΅ Π² ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Control, Π° Π·Π°ΡΠ΅ΠΌ ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅. ΠΡΠ»ΠΈ ΠΡ Π½Π΅ ΡΠ²Π΅ΡΠ΅Π½Ρ, ΠΊΠ°ΠΊΠΎΠΉ Π²ΠΈΠ΄ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Π² ΠΏaΠ½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Control, ΠΏΠΎΠ΄Π²Π΅Π΄ΠΈΡΠ΅ ΠΊΡΡΡΠΎΡ ΠΌΡΡΠΈ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΠ½Π΄ ΠΊ ΠΈΠΊΠΎΠ½ΠΊΠ΅, ΠΈ ΡΠΎΠ³Π΄Π° ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π΄Π°Π½Π½Π°Ρ ΠΈΠΊΠΎΠ½ΠΊΠ°. ΠΠ΅ΡΡ Π½ΡΡ Π»Π΅Π²Π°Ρ ΡΠΎΡΠΊΠ° ΠΈΠΊΠΎΠ½ΠΊΠΈ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡΡΡ Π² ΡΠΎΠΉ ΡΠΎΡΠΊΠ΅, Π½Π° ΠΊΠΎΡΠΎΡΡΡ Π²Ρ ΡΠΊΠ°ΠΆΠ΅ΡΠ΅ Π² ΡΠΎΡΠΌΠ΅. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ°Π·ΠΌΠ΅Ρ ΠΈΠΊΠΎΠ½ΠΊΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Ρ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· Π΅Π³ΠΎ ΡΠ³Π»ΠΎΠ² ΠΈΠ»ΠΈ Π³ΡΠ°Π½Π΅ΠΉ, ΡΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ ΠΊΠ°ΠΊ ΠΡ ΠΌΠΎΠ³ Π±Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΡΠ°Π·ΠΌΠ΅ΡΡ ΠΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ° Windows.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°ΠΊΠΆΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π΅Π³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ° Top, Left, Height, ΠΈ Width Π² ΠΎΠΊΠ½Π΅ ΡΠ²ΠΎΠΉΡΡΠ² (Properties). ΠΠ°Π»Π΅ Π΄ΠΎΠ±Π°Π²ΡΠ΅ Π΄Π²Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΊ ΡΠΎΡΠΌΠ΅. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΈΠΌΡ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π° SayHello ΠΈ Π΅Π΅ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π½Π° Say Hello, Π° Π·Π°ΡΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΈΠΌΡ Π²ΡΠΎΡΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π° AskQuestion ΠΈ Π΅Π΅ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π½Π° Ask a Question. ΠΠ°ΡΠ° ΠΏΠ΅ΡΠ²Π°Ρ ΡΠΎΡΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΏΠΎΡ ΠΎΠΆΠ° Π½Π° ΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠΊΠ°Π·Π°Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 5.
Π Π°Π±ΠΎΡΠ° Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ.
Π’Π΅ΠΏΠ΅ΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π·Π°Π²Π΅ΡΡΠ΅Π½, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° Π·Π° ΡΡΠ΅Π½ΠΎΠΉ. VBA Π² AutoCAD R14.01 ΠΈ R2000 ΠΈΠΌΠ΅Π΅Ρ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΡΠ²ΡΠ·Ρ Ρ AutoCAD, Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ R14, Π³Π΄Π΅ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΡΠ½ΡΡ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ°ΡΡ VBA ΠΊ AutoCAD.
Π― Π·Π½Π°Ρ, ΡΡΠΎ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠΌΡΡΠ»Π° Π ΠΊΠΎΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΠΎΠ², Π²Ρ Π²ΡΠ΅Π³Π΄Π° Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΠ΅ Π²Π½ΡΡΡΠΈ AutoCAD ΠΈ Π²Ρ Π½ΠΈΠΊΠΎΠ³Π΄Π° Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΠ»ΠΈ ΡΡΠΎ Π΄Π΅Π»Π°ΡΡ Ρ AutoLISP! ΠΠΎ VBA Π½Π΅ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π΄Π»Ρ AutoCAD ΡΡΠ΅Π΄Π°. ΠΠ΄Π½ΠΎ VBA-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π»ΡΠ±ΡΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡΠΈΡ VBA ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
Π ΠΏΡΠΈΠΌΠ΅ΡΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ VBA Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎ Π±Ρ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅ΡΠ΅Π½Ρ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»ΠΎΠ², ΠΈΠ·Π²Π»Π΅ΠΊΠ°Ρ Π°ΡΡΠΈΠ±ΡΡΡ ΠΈΠ· Π²Π°ΡΠ΅Π³ΠΎ ΡΠ΅ΡΡΠ΅ΠΆΠ°, ΠΈ ΡΠΎΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ Π·Π°ΡΠ΅ΠΌ ΡΠ°Π±Π»ΠΈΡΡ Π² Excel. ΠΡ ΡΠ°ΠΊ ΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ AutoCAD VBA ΡΡΠ΅Π΄Ρ ΡΡΠΎ Π±Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ ΡΠ²ΡΠ·Π°Π½Ρ Ρ AutoCAD. ΠΠ°ΠΊ Π²ΡΠ΅Π³Π΄Π°, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π³ΠΈΠ±ΠΊΠΎΡΡΠΈ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ, ΠΊ ΡΡΠ°ΡΡΡΡ, ΡΡΠ° ΡΠ°Π±ΠΎΡΠ° Π½Π΅ ΡΠ»ΠΈΡΠΊΠΎΠΌ Π½Π°ΠΏΡΡΠΆΠ΅Π½Π°.
ΠΠΎ ΠΌΠ΅ΡΠ΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ ΠΡ Π½Π°Π±ΠΈΡΠ°Π΅ΡΠ΅ ΠΊΠΎΠ΄, ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Π΄Π΅Π»Π°Π΅Ρ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΡ Π΄Π»Ρ ΠΠ°Ρ. ΠΡΠ»ΠΈ ΠΡ ΡΡΡΠ»Π°Π΅ΡΠ΅ΡΡ Π½Π° ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ Π΄Π»Ρ VBA ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΊΡ ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ. ΠΠΎ ΠΌΠ΅ΡΠ΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π²Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΡΠ΅ΡΡ ΡΠΎ ΡΡΡΠΎΠΊΠΈ Π½Π° ΡΡΡΠΎΠΊΡ, ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΈΠ²Π΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ ΠΊΠ»ΡΡΠ΅Π²ΡΠ΅ ΡΠ»ΠΎΠ²Π°, ΠΊΠΎΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ, ΠΈ ΡΠ°ΠΊ ΠΆΠ΅ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ ΠΊΠ°ΠΆΠ΄ΡΡ ΡΡΡΠΎΠΊΡ Π½Π° ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ. Π Π΄ΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡΡΡ ΠΊ ΡΡΡΠ°Π½ΠΈΡΠ΅ ΡΠΎ ΡΠΏΡΠ°Π²ΠΊΠΎΠΉ, ΠΏΡΠΎΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΠ² ΠΊΡΡΡΠΎΡ ΠΊ ΠΌΠ΅ΡΡΡ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ΅ΡΠΎΠ΄Π° ΠΈ Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠ°Π² F1 Π₯ΠΎΡΡ ΡΡΠ° Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΊΠ°Π·Π°ΡΡΡΡ Π½Π°Π²ΡΠ·ΡΠΈΠ²ΠΎΠΉ ΡΠ½Π°ΡΠ°Π»Π°, Π²ΡΠΊΠΎΡΠ΅ ΠΡ Π½Π°ΠΉΠ΄Π΅ΡΠ΅ ΡΡΠΎ ΡΡΠ΅Π·Π²ΡΡΠ°ΠΉΠ½ΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ. Π― Π½Π°ΡΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠ²ΡΠΊ ΠΊ ΡΡΠΎΠΌΡ, ΡΡΠΎ, ΠΊΠΎΠ³Π΄Π° Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΡ ΡΡΠ°ΡΡΠΉ AutoLISP-ΠΊΠΎΠ΄, ΠΌΠ½Π΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ, ΡΡΠΎ Π±Ρ ΠΏΡΠΈΠ²ΡΠΊΠ½ΡΡΡ ΡΡΠΎ ΠΊΠΎΠ΄ Π½Π΅ ΠΎΠΊΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΈ Π½Π΅ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ ΡΡΡ ΠΆΠ΅.
Π― ΡΠ²Π΅ΡΠ΅Π½ ΡΡΠΎ ΠΡ ΡΡΡΠ΅ΠΌΠΈΡΠ΅ΡΡ Π²ΠΈΠ΄Π΅ΡΡ Π²ΡΠ΅ ΡΡΠΎ Π² Π΄Π΅ΠΉΡΡΠ²ΠΈΠΈ. ΠΡΠ±Π΅ΡΠΈΡΠ΅ General ΠΈΠ· ΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΠΌΠ΅Π½Ρ Objects ΠΈ Declarations ΠΈΠ· ΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΠΌΠ΅Π½Ρ Events, ΠΈ Π·Π°ΡΠ΅ΠΌ Π΄ΠΎΠ±Π°Π²ΡΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π΄Π»Ρ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΡΠ²ΡΠ·ΠΈ:
‘On Error Resume Next’ Π³ΠΎΠ²ΠΎΡΠΈΡ VBA ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡΡΡ Π½Π° ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ Π²ΡΡΠΊΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ°. Π±Π΅Π· ΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ ΠΈ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Ρ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅.
Π’Π°ΠΊΠΆΠ΅, ΠΊΠ°ΠΊ Π²Π°ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½ΡΠΆΠ΄Π°Π΅ΡΡΡ Π² ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠΈ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠΈ Ρ AutoCAD, ΠΎΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΡΠΎΠΎΠ±ΡΠΈΡΡ ΠΎ ΡΠΎΠΌ, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½ΠΎ ΡΠ°Π·ΠΎΡΠ²Π΅Ρ ΡΠ²ΡΠ·Ρ Ρ AutoCAD. ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠΎΠ±ΡΡΠΈΠ΅ Terminate Π² ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ UserForm ΠΈ Π½Π°Π±Π΅ΡΠΈΡΠ΅:
ΠΡΠΎ ΠΎΡΠ²ΠΎΠ±ΠΎΠ΄ΠΈΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅.
ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ AutoCAD 14.01 ΠΈΠ»ΠΈ 2000, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π°Π»ΡΡΡ Π²Π΅ΡΡ ΠΊΠΎΠ΄ ΡΡΠΎ Π²Ρ Π½Π°Π±ΡΠ°Π»ΠΈ. ΠΠ°ΠΊ Ρ ΡΠΏΠΎΠΌΡΠ½ΡΠ», ΠΡ ΠΈΠΌΠ΅Π΅ΡΠ΅ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ThisDrawing ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΠ΅ΡΡΠ΅ΠΆ. ΠΠ½ ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Application ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° Π»ΡΠ±ΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠ° Application.
ΠΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΡΠ²Π΅ΡΠ°
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π²Ρ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠΈΠ»ΠΈΡΡ ΠΊ AutoCAD, Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΊ Π²Π°ΡΠ΅ΠΌΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΡΠΎ Π±Ρ ΠΎΠ½ΠΎ Π·Π°Π½Π°Π»ΠΎ, ΡΡΠΎ Π΄Π΅Π»Π°ΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΡΠΎ-ΡΠΎ Π΄Π΅Π»Π°Π΅Ρ. Π‘Π΄Π΅Π»Π°ΠΉΡΠ΅ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠ΅ΠΊ ΠΌΡΡΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ SayHello Π² Π²Π°ΡΠ΅ΠΉ ΡΠΎΡΠΌΠ΅. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΡΡΠΎ Π²Π°Ρ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΊΠΎΠ΄Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΡΡΡ ΠΊ ΡΠΎΠ±ΡΡΠΈΡ Click ΠΊΠ½ΠΎΠΏΠΊΠΈ. ΠΡΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ. ΠΡΠ»ΠΈ Π²Ρ ΠΆΠ΅Π»Π°Π΅ΡΠ΅ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π΄ΡΡΠ³ΠΎΠ΅ ΡΠΎΠ±ΡΡΠΈΠ΅, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΡΠΎ Π²ΡΠ±ΡΠ°ΡΡ Π΅Π³ΠΎ ΠΈΠ· ΠΏΡΠ°Π²ΠΎΠ³ΠΎ ΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΡΠΏΠΈΡΠΊΠ°.
ΠΠ°ΠΊ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ, Π²Ρ Π΄Π°Π΄ΠΈΡΠ΅ Π΄Π»Ρ MsgBox ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ, Π½ΠΎ ΡΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΌΠΎΠΆΠ΅Ρ Π±ΠΎΠ»ΡΡΠ΅, Π΅ΡΠ»ΠΈ Π΅ΠΌΡ Π΄Π°ΡΡ Π±ΠΎΠ»ΡΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. Π ΠΏΡΠΈΠΌΠ΅ΡΡ, ΠΎΠ½ ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π΄Π°ΡΡ Π²ΠΎΠΏΡΠΎΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈ ΡΠΎΠΎΠ±ΡΠΈΡΡ Π΅Π³ΠΎ Π²Π°ΠΌ. ΠΡΠ±Π΅ΡΠΈΡΠ΅ AskQuestion ΠΈΠ· ΠΌΠ΅Π½Ρ Object Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ ΠΊΠΎΠ΄Π°; ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΡΠ½ΠΎΠ²Π° ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΡ ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ Click. ΠΠΎΠ±Π°Π²ΡΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄:
ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠΊΠ°ΠΆΠΈΡΠ΅ MsgBox ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Yes ΠΈ No, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ ΠΊΠΎΠ΄ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΡΡΠΎ Π±Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ, ΠΊΠ°ΠΊΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π°ΠΆΠ°Π» ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΡΠ»ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½ΠΎ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠΉ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ΅ vbYes, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π°ΠΆΠ°Π» ΠΊΠ½ΠΎΠΏΠΊΡ Yes. Π ΠΊΠ°ΠΊ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ³Π°Π΄Π°ΡΡΡΡ, Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ No Π±ΡΠ΄Π΅Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ vbNo.
ΠΠΎΡΠΎΠ²Ρ Π²ΠΈΠ΄Π΅ΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π²Π°ΡΠΈΡ ΡΡΠΈΠ»ΠΈΠΉ? ΠΠ°ΠΏΡΡΡΠΈΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ±ΡΠ°Π² Run ΠΈΠ· ΠΌΠ΅Π½Ρ Run. ΠΠ°ΡΠ° ΡΠΎΡΠΌΠ° ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡΡ Π² ΠΎΠΊΠ½Π΅ AutoCAD, ΠΈ Π²ΡΡΡΡΠΏΠ°ΡΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π±ΡΠ΄ΡΡ Π½Π°ΡΡΠ°ΠΈΠ²Π°ΡΡ Π½Π° ΠΎΡΠ²Π΅ΡΠ΅. ΠΠ΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠΎΡΠ²Π΅ΡΠ°ΠΉΡΠ΅ Π½Π° Π²ΠΎΠΏΡΠΎΡΡ, Π° Π·Π°ΡΠ΅ΠΌ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΠΉΡΠ΅ΡΡ, ΠΊΠΎΠ³Π΄Π° Π²Ρ ΡΡΠΎΠΌΠΈΡΠ΅ΡΡ ΠΎΡΠ²Π΅ΡΠ°ΡΡ Π½Π° Π²ΠΎΠΏΡΠΎΡΡ.
ΠΠ°ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΠΈ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½ΠΎ, Π½ΠΎ ΠΎΠ½ΠΎ Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΠ΄Π½ΠΎΠΉ Π²Π°ΠΆΠ½ΠΎΠΉ Π΄Π΅ΡΠ°Π»ΠΈ. ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΈΠ· ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ VBA, Π½ΠΎ ΠΊΠ°ΠΊ ΠΎΠ½ΠΎ Π±ΡΠ΄Π΅Ρ Π·Π°Π³ΡΡΠΆΠ°ΡΡΡΡ Π²Π½ΡΡΡΠΈ AutoCAD? ΠΠΈΠΊΠ°ΠΊΠΈΠ΅ ΡΠΈΠ»Ρ Π½Π΅ Π·Π°ΡΡΠ°Π²ΡΡ Π±Π΅Π· ΡΡΠΎΠΉ Π΄Π΅ΡΠ°Π»ΠΈ Π·Π°ΠΏΡΡΡΠΈΡΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ AutoCAD. Π§ΡΠΎ Π±Ρ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ, Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ ΠΌΠ΅ΡΠΎΠ΄-ΠΏΠΎΠΌΠΎΡΠ½ΠΈΠΊ. ΠΡΠΊΡΠΎΠΉΡΠ΅ Π² VBA ΠΌΠ΅Π½Ρ Insert ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Module. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΈΠΌΡ ΠΌΠΎΠ΄ΡΠ»Ρ Π½Π° AppStuff, ΠΈ Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅: