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

Тема: WCS в VBA

Здравствуйте. Подскажите неразумному, как из VBA установить (сделать активной) мировую систему координат? Все Help'ы обшарил, не нашел. Правда в английском я слабоват, может пропустил чего...
Сейчас использую SendCommand, но хотелось бы без него.
И еще. Как установить ПСК по плоскости дуги? Есть какая-то НОРМАЛЬ, но что это такое и как ее использовать я пока не разобрался.

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

Re: WCS в VBA

то же искал и не нашел. Хотелось бы научится. Может кто знает?

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: WCS в VBA

Я в свое время тоже искал и не нашел sad Пришлось использовать "дубовый" прием - смоделировать WCS - нечто нижеследующее:
  Dim dirx(0 To 2) As Double: Dim diry(0 To 2) As Double
  Dim origin(0 To 2) As Double
  Dim ucsObj As AcadUCS
   origin(0) = 0#: origin(1) = 0#: origin(2) = 0#
   dirx(0) = 1#: dirx(1) = 0#: dirx(2) = 0#
   diry(0) = 0#: diry(1) = 1#: diry(2) = 0#
   Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(origin, dirx, diry, TMP_WCS)
   ThisDrawing.ActiveUCS = ucsObj

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

Re: WCS в VBA

Да, но удалить ее нельзя, т.е. после работы программы останется мусор. Страно но сам ACAD умеет все это делать

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: WCS в VBA

Не обращал внимания, но разве Delete не работает(ucsObj.delete) ?