• masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Тема: Почему SendCommand не срабатывает?

Здравствуйте, добрые люди!
Подскажите, пожалуйста, как побороть такую вещь.
Я пытаюсь программно создать вюпорт по форме объекта (замкнутой полилинии). Руками в Автокаде это удаётся сделать, а вот такое заклинание не срабатывает:

ThisDrawing.SendCommand ("_mview" & vbCr & "Object" & vbCr & frame_polyline)

Что я делаю неправильно?

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

Re: Почему SendCommand не срабатывает?

frame_polyline - ето хто? Если объект полилинии, то не сработает. Попробуй так:

ThisDrawing.SendCommand ("_mview" & vbCr & "Object" & vbCr & "(handent " frame_polyline.handle & ")")

Кажись, так, если ничего не перепутал

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Почему SendCommand не срабатывает?

Не получилось. :(  Он просит указать объект, курсор такой формы становится. Если объект ткнуть рукой, то VP создаётся. Правда, не понятно пока, как добраться до свойств этого вьюпорта, в частности, Target, StandardScale и CustomScale. Он пока впихивает в него всё содержимое ModelSpase-a.
ЗЫ. Там после "(handent ", кажется, & должен быть...

  • BP
  • Восстановленный участник
  • На форуме с 19 мая 2005г.
  • Сообщений: 112
  • Спасибо: 0

Re: Почему SendCommand не срабатывает?

ThisDrawing.SendCommand ("_.-vports" & vbCr & "_o" & vbCr & "(handent " & """" & handleClippingObj & """" & ")") & vbCr

Где handleClippingObj - метка объекта.

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Почему SendCommand не срабатывает?

А что такое метка объекта? Как её получить?

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Почему SendCommand не срабатывает?

Всё, поняла. Это был всё тот же handle. :)  Вьюпорт создался. Ура! Осталось только докопаться до его свойств... Если кто подскажет, как это сделать, буду очень благодарна!

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Почему SendCommand не срабатывает?

Кто-нибудь знает, как добиться, чтобы через этот самый viewport что-нибудь увидеть?  Если верить Debuger-y, а также свойствам VP, которые можно посмотреть руками, то значения свойств правильные. Но на экране ничего не видно. :(
Объект с нужными свойствами создаю так:

ThisDrawing.SendCommand ("_.-vports" & vbCr & "_o" & vbCr & "(handent " & """" & frame_polyline.Handle & """" & ")") & vbCr
k = ThisDrawing.PaperSpace.Count - 1
Set newViewport = ThisDrawing.PaperSpace.Item(k)
newViewport.Target = Tg
newViewport.StandardScale = acVpCustomScale
newViewport.CustomScale = custom_scale newViewport.Display True