[Vildar]

Задачка такая обресовалась

При вставке блока с кнопки, запросить точку вставки и одновременно "повесить" его на курсор (и чтоб он за курсором перемещался).
Причем, отображаться он должен в заданном масштабе

Какая будет стратегия.

[Vildar]

Самое главное забыл. После указания точки, нужно еще проследить за мышкой и в раные стороны блок поворачивать. Ну например высотную отметку.

[Кулик Алексей aka kpblc]

http://dwg.ru/f/showthread.php?t=11905 - там есть лисповые решения. Это тот случай, когда от командных методов отказаться невозможно.
Я понимаю, что "задели" невозможности VBA в теме "VBA - зло"

[Дима_]

Сообщение от Кулик Алексей aka kpblc http://dwg.ru/f/showthread.php?t=11905Это тот случай, когда от командных методов отказаться невозможно.)

А здесь?

[Кулик Алексей aka kpblc]

Дима_, а если вспомнить BricsCAD и Ко? Там ET нет и не будет

[Дима_]

А жаль! В чем же интересно у самих автодесков это (прорисовка тела у курсора) написанно? Вопрос у кого голый автокад без ET - там при перемещении тела оно у курсора наблюдаеться?

[fixo]

Сообщение от Vildar Задачка такая обресовалась При вставке блока с кнопки, запросить точку вставки и одновременно "повесить" его на курсор (и чтоб он за курсором перемещался). Причем, отображаться он должен в заданном масштабе Какая будет стратегия.

Объектными методами в VBA это не реализовать
Можно только с использованием лисп выражения
и функции SendCommand:

Код:

[Выделить все]

Option Explicit

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Function IsBlockExist(bName As String) As Boolean

   Dim oBlock As AcadBlock
   IsBlockExist = False
   For Each oBlock In ThisDrawing.Blocks
   If StrComp(oBlock.Name, bName, vbTextCompare) = 0 Then
   IsBlockExist = True
   End If
   Next

End Function
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Function IsLayerExist(lName As String) As Boolean

   Dim oLayer As AcadLayer
   IsLayerExist = False
   For Each oLayer In ThisDrawing.Layers
   If StrComp(oLayer.Name, lName, vbTextCompare) = 0 Then
   IsLayerExist = True
   End If
   Next

End Function
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Sub InsertWithGhostImage()

     Dim blkName As String, layName As String

     Dim strPt As String, comStr As String

     blkName = InputBox(vbCrLf & "Block name to insert:", "Insert Block")

     If blkName = vbNullString Then Exit Sub

     If Not IsBlockExist(blkName) Then
     MsgBox "Block " & Chr(34) & blkName & Chr(34) & " does not exist"
     Exit Sub
     End If

     layName = InputBox(vbCrLf & "Layer name to insert block on:", "Insert Block", "0")

     If Not IsLayerExist(layName) Then
     MsgBox "Layer " & Chr(34) & layName & Chr(34) & " does not exist"
     Exit Sub
     End If

     With ThisDrawing

          On Error GoTo Err_Control
          .Utility.Prompt vbCrLf & "   Specify insertion point of block  >>"
          comStr = "(command " & _
                   Chr(34) & "._-insert" & Chr(34) & _
                   vbCr & Chr(34) & blkName & _
                   Chr(34) & " pause " & vbCr & _
                   Chr(34) & "1" & Chr(34) & _
                   vbCr & Chr(34) & "1" & Chr(34) & _
                   vbCr & Chr(34) & "0" & Chr(34) & ")"
                   .SendCommand comStr & vbCr

          DoEvents

          Dim oSpace As AcadBlock
          Dim oblkRef As AcadBlockReference
          If .ActiveSpace = acModelSpace Then
               Set oSpace = .ModelSpace
          Else
               Set oSpace = .PaperSpace
          End If
          Set oblkRef = oSpace.Item(oSpace.Count - 1)

     End With

Exit_Here:

     Exit Sub

Err_Control:

     MsgBox Err.Description
     Resume Exit_Here

End Sub

~'J'~

[Vildar]

Сообщение от Дима_ А жаль! В чем же интересно у самих автодесков это (прорисовка тела у курсора) написанно? Вопрос у кого голый автокад без ET - там при перемещении тела оно у курсора наблюдаеться?

Попробоввал на 2008 LT без експрессов. Вставил блок, причем с атрибутом. До указания точки вставки, при перемещении мышки по экрану, блок перемещается (перерисовывается), с задержкой в отрисовке текста.

[Кулик Алексей aka kpblc]

В LT вообще Express Tools существовать не могут (официально)

[Дима_]

Тогда значит они (Аутодеск) от нас что-то скрывают, надо на них VVA натравить чтобы, он эту недокументированную функцию отрыл.

[Vildar]

fixo, мне кажется Вы недописали, после:

Код:

[Выделить все]

Set oblkRef = oSpace.Item(oSpace.Count - 1)

Что означает? И после ничего нет!?
Насчет DoEvents, поясните. В справке непонятно написано.
Во время паузы в:

Код:

[Выделить все]

"(command "._-insert" "СЛ2" pause "1" "1" "0")"

Выполняется DoEvents? Так?
Вернее не выполняется, а может выполняться еще одна команда.
Хотя нет. Во время "pause", запрвшивается точка вставки. Тогда вообще непонятно. Вы извените за глупые вопросы, ладно.
Ё, я кажется понял. Вставка блока через команду, это оно самое и есть. Т.е. блок (с помощью Автокада) вешается на курсор? Футы, так просто.
А как насчет реализации после указания точки вставки блока. Нужно управлять его размещением, в зависимости от расположения курсора относительно точки вставки.

[fixo]

Опять же на VBA это не сделать
Но можно тупо вставлять блок куда-нибудь
скажем в точку 0,0,0 а затем по аналогии
использовать команду "Move" через SendCommand
Так на языке и вертится: через ж..
Насчет DoEvents в данном контексте она
не выполняет никакой роли можешь убрать
А в принципе эта функция передает управление Windows,
для обработки других событий. И после обработки Windows'ом всех событий из очереди и передачи всех нажатий клавиш из очереди функции SendKeys возвращает управление обратно в VBA
Фактически здесь она работает как Sleep

~'J'~

[Vildar]

А что значит - "~'J'~"? Где-то (на caduser кажись) уже встречал!

Не совсем понял про "через жо...": Но можно тупо вставлять блок куда-нибудь скажем в точку 0,0,0 а затем по аналогии
использовать команду "Move" через SendCommand
Если есть возможность, посмотрите как вставляется, например, высотная отметка в СПДС. На мой взгляд, только move не обойтись.
Ну ладно, для меня пока это не критично (проблема остро не стоит).

[Кулик Алексей aka kpblc]

я бы использовал не _.move, а либо _.change (для варианта 2Д), либо _.-insert (для варианта 3Д)

[fixo]

Сообщение от Vildar А что значит - "~'J'~"? Где-то (на caduser кажись) уже встречал!

Это означает мою глупую рожу -
глаза, нос и усы

~'J'~

[ShaggyDoc]

Код:

[Выделить все]

(command "._-insert" "СЛ2" pause "1" "1" "0")"

Это ведь не VBA. Это LISP, отправленный в командную строку средствами VBA. Но "там же скобки"!

Далее. Эта строка будет отображаться в командной строке AutoCAD. Кому этот мусор нужен?

А почему стоит "1"? Разве блок только в единичном масштабе вставляется? Масштаб должен быть рассчитан в зависимости от назначения блока, а блок перед вставкой должен быть смасштабирован. Что толку, если на курсоре будет болтаться какая-то козявка или наоборот, громадина?

А поворот обязательно 0? А если надо еще и разворачивать (или визуально или с заданием угла любым стандартным методом), что другой проект делать?

А если атрибуты в блоке будут? Че тогда?

А откуда вообще имя блока будет браться? Спрашивать, как показано в #7? Или зашивать в dvb? А если блоков сотни? Что, на каждый блок проект?

А как в меню записать?

А если определения блока нет в DWG? Exit Sub и всё?

и т.д.

[Vildar]

Это просто "чайнику" показали, как использовать командные методы при вставке блока.
По замечаниям от ShaggyDoc. Мои предположения. Остальные условия тоже можно туда прописать.
- Имя блока берем с кнопки (через сис.переменную Userr1), проверяем его наличие. Кнопка, потому что блоков оформления не много, я делаю именно их.
- Масштаб, у меня он в сис.переменной CELTSCALE (и формочка в немодальном режиме для изменения масштаба).
- Дальше черт его знает.

Пока у меня на кнопке макрокоманда, из книжки В.Свет, по простому варианту: ^C^C_-insert;Os;\$M=$(Getvar,CELTSCALE);;;
Значение атрибута - ручками .
И повернут/подвинут/отзеркалят если надо тоже ручками )))

Серьезно. Надо решать поставленные задачи. Это я себе говорю, че-то обленился.

[Vildar]

Подскажите переменную для регулирования масштаба отображаемого на курсоре блока.

[Кулик Алексей aka kpblc]

Такой переменной нет. Прочти ссылку, которую я давал - там ShaggyDoc все по полочкам разложил

[Vildar]

Читал, читаю. В постах нашел INSUNITS. Но это же не то (жесткая градация единиц чертежа). А в лисповом коде мне не разлбраться.
Пояснение. По INSUNITS, я имею ввиду что она управляет масштабом, но ее значения ограничены.