• На форуме с 30 июня 2010г.
  • Сообщений: 48
  • Спасибо: 1

Тема: Привязка к курсору

Здравствуйте гуру  Автокада!  подскажите  пожалуйста. мне нужно вставить  мой блок из определенного файла, но блок не устанавливался на конкретную точку, а "висел" у пользователя на курсоре

пробовала такой способ
    ThisDrawing.SendCommand "_insert" & vbCr & MyBlockNamenew & vbCr
    ThisDrawing.SendCommand "s" & vbCrLf & "1" & vbCrLf & "r" & vbCrLf & "0" & vbCrLf
где MyBlockNamenew = "D:\TEMP\www.dwg"

получается ерунда все равно вылетает стандартное окно вставки блока, в котором  необходимо выбрать блок.
может кто-нибудь подскажет

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Привязка к курсору

Да, можно через insert.

У меня так:

ThisDrawing.SendCommand "(Command " & Chr(34) & "._-insert" & Chr(34) & " " & Chr(34) & BlockName & Chr(34) & " " & "pause 1 1 pause)(princ)"

Должна получится команда:

(Command "._-insert" "ИмяБлока" pause 1 1 pause)(princ)

Первая пауза, для указания точки вставки,
далее 1 1 - это масштаб по х и у,
вторая пауза для указания пользователем угла поворота.

Не знаю насколько это оптимальный способ.

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Привязка к курсору

Забыл добавить, чтобы не было мусора в ком.строке временно переключай cmdecho в 0.
Будет видна только строка команды.

  • На форуме с 30 июня 2010г.
  • Сообщений: 48
  • Спасибо: 1

Re: Привязка к курсору

ThisDrawing.SendCommand "(Command " & Chr(34) & "._-insert" & Chr(34) & " " & Chr(34) & MyBlockNamenew & Chr(34) & " " & "pause 1 1 0)(princ)  " & Chr(13) & ""

так не надо вводить enter

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Привязка к курсору

Надо, забыл.