|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
09.06.2016, 15:42 | #1 | |
Помогите создать блок масштабирование на VBA.
Регистрация: 09.06.2016
Сообщений: 3
|
||
Просмотров: 3794
|
|
||||
Регистрация: 09.06.2016
Сообщений: 3
|
Sub Mashtab()
Dim objt As Object Dim basePoint(0 To 2) As Double Dim scalefactor As Double basePoint(0) = 0: basePoint(1) = 0: basePoint(2) = 0: scalefactor = 1000 For Each objt In ThisDrawing.ModelSpace objt.ScaleEntity basePoint, scalefactor objt.color = acByLayer Next objt ZoomExtents End Sub |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Мои динамические блоки [2] | Кулик Алексей aka kpblc | Динамические блоки | 4334 | 22.04.2019 09:16 |
Помогите создать конструкции для поперечников в Civile | Sherxan1987 | Прочее ПО от Autodesk | 1 | 18.01.2016 12:34 |
Как создать анонимный блок? | Shoorup | Программирование | 18 | 18.06.2014 14:11 |
Помогите создать новую линию в автокад | frodium | AutoCAD | 1 | 28.08.2009 09:14 |
Помогите доделать программу добавления объектов в блок | МишаVBA | Программирование | 1 | 20.05.2006 01:04 |