• Lama
  • Восстановленный участник
  • На форуме с 20 мая 2007г.
  • Сообщений: 15
  • Спасибо: 0

Тема: SendCommand AcadEntity или как это правильно сделать?

Вот листинг, подскажите, как передать автокаду выбранный(ые) элементы?
Public Sub proba2()
  Dim lineObj As AcadEntity
  Dim varPnt As Variant
  ThisDrawing.Utility.GetEntity lineObj, varPnt, "select line "
        ThisDrawing.SendCommand "_copy" & vbCr
        ThisDrawing.SendCommand plineObj & vbCr 'вот тут он на меня матюгается ((
End Sub
acad 2002 русский (лиц)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: SendCommand AcadEntity или как это правильно сделать?

А так?

Public Sub proba2()
Dim lineObj As AcadEntity, varPnt As Variant
  ThisDrawing.Utility.GetEntity lineObj, varPnt, "select line "
  ThisDrawing.SendCommand "_copy" & vbCr & "(handent "" & lineobj.Handle & "")"
End Sub

  • Lama
  • Восстановленный участник
  • На форуме с 20 мая 2007г.
  • Сообщений: 15
  • Спасибо: 0

Re: SendCommand AcadEntity или как это правильно сделать?

пишет
Команда: -vbarun
Имя макроса: proba2 select line
Команда:
Команда: _copy
Выберите объекты: (handent " & lineobj.Handle & ")
nil
*Неверный выбор*
Требуется точка( ... и так далее)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: SendCommand AcadEntity или как это правильно сделать?

Понятно, значит, в VBA не срабатывает моя шутка :)
Делаем так:

Public Sub proba2()
Dim lineObj As AcadEntity, varPnt As Variant
  ThisDrawing.Utility.GetEntity lineObj, varPnt, "select line "
  ThisDrawing.SendCommand "_copy" & vbCr & "(handent " & Chr(34) & lineObj.Handle & Chr(34) & ")"
End Sub

Работает?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: SendCommand AcadEntity или как это правильно сделать?

Тьфу ты, последний vbCr забыл :(
Правда, я не знаю - может, и без него сработает. Я с VBA почти не контачу :(

  • Lama
  • Восстановленный участник
  • На форуме с 20 мая 2007г.
  • Сообщений: 15
  • Спасибо: 0

Re: SendCommand AcadEntity или как это правильно сделать?

+ & vbCr и работает, сенкс)))))). Счас буду попробовать в дальнейшее изучение)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: SendCommand AcadEntity или как это правильно сделать?

Вопрос - а настолько нужно именно SendCommand "_.copy"? Может, можно обойтись lineObj.Copy?

  • Lama
  • Восстановленный участник
  • На форуме с 20 мая 2007г.
  • Сообщений: 15
  • Спасибо: 0

Re: SendCommand AcadEntity или как это правильно сделать?

тут не только копи, тут в основном команды выдавливания, усечения и прочяя. Важен сам принцип передачи объектов командной строки автокада. (Полещука купил, но там ТАК МАЛО по VBA, а лисп я сам не освою).

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: SendCommand AcadEntity или как это правильно сделать?

> Lama
Да в лиспе-то просто все достаточно :) Кстати, не забудь для ком.режима про osmode :)