Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Создание блока и добавление/удаление других блоков в нем
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
а) Подскажите, как создать блок:
1. из selectionSet?
2. программно рисуются примитивы и добавляются в блок (без selectionSet)?
б)Подскажите, как вставить в блок другой блок, чтобы потом любой внутренний блок можно было удалить, допустим, по имени?
а1. Например, примерно так
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add(ИМЯ_МНОЖЕСТВА)
ssetObj.AddItems ОБЪЕКТ`
ThisDrawing.Wblock ИМЯ_БЛОКА, ssetObj
а2. Например, примерно так:
Dim blk as AcadBlock
set blk = ThisDrawing.Blocks.Add(БАЗОВАЯ_ТОЧКА, ИМЯ_БЛОКА)
blk.add???, PAR1, PAR2, ...
??? - Cylinder, Line еtc. (количество и тип параметров зависит от того, какой объект добавляете в блоку). И все это прекрасно описано в HELPe.
б. Точно не помню, но, IMHO, применением метода InsrteBlock к блоку, в который вставляется нужный блок. А для того, чтобы удалить вложенный блок, составной блок (точнее, BlockReference) сначала надо "взорвать", удалить ненужный объект (вложенный блок), а затем собрать из оставшихся объектов новый блок, присвоив ему тоже имя (предварительно удалив из чертежа старый блок)
wblock - че-то не то! Нужно создать блок из набора примитивов selection set?
Или как добавить в блок item'ы из чертежа?
> Sliver
wblock - как раз то.(Создает новый блок из набора Selection set). Просто новый блок нужно вставить в текущий документ, а созданый фаил блока удалить.
Или используй методы add... проходя по всем объектам Selection Set и выясняя их тип.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Создание блока и добавление/удаление других блоков в нем
Форум работает на PunBB, при поддержке Informer Technologies, Inc
