Автокад vba enabler Ρ‡Ρ‚ΠΎ это

ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ AutoCAD VBA ΠΈ особСнности Ρ€Π°Π±ΠΎΡ‚Ρ‹ с Π½ΠΈΠΌ

Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Ρ„ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΡƒ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ° ΠΏΡ€ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π€ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это

ΠŸΡ€ΠΈ Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚ΠΊΠ΅ языка 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 Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Ρ„ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΡƒ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ° ΠΏΡ€ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π€ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это

Π’Π°ΠΆΠ½ΠΎ Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ ΠΏΡ€ΠΈ Π²Ρ‹Π±ΠΎΡ€Π΅ модуля VBA Enabler Π½ΡƒΠΆΠ½ΠΎ ΠΎΠ±Ρ€Π°Ρ‚ΠΈΡ‚ΡŒ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° Π²Π΅Ρ€ΡΠΈΡŽ AutoCAD ΠΈ Π΅Π³ΠΎ Ρ€Π°Π·Ρ€ΡΠ΄Π½ΠΎΡΡ‚ΡŒ. НапримСр, ΠΌΠΎΠ΄ΡƒΠ»ΡŒ VBA для AutoCAD 2018 32-x Π½Π΅ Π±ΡƒΠ΄Π΅Ρ‚ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π² срСдС AutoCAD 2018 64-x.

ПослС скачивания, распаковки ΠΈ установки модуля AutoCAD VBA Enabler Π² ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅ AutoCAD появится Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ с прилоТСниями Π½Π° языкС VBA.

Окно Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π° VBA (VBA IDE) запускаСтся ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ VBAIDE.

Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Ρ„ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΡƒ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ° ΠΏΡ€ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π€ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это

Оно стандартноС для языка 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

Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Ρ„ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΡƒ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ° ΠΏΡ€ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π€ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это

Π’ ΠΌΠΎΠ΅ΠΌ случаС это AutoCAD 2014 Type Library. Π”Π°Π»Π΅Π΅ Π½ΡƒΠΆΠ½ΠΎ Π² Π»Π΅Π²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ Π² вашСй ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠΎΠ΄ΡƒΠ»ΡŒ, ΠΊΠ°ΠΊ Π½Π° ΡΠΊΡ€ΠΈΠ½ΡˆΠΎΡ‚Π΅ (Module)

Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Ρ„ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΡƒ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ° ΠΏΡ€ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π€ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это

И Π² ΠΌΠΎΠ΄ΡƒΠ»ΡŒ вставляСм Π½ΠΈΠΆΠ΅ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ ΠΊΠΎΠ΄:

Аналогичным способом ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ Π±Π»ΠΎΠΊΠΈ с Π°Ρ‚Ρ€ΠΈΠ±ΡƒΡ‚Π°ΠΌΠΈ, Π² ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡ‚Π°Π²Π»ΡΡ‚ΡŒ тСкст ΠΈΠ· ячССк.
НуТно внСсти Π² Π²Π΅Ρ€Ρ…Π½ΠΈΠΉ ΠΊΠΎΠ΄ измСнСния Π²Ρ€ΠΎΠ΄Π΅:

Код обновлСния тСкста ΠΏΠΎ хэндлу β€” написан Π½ΠΈΠΆΠ΅: ‘ΠΏΠΎΠ»ΡƒΡ‡Π°Π΅ΠΌ хэндл ΠΈΠ· ячСйки, Π² ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ ΠΌΡ‹ записали ΠΊΠΎΠ΄ΠΎΠΌ Π²Ρ‹ΡˆΠ΅.

entHandle = ActiveCell.Offset(0, 3).Value ‘ΠΏΠΎΠ»ΡƒΡ‡ΠΈΠ»ΠΈ наш Π±Π»ΠΎΠΊ ΠΏΠΎ хэндлу
Set blockObj = acadDoc.HandleToObject(entHandle)

А дальшС Π΄Π΅Π»Π°Π΅ΠΌ всё Ρ‚ΠΎ ΠΆΠ΅ самоС, Ρ‡Ρ‚ΠΎ ΠΈ Π²Ρ‹ΡˆΠ΅.

Для Ρ‚ΠΎΠ³ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Ρ€Π°Π·ΡŠΡΡΠ½ΠΈΡ‚ΡŒ ΠΊΠ°ΠΊ это Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ Π²ΠΆΠΈΠ²ΡƒΡŽ β€” записал Π²ΠΈΠ΄Π΅ΠΎ:

Как Π²ΠΈΠ΄ΠΈΡ‚Π΅, ΠΊΠΎΠ΄Π° ΠΌΠΈΠ½ΠΈΠΌΡƒΠΌ, ΠΎΠ΄Π½Π°ΠΊΠΎ Π½Π° Π±ΠΎΠ»ΡŒΡˆΠΈΡ… ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π°Ρ… ΠΌΠ½Π΅ экономит ΠΏΠΎ нСсколько часов Ρ€Π°Π±ΠΎΡ‚Ρ‹. И сниТаСтся риск ошибки. Π’.ΠΊ. ΠΎΠ±Ρ‹Ρ‡Π½ΠΎ это выглядит ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ Ρƒ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚ΠΈΡ€ΠΎΠ²Ρ‰ΠΈΠΊΠΎΠ² β€” ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°ΡŽΡ‚ΡΡ Π΄Π²Π° ΠΎΠΊΠ½Π° Π½Π° Ρ€Π°Π·Π½Ρ‹Ρ… экранах, ΠΈ ΠΈΠ»ΠΈ Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ, ΠΈΠ»ΠΈ Ρ‡Π΅Ρ€Π΅Π· Π±ΡƒΡ„Π΅Ρ€ ΠΎΠ±ΠΌΠ΅Π½Π° начинаСтся Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ выносок ΠΈΠ»ΠΈ Π±Π»ΠΎΠΊΠΎΠ² Π½Π° Ρ‡Π΅Ρ€Ρ‚Π΅ΠΆΠ΅.

ΠžΠΏΡΡ‚ΡŒ ΠΆΠ΅ Ρ‡Π΅ΠΌ Ρ…ΠΎΡ€ΠΎΡˆ VBA β€” Ρ‡Ρ‚ΠΎ ΠΎΠ½ всСгда ΠΏΠΎΠ΄ Ρ€ΡƒΠΊΠΎΠΉ πŸ™‚ Excel-Ρ‚ΠΎ основной инструмСнт Ρƒ ΠΈΠ½ΠΆΠ΅Π½Π΅Ρ€Π°.

Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ

Автокад vba enabler Ρ‡Ρ‚ΠΎ это

Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Ρ„ΠΎΡ‚ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π‘ΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΡƒ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ° ΠΏΡ€ΠΎ Автокад vba enabler Ρ‡Ρ‚ΠΎ это. Π€ΠΎΡ‚ΠΎ Автокад 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 ΠΈ Π½Π΅ ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ это.

Бобытия ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° AcadDocument

Имя ΡΠΎΠ±Ρ‹Ρ‚ΠΈΡΠΠΎΠ²ΠΎΠ΅Π˜ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ‚ΡΡ ΠΊΠΎΠ³Π΄Π°:
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.

Бобытия ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° AcadApplication

Имя ΡΠΎΠ±Ρ‹Ρ‚ΠΈΡΠšΠΎΠ³Π΄Π° исполняСтся
AppActivateAutoCAD ΠΏΠΎΠ»ΡƒΡ‡Π°Π΅Ρ‚ фокус
AppDeactivateAutoCAD тСряСт фокус
ARXLoadedΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ObjectARX загруТаСтся
ARXUnloadedΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ObjectARX выгруТаСтся
BeginCommandКоманда Π·Π°ΠΏΡƒΡ‰Π΅Π½Π° ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ строки AutoCAD
BeginFileDropΠ€Π°ΠΉΠ» ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ Π½Π° Ρ€Π°Π±ΠΎΡ‡Π΅Π΅ пространство AutoCAD
BeginLispВычисляСтся Lisp-Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅
BeginModalМодальноС Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ собираСтся ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒΡΡ.
BeginOpenΠ§Π΅Ρ€Ρ‚Π΅ΠΆ собираСтся ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒΡΡ
BeginPlotΠ§Π΅Ρ€Ρ‚Π΅ΠΆ отправляСтся Π½Π° ΠΏΠ΅Ρ‡Π°Ρ‚ΡŒ
BeginQuitБСссия AutoCAD собираСтся Π·Π°Π²Π΅Ρ€ΡˆΠΈΡ‚ΡŒΡΡ
BeginSaveΠ”ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚ ΠΎΡ‚ΠΏΡ€Π°Π²Π»Π΅ Π½Π° сохранСниС
EndCommandКоманда Π·Π°Π²Π΅Ρ€ΡˆΠ°Π΅Ρ‚ исполнСниС
EndLispLisp-Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ вычислСно
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, ΠΈ Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ Π² Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π΅:

Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ

Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΉ

Π’Π°Ρˆ адрСс email Π½Π΅ Π±ΡƒΠ΄Π΅Ρ‚ ΠΎΠΏΡƒΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½. ΠžΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ поля ΠΏΠΎΠΌΠ΅Ρ‡Π΅Π½Ρ‹ *