[dextron3]

Внимание вот файл с точками призраками

Кто сможет разгадать появления такого загадочного явления?

Что можно сделать с точками призраками?

Как избежать появления точек призраков?

Когда крутишь колесико они то исчезают то появляются...

Может это остатки проектов от наших предков
[ATTACH]1173525978.rar[/ATTACH]

[dextron3]

Вот скриншот[ATTACH]1173526267.jpg[/ATTACH]

:!: :!: :!:

[asys]

это текст с пустым содержимым, причем их там 13 штук
[ATTACH]1173526828.gif[/ATTACH]

[Огурец]

Уважаемый dextron3!

Бороться просто, через Quick Select выбирайте и стирайте вон.

Появляются от неаккуратности при редактировании текста.

[den001]

Я для борьбы с такими явлениями написал маленькую макросинку на VBA. Легким движением руки точки-призраки отправляются в небытие.

Код:

[Выделить все]

Sub DelEmptyText()
Dim Entry As AcadEntity, tobj As AcadText, mtobj As AcadMText
For Each Entry In ThisDrawing.ModelSpace
    If Entry.ObjectName = "AcDbText" Or Entry.ObjectName = "AcDbMText" Then
        Symb = False
        For ch = 1 To Len(Entry.TextString)
            If Mid(Entry.TextString, ch, 1) <> " " Then Symb = True: Exit For
        Next
        If Not Symb Then Entry.Delete: n = n + 1
    End If
Next
If IsEmpty(n) Then n = 0
MsgBox "Удалено " & n & " объектов"
End Sub

[ATTACH]1173531389.dwg[/ATTACH]

[dextron3]

СПАСИБО ТОЧКИ ИСЧЕЗЛИ

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

> den001: Ни на секунду не умаляя достоинств кода, хочу задать каверзный вопрос: А если в многострочном тексте установлено форматирование, но "внутри" - пустота? Или сколько-то пробелов?

[den001]

Крыс
Таких чудес просто ни разу не попадалось. Зачем себе жизнь без надобности усложнять? Да и это не беда, MTextClean в арсенале есть (очищает MText от форматирования).

[alex_AW]

А я для удаления текста без содержания пользуюсь совершенно тупым способом. Не скажу, что он лучше, чем описанные выше, просто мне он нравится своей простотой:
1) Ctrl+A;
2) Shift+выбор рамкой всего, что на чертеже
3) Delete
PS. Таким способом можно случайно удалить приаттаченные растры (или еще что-нибудь) - так что соблюдайте бдительность.

[Yura]

А кто-нибудь видел неизвестно откуда появляющийся мусор, ничего общего с текстом не имеющий, исчезаюющий и то и дело появляющийся при вращении колеса?
Если да, то как бороться?

[Хмурый]

Сообщение от Yura А кто-нибудь видел неизвестно откуда появляющийся мусор, ничего общего с текстом не имеющий, исчезаюющий и то и дело появляющийся при вращении колеса? Если да, то как бороться?

Версия AutoCAD'а?

[Yura]

Бывает и на 2006en и на 2007en

[Хмурый]

Сообщение от Yura Бывает и на 2006en и на 2007en

подобный "мусор" наблюдаю только в 2007-ом. Грешу на железо. P4 2.4 Ггц. RAM=512М . Video=128M. Для 2007-го слабовато...

[G.A.W.]

Сообщение от den001 Я для борьбы с такими явлениями написал маленькую макросинку на VBA. Легким движением руки точки-призраки отправляются в небытие. Код: [Выделить все] Sub DelEmptyText() Dim Entry As AcadEntity, tobj As AcadText, mtobj As AcadMText For Each Entry In ThisDrawing.ModelSpace If Entry.ObjectName = "AcDbText" Or Entry.ObjectName = "AcDbMText" Then Symb = False For ch = 1 To Len(Entry.TextString) If Mid(Entry.TextString, ch, 1) <> " " Then Symb = True: Exit For Next If Not Symb Then Entry.Delete: n = n + 1 End If Next If IsEmpty(n) Then n = 0 MsgBox "Удалено " & n & " объектов" End Sub [ATTACH]1173531389.dwg[/ATTACH]

Здраствуйте!!!
А можно ли объяснить доходчиво неразумному как этим воспользоваться? Только не ругайтесь, так уж случилось, что я в этом не силен!

[G.A.W.]

Ну чесн слово, ну подскажите, а-а-а-а!!!

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

Внутри собственно видеопоследовательность. Для проигрывания может потребоваться кодек
[ATTACH]1175517711.rar[/ATTACH]

[G.A.W.]

Сообщение от Кулик Алексей aka kpblc ...Для проигрывания может потребоваться кодек

Извините уважаемый Кулик Алексей aka kpblc, но по этой ссылке получаю вот такую вот картину

Forbidden You don't have permission to access /kpblc/files/tscc.exe on this server. Apache Server at files.myopera.com Port 80

Это что значит???

[den001]

Загрузите прилагаемый dvb-файл, потом Alt + F8 -> DelEmptyText -> Выполнить (Run)
[ATTACH]1175664857.rar[/ATTACH]

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

Вот блин. Блог чего-то хамит. Попробуйте http://my.opera.com/kpblc/blog/c - там ссылка указана.
Боюсь, что здесь выкладывать в Download этот кодек бесполезно - он слишком быстро будет похоронен под более важными вещами.

[G.A.W.]

Всем большое спасибо, все получилось!!!
Теперь я более менее понял как обращаться с VBA.