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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Civil 3D. Вычисление ограниченных объемов. Lisp

Civil 3D. Вычисление ограниченных объемов. Lisp

Ответ
Поиск в этой теме
Непрочитано 21.09.2015, 09:18 #1
Civil 3D. Вычисление ограниченных объемов. Lisp
Disney
 
Геодезист
 
Сибирь (где медведи по улицам ходят)
Регистрация: 12.03.2009
Сообщений: 860

Всем привет,
Написал на Lisp приложение для Civil "Картограмма земляных масс".
Подсчёт реализован только методом "квадратов" т.е. средняя толщина по углам квадрата на площадь этого квадрата, мне лично для оформления только так и нужно, для справки поверхность объёмов создаю.
Но вот почти все пользователи просят и метод "триангуляции" реализовать...
Разбивать каждый квадрат на призмы слабо себе представляю.
Есть в Civil функция ReportSurfBoundedVolume, которая по указанной поверхности и контуру выдаёт инфу, в том числе и объём,
Цитата:
REPORTSURFBOUNDEDVOLUME

Укажите поверхность <либо нажмите клавишу Enter для выбора поверхности из списка>:
Поверхность: красная
Текущая отметка референц-эллипсоида: 0.000м
Выберите ограничивающий полигон или [Референц-эллипсоид]:
Чистый объем = 10740.91 Куб. м<Насыпь>
Вырезать = 0.00 Куб. м
Насыпь = 10740.91 Куб. м
Чистый объем (отрегулировано) = 10740.91 Куб. м<Насыпь>
Вырезать (отрегулировано) = 0.00 Куб. м
Насыпь (отрегулировано) = 10740.91 Куб. м
Текущая отметка референц-эллипсоида: 0.000м
Выберите ограничивающий полигон или [Референц-эллипсоид]:
Тупо в лоб, конечно же ни чего не получилось
Код:
[Выделить все]
 (command-s "REPORTSURFBOUNDEDVOLUME" (entsel) (entsel))
Есть какие-нибудь идеи?
__________________
Почему все вдруг становятся умными, когда уже не надо?

Последний раз редактировалось Disney, 21.09.2015 в 09:54.
Просмотров: 5072
 
Непрочитано 21.09.2015, 12:40
1 | #2
trir


 
Регистрация: 18.12.2010
Сообщений: 4,804


пользоватся Картограммой от AutoDESK?

Код:
[Выделить все]
For Each triangle As TinSurfaceTriangle In surface.Triangles
http://docs.autodesk.com/CIV3D/2015/...ide/index.html
http://docs.autodesk.com/CIV3D/2015/...4a4eaaa9c6.htm

Последний раз редактировалось trir, 21.09.2015 в 13:30.
trir вне форума  
 
Автор темы   Непрочитано 22.09.2015, 10:05
#3
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от trir Посмотреть сообщение
пользоватся Картограммой от AutoDESK?
Мне нужна было чтоб расчёт был именно методом квадратов, с возможностью разбивать эти квадраты по характерным линиям, что я хотел я получил.

Цитата:
Сообщение от trir Посмотреть сообщение
Surface.GetBoundedVolumes Method (Point3dCollection)
Клёва! Только я не нашёл такого метода у поверхности, чтоб из Lisp через ActiveX до него добраться
Цитата:
; IAeccTinSurface: интерфейс IAeccTinSurface
; Значение свойств:
; Application (RO) = #<VLA-OBJECT IAeccApplication 000000003a4db430>
; Boundaries (RO) = #<VLA-OBJECT IAeccSurfaceBoundaries 000000003a7aef28>
; Breaklines (RO) = #<VLA-OBJECT IAeccSurfaceBreaklines 000000003a7b28e8>
; ContourLabelGroups (RO) = #<VLA-OBJECT IAeccSurfaceContourLabelGroups 0000000039eb74a0>
; Contours (RO) = #<VLA-OBJECT IAeccSurfaceContours 000000003a7b4b28>
; DefinitionProperties (RO) = #<VLA-OBJECT IAeccTinSurfaceDefinitionProperties 000000003a4d9a80>
; DEMFiles (RO) = #<VLA-OBJECT IAeccSurfaceDEMFiles 000000003a7a9ee8>
; Description = "Îïèñàíèå"
; DisplayName (RO) = "Îñíîâàíèå (1) (1)"
; Document (RO) = #<VLA-OBJECT IAeccDocument 000000003a4d6a50>
; EntityTransparency = "ÏîÑëîþ"
; Handle (RO) = "25A21"
; HasExtensionDictionary (RO) = -1
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000039f999a8>
; Labels (RO) = #<VLA-OBJECT IAeccSurfaceLabels 0000000039eb7630>
; Layer = "C-TOPO"
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Material = "ByLayer"
; Name = "Îñíîâàíèå (1) (1)"
; ObjectID (RO) = 42
; ObjectName (RO) = "AeccDbSurfaceTin"
; OutputTriangles (RO) = (4.18712e+006 484775.0 101.107 4.18715e+006 484778.0 101.38 ... )
; OwnerID (RO) = 44
; PlotStyleName = "ByLayer"
; PointFiles (RO) = #<VLA-OBJECT IAeccSurfacePointFiles 000000003a7bed68>
; PointGroups (RO) = #<VLA-OBJECT IAeccSurfacePointGroups 000000003a7a8aa8>
; Points (RO) = (4.18715e+006 484778.0 101.38 4.18714e+006 484796.0 101.439 ... )
; ShowToolTip = -1
; Statistics (RO) = #<VLA-OBJECT IAeccTinSurfaceStatistics 000000003a4db790>
; Style = #<VLA-OBJECT IAeccSurfaceStyle 0000000039ee8df0>
; StyleName (RO) = "Ìîé ñòèëü"
; SurfaceAnalysis (RO) = #<VLA-OBJECT IAeccSurfaceAnalysis 000000003a4d92a0>
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000039f92140>
; Type (RO) = 2
; Visible = -1
; Поддерживаемые методы:
; AddPointMultiple (1)
; ArrayPolar (3)
; ArrayRectangular (6)
; Copy ()
; CreateSnapshot ()
; Delete ()
; ExtractBorder (1)
; ExtractContour (4)
; FindElevationAtXY (2)
; GetBoundingBox (2)
; GetExtensionDictionary ()
; GetXData (3)
; Highlight (1)
; IntersectPointWithSurface (2)
; IntersectWith (2)
; IsReferenceObject ()
; IsReferenceStale ()
; IsReferenceSubObject ()
; IsReferenceValid ()
; Mirror (2)
; Mirror3D (3)
; Move (2)
; PasteSurface (1)
; Rebuild ()
; RebuildSnapshot ()
; RemoveSnapshot ()
; Rotate (2)
; Rotate3D (3)
; SampleElevations (4)
; ScaleEntity (2)
; SetXData (2)
; TransformBy (1)
; Update ()
_1$
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 22.09.2015, 11:04
1 | #4
trir


 
Регистрация: 18.12.2010
Сообщений: 4,804


Это был намёк, что пора переходить на dotNET или C++
trir вне форума  
 
Автор темы   Непрочитано 22.09.2015, 12:20
#5
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от trir Посмотреть сообщение
Это был намёк
Спасибо конечно, я даже себе год назад книгу купил "Герберт Шилдт - C# 4.0. Полное руководство" и много раз пытался начать её листать, и разобрать какой-нибудь маленький примерчик но голова кругом идёт, там всё по другому, классы какие-то не понятные
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 24.09.2015, 22:29
1 | #6
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Вот с чего хорошо начинать:
http://adn-cis.org/treningi-autodesk...-v-moskve.html
В этом году можно даже удаленно "поприсутствовать".
__________________
Толковый выбор приходит с опытом, а к нему приводит выбор бестолковый. (The Mechanic)
Do$ вне форума  
 
Автор темы   Непрочитано 25.09.2015, 06:52
#7
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от Do$ Посмотреть сообщение
Вот с чего хорошо начинать:
Спасибо, записался.
В Москву конечно я не поеду, но боюсь что он-лайн будет не так интересно.
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 25.09.2015, 10:25
#8
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Не понял, как может быть неинтересно бесплатное онлайн обучение тому, что вам очень нужно? Это же просто подарок какой-то! Такого раньше никогда еще не было, надо пользоваться
__________________
Толковый выбор приходит с опытом, а к нему приводит выбор бестолковый. (The Mechanic)
Do$ вне форума  
 
Автор темы   Непрочитано 25.09.2015, 10:38
#9
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от Do$ Посмотреть сообщение
Не понял
Я в том плане что живое присутствие гораздо интереснее, я люблю вопросы задавать :-)
Скачал видео курс С# Stsrter , первый урок почти 2 часа, нудятина... Но я понимаю что по-другому ни как, вроде и в программирование немного уже понимаю, но сразу к "базовому" курсу перейти не получится.
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 25.09.2015, 18:47
1 | #10
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Цитата:
Сообщение от Disney Посмотреть сообщение
Скачал видео курс С# Stsrter , первый урок почти 2 часа, нудятина... Но я понимаю что по-другому ни как, вроде и в программирование немного уже понимаю, но сразу к "базовому" курсу перейти не получится.
Лучше что-то типа такого:
Increase Size Decrease Size Нажмите для просмотра
http://www.youtube.com/watch?v=lu_jGGR9TXI.
Научиться делать простейший проект, подключать его к автокаду-сивилу. А дальше - практика параллельно с чтением книг...
Блин, почему у них все примеры сплошь на VB.NET? C# поудобнее будет... Снять самому чтоли?
Вот еще неплохие мультики:http://adndevblog.typepad.com/autoca...t-archive.html
__________________
Толковый выбор приходит с опытом, а к нему приводит выбор бестолковый. (The Mechanic)
Do$ вне форума  
 
Непрочитано 25.09.2015, 19:35
#11
Кулик Алексей aka kpblc
Moderator

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


Offtop:
Цитата:
Сообщение от Do$ Посмотреть сообщение
Снять самому чтоли?
Хорошая идея! Давай, с интересом буду смотреть А то от лиспа никак не уйти
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 25.09.2015, 20:34
#12
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от Disney Посмотреть сообщение
Скачал видео курс С# Stsrter ,
100$ за 18 часов - не дешево
gomer вне форума  
 
Автор темы   Непрочитано 25.09.2015, 20:55
#13
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от gomer Посмотреть сообщение
100$ за 18 часов - не дешево
Ну что ты, конечно же на торрентах "купил"
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 27.09.2015, 23:49
1 | #14
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Хорошая идея! Давай, с интересом буду смотреть А то от лиспа никак не уйти
Offtop: Ну вот как-то так:
https://www.youtube.com/playlist?lis...vNqlQaO0GtXHqA
По возможности, буду добавлять еще что-нибудь интересное.
__________________
Толковый выбор приходит с опытом, а к нему приводит выбор бестолковый. (The Mechanic)
Do$ вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Civil 3D. Вычисление ограниченных объемов. Lisp

Система Техэксперт дает уверенность в правильности и эффективности принимаемых инженерных решений!
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание профиля по массиву точек. Civil 3d 2012 Eng (Civil 3d 2010 Ru) domovik_toby Вертикальные решения на базе AutoCAD 3 19.08.2013 14:20
Несовместимость версий Civil 3d 2013 c Civil 3d 2012 Pavel_GP Вертикальные решения на базе AutoCAD 3 04.04.2013 11:22
Импорт из Trimble M3 в Civil 3D Red Nova Вертикальные решения на базе AutoCAD 10 02.04.2013 11:50
Lisp под Civil 3d 2011: как создать поверхность? FDN LISP 5 27.10.2010 19:25