Сообщество программистов Autodesk в СНГ
ADN Club => VBA => Тема начата: kossa от 29-09-2017, 04:28:24
-
Доброго времени суток, в более ранних версиях автокада пользовался этой приблудой для расстановки светильников. Очень помогала. Выделяешь помещение по двум точкам по диагонали, задаешь количество точек по оси У и по оси Х. Приложение расставляло их, а я потом на эти точки размещал светильники, но в свежей версии отказывается запускаться. Помогите его подправить чтоб все снова заработало
-
Да удалить эти плюсики и CHR - всего-то и делов.
(или искать потерянную библиотеку - но в данном случае смысла нет этим заниматься)
-
(https://s26.postimg.org/t28j7hexh/image.png) (https://postimg.org/image/t28j7hexh/)
как то так получается
-
If MsgBox("Количество точек должно быть больше или равно 1. Продолжить?", vbOKCancel) = vbOK Then GoTo retri_p
Так попробуйте.
Вам виднее, конечно, но лучше освойте стандартную команду Акада массивпрямоуг.
Сможете уже созданный массив редактировать и вдоль и поперек.
-
Спасибо, все работает!!!!!!!!!!
а массив не подходит для этих целей
-
Как это может быть что массив не подходит?
Именно команда "массив прямоугольный" и используется в вашей "приблуде"
PointObj.ArrayRectangular r, c, 1, L / r, H / c, 1
-
Не буду спорить, для расстановки точек она скорее всего и используется, но мне она более удобна в использовании чем массив, и меньше заморочей с ней. В любом случае огромное спасибо