• На форуме с 16 февраля 2004г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Как нарисовать Сплайн?

Скажите какую команду надо написать в VB, чтобы в Автокаде нарисовался Сплайн????

  • На форуме с 16 февраля 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как нарисовать Сплайн?

я не понял, почему тему закрыли?

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как нарисовать Сплайн?

Dim perila As AcadSpline
Set perila = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)

А вообще таким как, ты после таких дебильных вопросов, помогать не хочется. Какие должны быть аргументы разберешь сам.

  • На форуме с 16 февраля 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как нарисовать Сплайн?

спасибо и на этом! Удачи.

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как нарисовать Сплайн?

Погорячился. Но help - ами уметь надо пользоваться.

  • На форуме с 16 февраля 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как нарисовать Сплайн?

На счет Helpa! Тут после нарисования Сплайна, встала цель нарисовать оси и подписать значения. Как это сделать нашел в Helpe.!!! Есть только одна не задача! Текст подписывается, но огромным шрифтом (384). В строке кода  Set acObj = MSpace.AddText(txtstring, insertionPoint, Height), Height, как ни странно отвечает не за высоту текста, а за его смещение по горизонтали, вот в связи с этим и вопрос, как задать высоту текста?????? smile

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как нарисовать Сплайн?

Сам с этим мучался. Как решил не помню. Попробуй посмотреть системные переменные. Наверняка одна из них отвечает за высоту. Или может есть что-то попроще? Помню проблема была и помню что решил а как не помню. Может чуть позже подскажу. Попробуй испольховать "другой объект". Помоему AcadMText или что-то типа этого. там два объекта, которыми писать можно. Есть "сингллайнтекст" и есть "мультилайнтекст" попробуй и тем и другим.

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Как нарисовать Сплайн?

Алексей пишет:

Height, как ни странно отвечает не за высоту текста, а за его смещение по горизонтали

С чего это Вы взяли? Цитата из Help'a:

Height
Double; input-only
The height of the text. Must be a positive number.

В том же Help'е есть пример. Поменяйте несколько раз Height и все увидите.
А вообще, у созданого объекта типа AcadText, есть масса свойств, в т. ч. и его высота (кроме того: слой, цвет, стиль, выключка (выравнивание), точка вставки и т. д. и т. п.) которые, естественно, можно менять. После изменения какого-либо из свойств лучше применить к объекту метод Update. Например:

textObj.Height = 200#
textObj.Update

И все это есть в справке, искать надо.

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Как нарисовать Сплайн?

> Сергей
Выскажу сугубо личное мнение. Многострочным текстом (MText) лучше вообще без особой необходимости не пользоваться. Уж очень много с ним проблем. Полазьте по форуму и посмотрите сколько в связи с ним вопросов.

  • Сергей
  • Восстановленный участник
  • На форуме с 21 декабря 2001г.
  • Сообщений: 291
  • Спасибо: 0

Re: Как нарисовать Сплайн?

> bender
ok. Не пользоваться так не пользоваться.