[Disney]

Всем привет,
Написал на 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))

Есть какие-нибудь идеи?

[trir]

пользоватся Картограммой от 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

[Disney]

Сообщение от 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$

[trir]

Это был намёк, что пора переходить на dotNET или C++

[Disney]

Сообщение от trir Это был намёк

Спасибо конечно, я даже себе год назад книгу купил "Герберт Шилдт - C# 4.0. Полное руководство" и много раз пытался начать её листать, и разобрать какой-нибудь маленький примерчик но голова кругом идёт, там всё по другому, классы какие-то не понятные

[Do$]

Вот с чего хорошо начинать:
http://adn-cis.org/treningi-autodesk...-v-moskve.html
В этом году можно даже удаленно "поприсутствовать".

[Disney]

Сообщение от Do$ Вот с чего хорошо начинать:

Спасибо, записался.
В Москву конечно я не поеду, но боюсь что он-лайн будет не так интересно.

[Do$]

Не понял, как может быть неинтересно бесплатное онлайн обучение тому, что вам очень нужно? Это же просто подарок какой-то! Такого раньше никогда еще не было, надо пользоваться

[Disney]

Сообщение от Do$ Не понял

Я в том плане что живое присутствие гораздо интереснее, я люблю вопросы задавать :-)
Скачал видео курс С# Stsrter , первый урок почти 2 часа, нудятина... Но я понимаю что по-другому ни как, вроде и в программирование немного уже понимаю, но сразу к "базовому" курсу перейти не получится.

[Do$]

Сообщение от Disney Скачал видео курс С# Stsrter , первый урок почти 2 часа, нудятина... Но я понимаю что по-другому ни как, вроде и в программирование немного уже понимаю, но сразу к "базовому" курсу перейти не получится.

Лучше что-то типа такого:

Нажмите для просмотра

http://www.youtube.com/watch?v=lu_jGGR9TXI.
Научиться делать простейший проект, подключать его к автокаду-сивилу. А дальше - практика параллельно с чтением книг...
Блин, почему у них все примеры сплошь на VB.NET? C# поудобнее будет... Снять самому чтоли?
Вот еще неплохие мультики:http://adndevblog.typepad.com/autoca...t-archive.html

[Кулик Алексей aka kpblc]

Offtop:

Сообщение от Do$ Снять самому чтоли?

Хорошая идея! Давай, с интересом буду смотреть А то от лиспа никак не уйти

[gomer]

Сообщение от Disney Скачал видео курс С# Stsrter ,

100$ за 18 часов - не дешево

[Disney]

Сообщение от gomer 100$ за 18 часов - не дешево

Ну что ты, конечно же на торрентах "купил"

[Do$]

Сообщение от Кулик Алексей aka kpblc Хорошая идея! Давай, с интересом буду смотреть А то от лиспа никак не уйти

Offtop: Ну вот как-то так:
https://www.youtube.com/playlist?lis...vNqlQaO0GtXHqA
По возможности, буду добавлять еще что-нибудь интересное.