Статията във вестник Строителство Градът по повод отбелязването на Международния ден на Географските информационни системи (GIS Day)
С командата ImportStylesandSettings могат да се копират стилове от един AutoCAD Civil 3D чертеж в друг.
Желаните стилове и настройки се избират от диалогов прозорец, показващ всички възможни стилове за копиране от избран чертеж.
Четене на данни от Sokkia SDR33 файл
Модулът за четене на данни от измервания от файл във формат SDR (Sokkia SDR33) е завършен.
Прочитат се данни от станции, височина на сигнала и измервания.
Абрис на станция
Модулът за абрис на дадените точки е завършен и работи по следния начин:
- Обхождат се всички станции в мрежата, маркирани за използване и съдържащи поне 1 измерване (посока);
- Ако станцията е точка с дадени координати (присъства в списъка с дадените точки) се обхождат всички измерени посоки от нея;
- Ако станцията е с клас по-висок от нула, но не присъства в списъка с дадените точки се извежда съобщение за грешка;
- За текущата станция се проверяват точките, към които има измерени посоки, дали присъстват в списъка с дадените точки. Сравнението, както и при станциите, се извършва по тип на точка (тт, пт, нр и т. н.), номер на точка и клас по положение. Ако класът по положение е нула, проверката за клас отпада;
- Ако класът по положение е по-висок от нула, но точката не присъства в списъка с дадените точки, извежда се съобщение за грешка;
- Ако точката бъде намерена се изчислява посочния ъгъл, а след това и ориентировъчния ъгъл на станцията.
- Ако към една точка има повече от една измерена посока, взима се средната посока.
- Средният ориентировъчен ъгъл на станцията се изчислява като средно аритметично от всички ориентировъчни ъгли в станцията;
- При изчисляването на ориентировъчните ъгли участват само посоките, които са маркирани за използване.
Сумиране на ъгли в триъгълници
HTML основи – резултат от теста
Резултатът от теста по HTML е следният:
Взет!
Точки: 76.50
Място: 190
Тест: 22 от 30
Критериите за взет с отличие са 24+ точки от теста или 80+ точки.
Примерен код на VB.Net
1. Добавяне на Event Handler преди извикване на ресурс от dll файла
AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf AssemblyResolve
2. Функция за извикване на dll файла
Private Function AssemblyResolve(ByVal sender As Object, ByVal e As ResolveEventArgs) As Assembly
Dim resourceFullName As String = String.Format("Seo.{0}.dll", e.Name.Split(","
c)(0))
Dim thisAssembly As Assembly = Assembly.GetExecutingAssembly()
Using resource As Stream = thisAssembly.GetManifestResourceStream(resourceFullName)
If resource IsNot Nothing Then
Return Assembly.Load(ToBytes(resource))
End If
Return Nothing
End Using
End Function
Private Function ToBytes(ByVal instance As Stream) As Byte()
Dim capacity As Integer = If(instance.CanSeek, Convert.ToInt32(instance.Length), 0)
Using result As New MemoryStream(capacity)
Dim readLength As Integer
Dim buffer(4096) As Byte
Do
readLength = instance.Read(buffer, 0, buffer.Length)
result.Write(buffer, 0, readLength)
Loop While readLength > 0
Return result.ToArray()
End Using
End Function
Конвертиране на файлове в SDR
Програма за конвертиране на файлове с координати на точки в SDR формат
Повече за програмата:
Връзка за сваляне:
TIN Surface
Поддържани изходни формати във версия 0.7
- скриптов файл за AutoCAD – експортира повърхнината като 3D линии
- ESRI Shape файл – за ArcGIS, QGIS и други ГИС програми
- XML файл – поддържа се LandXML, експортират се точките и триъгълниците
Формат на входния файл
Пълен формат:
[point id] [north] [east] [elevation] [point code]
11415 4572370.166 9462415.219 112.055 road
Само North, East, Elevation
[north] [east] [elevation]
4572369.179 9462409.152 112.190
С Point ID
[point id] [north] [east] [elevation]
11415 4572370.166 9462415.219 112.055
За разделител се използва интервал.
Връзка за сваляне:
[download id=“1074″]
Визуализация на създадена повърхнина с триъгълници и върхове:
Повече за програмата: TIN
Създаване на TIN с MapWinGIS
Примерен код на VB.NET за създаване на TIN* модел с MapWinGIS
* TIN – Triangular Irregular Network, Нерегулярна мрежа от триъгълници
Dim utils As New Utils()
Dim tin As New Tin()
tin.CreateTinFromPoints(points.ToArray())
Dim shapefile As New Shapefile()
shapefile = utils.TinToShapefile(tin, ShpfileType.SHP_POLYGON)


