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

[kossa]

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

[Владимир П]

Да удалить эти плюсики и CHR - всего-то и делов.
(или искать потерянную библиотеку - но в данном случае смысла нет этим заниматься)

[kossa]

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

[Владимир П]

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

[kossa]

Спасибо, все работает!!!!!!!!!!
а массив не подходит для этих целей

[Владимир П]

 
Как это может быть что массив не подходит?
Именно команда "массив прямоугольный" и используется в вашей "приблуде"

Код: [Выделить]

PointObj.ArrayRectangular r, c, 1, L / r, H / c, 1


[kossa]

Не буду спорить,  для расстановки точек она скорее всего и используется, но мне она более удобна в использовании чем массив,  и меньше заморочей с ней. В любом случае огромное спасибо