Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: помогите удалить объект в autocad при помощи VBA, please.  (Прочитано 6632 раз)
0 Пользователей и 1 Гость смотрят эту тему.
IDESTDIXI
Гость
« : 28-09-2009 06:45 » 

помогите удалить объект в autocad при помощи VBA, please.
Записан
hogan3cat
Гость
« Ответ #1 : 27-11-2009 22:21 » 

 Здесь была моя ладья... честно говоря, я и сам только начал изучать VBA в среде AutoCAD, и для конкретного ответа хотелось бы знать, какой код ты уже написал, и чего именно тебе не хватает? Но тем не менее:

Private Sub UserForm_Initialize()
Set Space = ThisDrawing.ModelSpace
End Sub

Private Sub CommandButton1_Click()

Dim Space, CurObject as Object

For Each CurObject in Space
With CurObject
if CurObject.EntityName <> "acdd3Solid" then goto 1
if CurObject.EntityName = "acdd3Solid" then
CurObject.delete
.update
goto 2
end if
1
end if
end with
next curObject
2
End Sub
По-моему, так  Здесь была моя ладья..., пишу по памяти...если что пиши, там разберемся  Класс!
« Последнее редактирование: 28-11-2009 05:30 от Sel » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines