Pull to refresh
6
0
Владимир @BoxaShu

User

Send message
В голосовалке не хватает третьего варианта.
«Структурные блоки определяются Непарными элементами(If EndIF, For Next и т.п.)»
Дома не «штампуют» по одному и тому же проекту. У каждого дома свой проект.
Вы будете удивлены, но даже «Типовые» панельные дома имеют отдельные проекты и массу отличий в деталях, условиях строительства, условиях эксплуатации и т.д.
Вы правы. Ошибся.
мог и сам догадаться по конструкции
Dim Elem As Object

Dim подсвечен, as нет, что типично для VBS, но не для VBA
source lang=«vba», vba опять не указан в списках, но работает.

Sub DeleteEmptyObj()
    Dim Elem As Object
    Dim entry As AcadEntity
    Dim MyTxt As AcadText
    For Each Elem In ThisDrawing.ModelSpace
        If Elem.EntityName = "AcDbText" Then
            Set MyTxt = Elem
            Set entry = Elem
            If Trim(MyTxt.textString) = "" Then
                entry.Delete
                purge_a = purge_a + 1
            End If
        'End If
        ElseIf Elem.EntityName = "AcDbLine" Or Elem.EntityName = "AcDbPolyline" Then
            Set entry = Elem
            If entry.Length = 0 Then
                entry.Delete
                purge_a = purge_a + 1
            End If
        End If
    Next
End Sub
А дальше?
Получили температуру. При наличии множества датчиков, получили поля температур.
Как форточку то открыть, кондей включить, батарею отрегулировать?
Вы несомненно правы, однако:
1. Это код не потребовал времени на адаптацию и его написание заняло не более 5 минут
2. Код более универсален и при изменение условий поправить SQL проще.
3. Время выполнения скрипта в тексте выше, нельзя сравнивать со временем начальной статьи, хотя бы потому, что Singerofthefall работает в Excel, а я в AutoCAD. Приведенные мной значения показывают линейную зависимость времени от количества объектов, а статье Singerofthefall зависимость не линейная.
12 ...
7

Information

Rating
Does not participate
Location
Санкт-Петербург, Санкт-Петербург и область, Россия
Date of birth
Registered
Activity