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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Сумма площадей выбранных штриховок

Сумма площадей выбранных штриховок

Ответ
Поиск в этой теме
Непрочитано 01.10.2008, 18:38 #1
Сумма площадей выбранных штриховок
selvinsky
 
Архитектор
 
Москва
Регистрация: 01.10.2008
Сообщений: 9

Друзья, составляя экспликации мы сталкиваемся с тем, что необходимо суммировать площади залитых штриховок. В принципе, это можно сделать, просто выбрав штриховки и в свойстве CumulativeArea все и пишется. НО! Не всегда. Столкнулся с тем, что попадаются штриховки, в которых вообще отсутствует свойство Area. И тогда автокад не считает CumulativeArea. Решил написать скрипт для подсчета, вот он:

Sub CountArea()

Dim i As Integer
Dim TotalArea As Double
Dim aarea As AcadHatch
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.ActiveSelectionSet

For i = 0 To sset.Count - 1
If ThisDrawing.ActiveSelectionSet.Item(i).ObjectName = "AcDbHatch" Then
Set aarea = ThisDrawing.ActiveSelectionSet.Item(i)
TotalArea = TotalArea + aarea.Area
End If
Next

MsgBox Int(TotalArea / 1000000) & " m2"

sset.Delete
End Sub

Но он вылетает с ошибкой "invalid input `-2145386493`"
Видимо, когда обращаемся к aarea.Area , а такого свойства нет - возникает ошибка.

Внимание, ВОПРОС:
Как проигнорировать неправильную штриховку и завершить скрипт ?

Последний раз редактировалось selvinsky, 01.10.2008 в 19:11.
Просмотров: 4142
 
Непрочитано 01.10.2008, 23:48
#2
Кулик Алексей aka kpblc
Moderator

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


(Втупую): а если использовать On Error?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 02.10.2008, 01:04
#3
fixo

Lisp/VBA/VB.NET Hobbyist
 
Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367


Логично

Код:
[Выделить все]
On Error Resume next
For i = 0 To sset.Count - 1
....
Next
On Error GoTo 0
~'J'~
fixo вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Сумма площадей выбранных штриховок

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Несколько штриховок в одном своем файле *.pat Pave1 AutoCAD 6 27.08.2008 07:52
Площадь штриховок misht AutoCAD 3 15.12.2007 16:58
Расчет площадей штриховок заданного типа Маша Ржефская AutoCAD 5 02.11.2007 16:30
Получение таблицы площадей штриховок Dark3d AutoCAD 3 23.07.2007 12:18