Переделать приложение для работы в автокад 2018

Автор Тема: Переделать приложение для работы в автокад 2018  (Прочитано 480 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Тема содержит сообщение с Решением. Нажмите здесь чтобы посмотреть его.

Оффлайн kossaАвтор темы

  • ADN OPEN
  • Сообщений: 4
  • Карма: 0
Доброго времени суток, в более ранних версиях автокада пользовался этой приблудой для расстановки светильников. Очень помогала. Выделяешь помещение по двум точкам по диагонали, задаешь количество точек по оси У и по оси Х. Приложение расставляло их, а я потом на эти точки размещал светильники, но в свежей версии отказывается запускаться. Помогите его подправить чтоб все снова заработало

Оффлайн Владимир П

  • ADN OPEN
  • **
  • Сообщений: 57
  • Карма: 3
Да удалить эти плюсики и CHR - всего-то и делов.
(или искать потерянную библиотеку - но в данном случае смысла нет этим заниматься)

Оффлайн kossaАвтор темы

  • ADN OPEN
  • Сообщений: 4
  • Карма: 0



как то так получается

Отмечено как Решение rivilis 29-09-2017, 09:28:50

Оффлайн Владимир П

  • ADN OPEN
  • **
  • Сообщений: 57
  • Карма: 3
 If MsgBox("Количество точек должно быть больше или равно 1. Продолжить?", vbOKCancel) = vbOK Then GoTo retri_p
Так попробуйте.
Вам виднее, конечно, но лучше освойте стандартную команду Акада массивпрямоуг.
Сможете уже созданный массив редактировать и вдоль и поперек.

Оффлайн kossaАвтор темы

  • ADN OPEN
  • Сообщений: 4
  • Карма: 0
Спасибо, все работает!!!!!!!!!!
а массив не подходит для этих целей

Оффлайн Владимир П

  • ADN OPEN
  • **
  • Сообщений: 57
  • Карма: 3
 
Как это может быть что массив не подходит?
Именно команда "массив прямоугольный" и используется в вашей "приблуде"
PointObj.ArrayRectangular r, c, 1, L / r, H / c, 1

Оффлайн kossaАвтор темы

  • ADN OPEN
  • Сообщений: 4
  • Карма: 0
Не буду спорить,  для расстановки точек она скорее всего и используется, но мне она более удобна в использовании чем массив,  и меньше заморочей с ней. В любом случае огромное спасибо