| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Выбор обьектов чертежа (VBA)

Выбор обьектов чертежа (VBA)

Ответ
Поиск в этой теме
Непрочитано 21.07.2015, 16:49 #1
Выбор обьектов чертежа (VBA)
usernameisden
 
Регистрация: 15.06.2012
Сообщений: 118

Добрый день.

В 2013 автокаде перестала работать функция

Код:
[Выделить все]
 ThisDrawing.SelectionSets.Add("NewSelectionSet")
выдает ошибку Type mismatch
в ранних версиях все работало без ошибок.

программа была следующая:

Код:
[Выделить все]
 Option Explicit
Sub summadlin()
Dim SSet1 As AcadSelectionSet
Dim obj As AcadObject
Dim a As Double
Dim l As Double
Dim n As Integer

    Set SSet1 = ThisDrawing.SelectionSets.Add("NewSelectionSet")
    SSet1.SelectOnScreen

        For Each obj In SSet1
             If obj.EntityType = 19 Then n = n + 1: l = l + Int(obj.Length) / 1000
             If obj.EntityType = 24 Then a = a + obj.Area
        Next
        MsgBox Int(a / 1000 + 1) / 1000 & " кв. метров  ;  " & l & " метров в " & Val(n) & " отрезках"
     
ThisDrawing.SelectionSets.Item("NewSelectionSet").Delete
ThisDrawing.Utility.Prompt (Int(a / 1000 + 1) / 1000 & " кв. метров  ;  " & l & " метров в " & Val(n) & " отрезках")
End Sub

при этом MsgBox и .Prompt работают. VBA Enabler установлен


В чем может быть проблема?
Если есть другие команды для выбора, прошу привести пример.
Просмотров: 2757
 
Непрочитано 21.07.2015, 20:50
#2
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588


Проверьте версию подключенных библиотек автокада.
Boxa вне форума  
 
Непрочитано 21.07.2015, 21:21
#3
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Интересно, а почему во всех остальных кодах сначала выполняется проверка на наличие набора, если он есть, он удаляется, и только потом создается?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 22.07.2015, 00:00
#4
allrather


 
Регистрация: 27.02.2011
Минск
Сообщений: 169
Отправить сообщение для allrather с помощью Skype™


usernameisden, У меня 16й акад, все работает (скрины 1 и 2).

Возможно, у тебя несколько акадов на компе. Посмотри в референсах (как посоветовал Boxa) та ли библиотека подключена (скрин 3).
Миниатюры
Нажмите на изображение для увеличения
Название: Screen Shot.jpg
Просмотров: 18
Размер:	135.4 Кб
ID:	153757  Нажмите на изображение для увеличения
Название: Screen Shot 001.jpg
Просмотров: 16
Размер:	129.3 Кб
ID:	153758  Нажмите на изображение для увеличения
Название: Screen Shot 002.JPG
Просмотров: 20
Размер:	116.1 Кб
ID:	153759  
allrather вне форума  
 
Автор темы   Непрочитано 22.07.2015, 13:51
#5
usernameisden


 
Регистрация: 15.06.2012
Сообщений: 118


Спасибо, разобрался.

Посмотрел в редакторе VBA tools>references там подключена autocd type library 2012. Открыл чистый редактор и заново создал там модуль и скопировал туда текст програмы.
(если использовать старый .dvb файл слетает галочка с 2013 библиотеки и устанавливается на 2012).


сейчас попробую с проверкой набора разобраться
usernameisden вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Выбор обьектов чертежа (VBA)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему при вставке чертежа в Word меняются пропорции чертежа? МишаИнженер AutoCAD 9 28.11.2014 15:31
Выбор программы для создания большого количества обьектов в 3Д c последующей работой в автокаде 13Rossoneri AutoCAD 1 15.01.2014 13:12
Hp laserjet 5035 MFP смещение чертежа на формате A3 при печати из Autocad 2011 и 2013 merdoc2003 AutoCAD 6 18.04.2013 23:59
Несвойственные Автокаду вещи Vova AutoCAD 49 01.02.2012 19:33
Копирование файла одного чертежа в директорию текущего чертежа в автокаде... CAHTEXHuK Программирование 3 23.06.2010 00:23