| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
08.11.2013, 16:51 | #1 | |
VBA. Задание имени блока в Blocks.Add и InsertBlock
Регистрация: 17.03.2009
Сообщений: 316
|
||
Просмотров: 3625
|
|
||||
гадание на конечно-элементной гуще Регистрация: 31.05.2006
Düsseldorf
Сообщений: 7,604
|
2. у меня работает такой код для проверки существования блока (если такого нет, то создаём):
Public kr As String Sub rdv_kr() 'Создаём блок каркаса КР On Error GoTo ErrorHandler kr = "kr" + CStr(Int(tsten / 10)) Dim tmp_block As IAcadBlock Set tmp_block = ThisDrawing.blocks.item(kr) Exit Sub 'Выходим из процедуры, чтобы не попасть в обработчик ErrorHandler: Select Case Err.Number Case -2145386470 'если блока нет Dim pt1(2) As Double, pt2(2) As Double Dim block As IAcadBlock, obj As AcadObject Set block = ThisDrawing.blocks.Add(pt1, kr) pt1(1) = -(tsten / 2 - 40) pt2(1) = tsten / 2 - 40 Set obj = block.AddLine(pt1, pt2) obj.LineWeight = -2 obj.layer = "КЖ_арматура элементов" pt1(0) = 10 pt1(1) = -(tsten / 2 - 60) Set obj = block.AddCircle(pt1, 10) obj.LineWeight = -2 obj.layer = "КЖ_арматура элементов" pt1(1) = tsten / 2 - 60 Set obj = block.AddCircle(pt1, 10) obj.LineWeight = -2 obj.layer = "КЖ_арматура элементов" End Select End Sub вдруг чем поможет. |
|||
|
||||
гадание на конечно-элементной гуще Регистрация: 31.05.2006
Düsseldorf
Сообщений: 7,604
|
попробуйте скобки убрать =)
http://vbamodel.narod.ru/AutoCAD/idh_add.htm вообще это не так работает. нужна конструкция типа: Dim block As IAcadBlock Set block = ThisDrawing.blocks.Add(pt1, kr) |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Какой язык перспективен для инженера-конструктора с условием | The_Mercy_Seat | Программирование | 705 | 17.03.2021 14:19 |
Соединение 2 однопролётных плит через пилон в разных уровнях | an247 | Прочее. Архитектура и строительство | 7 | 13.10.2005 15:43 |
Масштабирование объектов при печати в разных форматах | Yuri | AutoCAD | 4 | 13.05.2004 19:27 |
Отоблажение в разных Viewports разных слоев | Torino | AutoCAD | 2 | 27.02.2004 13:16 |