[evgm]

Здравствуйте.
Подскажите, пожалуйста, как на VB реализовать следеущее:
нужно сплайн разделить на равные отрезки и получить массив координат всех этих точек
например как комманда measure разбивает.
Но как мне получить массив этих блоков после её выполнения (причем в той же последавательности)?
Заранее спасибо.

[Сергей Дубина]

У меня LT пример привести не могу, на прошлой работе делал такую функцию, опишу в двух словах:
Есть функция GetPoint, в параметрах координата и пояснение
в пояснение вбей то что должно быть в ком. строке например : Выберите сплайн
у объекта ModelSpase есть метод CommandLine
собери строку для этого метода (команда автокада) с использованием полученной координаты.

[evgm]

команду то я акаду отправлю без проблем
он конечно ее выполнит (разделит сплайн указанными блоками)
но главный вопрос в том что мне потом нужны получить массив этих блоков (например запихать их в selectionset) в той же последовательности что и на сплайне (искать блоки с известным мне именем не приемлемо тк на чертеже может быть еще куча блоков с таким же названием но не относящиеся к моему сплайну)
measure это я как пример привел
вообще мне нужно получить координаты точек сплайна через равные промежутки (или получить ссылку на все только что вставленные объекты)

[Кулик Алексей aka kpblc]

Ищи код класса vlax. На форуме был.
Этот класс позволяет, насколько я помню, использовать lisp-функции (типа vlax-curve-getclosestpointto и аналогичные).

[Олег (jr.)]

Сообщение от evgm но главный вопрос в том что мне потом нужны получить массив этих блоков

Подсчитываешь сколько добра у тебя есть:
f1 =ThisDrawing.ModelSpace.Count - 1
потом раскидываешь блоки
опять считаешь чего добавилось
f2 =ThisDrawing.ModelSpace.Count - 1
и по полученным в разнице от f1 до f2 индексам находишь все примитивы

~'J'~

[evgm]

Сообщение от Кулик Алексей aka kpblc Ищи код класса vlax. На форуме был. Этот класс позволяет, насколько я помню, использовать lisp-функции (типа vlax-curve-getclosestpointto и аналогичные).

а вот с этим уже сложнее - я в лиспе чайник...

[Сергей Дубина]

создай свои служебные блоки или слой (в случае точек)

[evgm]

Сообщение от Сергей Дубина создай свои служебные блоки или слой (в случае точек)

Хорошо, получу я массив своих блоков, но как мне их отсортировать
в том же порядке как они расставлены на сплайне?
Я получу все блоки, в цикле проверяю мой он или нет и если мой, то добавляю в массив. Но ведь в какой последовательности? В случайной?

[Сергей Дубина]

Циклом ForEach перебираются в порядке создания

[Олег (jr.)]

Сообщение от evgm Хорошо, получу я массив своих блоков, но как мне их отсортировать в том же порядке как они расставлены на сплайне? Я получу все блоки, в цикле проверяю мой он или нет и если мой, то добавляю в массив. Но ведь в какой последовательности? В случайной?

см. пост #5 я все объснил

~'J'~

[evgm]

спасибо всем большое
вроде все получилось