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

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как создать словарь проверки орфографии для AutoCAD

Как создать словарь проверки орфографии для AutoCAD

Ответ
Поиск в этой теме
Непрочитано 24.02.2005, 13:29 #1
Как создать словарь проверки орфографии для AutoCAD
Игорь
 
безработный
 
Ровно, Ukraine
Регистрация: 14.09.2003
Сообщений: 25

Собственно сабж.
Конкретно интересует спецификация самого формата .dat, какими программами можно сотворить файл.
Просмотров: 8218
 
Непрочитано 24.02.2005, 15:19
#2
AY

webcad.pro
 
Регистрация: 06.01.2005
Московская обл.
Сообщений: 501


Могу подсказать, что где-то на http://www.autocad.ru/ я скачивал русский словарь проверки орфографии, но по формату файла ничего сказать не могу.
AY вне форума  
 
Непрочитано 25.02.2005, 08:55
#3
Perezz!!
Moderator

архитектор
 
Регистрация: 21.08.2003
Москва
Сообщений: 3,587


Цитата:
Как создать словарь проверки орфографии для AutoCAD
Какую проблему решит этот словарь?
Perezz!! вне форума  
 
Непрочитано 25.02.2005, 09:07
#4
Star

Конструктор штампов
 
Регистрация: 10.03.2004
г. Киев
Сообщений: 92


Наверно человек хочет проверять укр. текст
Star вне форума  
 
Непрочитано 25.02.2005, 12:26
#5
kserg


 
Регистрация: 22.04.2004
Сообщений: 269


Пользовательский словарь проверки орфографии для AutoCAD :

C:\AutoCAD....\Support\sample.cus

Это обычный текстовый файл, который можно редактировать (создать)
блокнотом (Notepad).

Содержимое файла sample.cus из комплекта AutoCAD :

ACAD
ACIS
AutoCAD
AutoCDM
Autodesk
AutoEDM
AutoFlix
AutoLathe
AutoLISP
AutoShade
AutoSketch
AutoSolid
AutoSurf
AutoVision
kserg вне форума  
 
Непрочитано 25.02.2005, 15:16
#6
shnn

Инженер
 
Регистрация: 18.02.2005
Самара
Сообщений: 747


словарь?? это тот которым пользуется ком-да SPELL??
у меня есть, могу скинуть на мыло
shnn вне форума  
 
Непрочитано 25.02.2005, 18:15
#7
Коробейников Алексей

инженер-конструктор
 
Регистрация: 03.11.2004
Москва
Сообщений: 23


Предлагаю модуль проверки орфографии в VBA:
(проверку осуществляем ВОРДОМ)
Примечание: МТекст нужно проверять с умом, не калеча форматирования


Код:
[Выделить все]
Public Sub ПроверкаОрфографии()
Dim xlApp As Object
Dim Выбор As Object
Dim ТочкаТыка As Variant
Dim Строка As String
    
Dim ТипФильтра(0 To 3) As Integer
Dim ДанныеФильтра(0 To 3) As Variant
ТипФильтра(0) = -4
ТипФильтра(1) = 0
ТипФильтра(2) = 0
ТипФильтра(3) = -4
ДанныеФильтра(0) = "<or"
ДанныеФильтра(1) = "text"
ДанныеФильтра(2) = "MTEXT"
ДанныеФильтра(3) = "or>"
On Error GoTo Конец
    Set xlApp = CreateObject("word.application")
    xlApp.Documents.Add
For Each Выбор In ВыборНаЭкране(ТипФильтра, ДанныеФильтра)
    xlApp.Selection.WholeStory
    xlApp.Selection.Delete
    Строка = Выбор.textString
    xlApp.Selection.TypeText Строка
    xlApp.WindowState = 2
    xlApp.Visible = True
    xlApp.Activate
    xlApp.ActiveDocument.CheckGrammar
    ThisDrawing.Activate
    xlApp.Selection.WholeStory
    Выбор.textString = Left(xlApp.Selection.Text, Len(xlApp.Selection.Text) - 1)
Next Выбор
    xlApp.Quit 0
    Set xlApp = Nothing
    MsgBox "Проверка выполнена"
Конец:
End Sub
Принимаю предложения.
Удачи.
Коробейников Алексей вне форума  
 
Непрочитано 28.02.2005, 09:01
#8
Коробейников Алексей

инженер-конструктор
 
Регистрация: 03.11.2004
Москва
Сообщений: 23


Странно что не кто не поправил!!??
Процедуры "ВыборНаЭкране" нехватает

Код:
[Выделить все]
Public Function ВыборВсего(Optional ТипФильтра As Variant, Optional ДанныеФильтра As Variant) As AcadSelectionSet
Dim НаборОбъектов As AcadSelectionSet
Dim КолкцияНаборовОбъектов As AcadSelectionSets

Set КолкцияНаборовОбъектов = ThisDrawing.SelectionSets
For Each НаборОбъектов In КолкцияНаборовОбъектов
  If НаборОбъектов.Name = "НАБОР" Then
    НаборОбъектов.Delete
    Exit For
  End If
Next НаборОбъектов
Set НаборОбъектов = ThisDrawing.SelectionSets.Add("НАБОР")
НаборОбъектов.Select acSelectionSetAll, , , ТипФильтра, ДанныеФильтра
Set ВыборВсего = НаборОбъектов
End Function

Public Function ВыборНаЭкране(Optional ТипФильтра As Variant, Optional ДанныеФильтра As Variant) As AcadSelectionSet
Dim НаборОбъектов As AcadSelectionSet
Dim КолкцияНаборовОбъектов As AcadSelectionSets

Set КолкцияНаборовОбъектов = ThisDrawing.SelectionSets
For Each НаборОбъектов In КолкцияНаборовОбъектов
  If НаборОбъектов.Name = "НАБОР" Then
    НаборОбъектов.Delete
    Exit For
  End If
Next НаборОбъектов
Set НаборОбъектов = ThisDrawing.SelectionSets.Add("НАБОР")
НаборОбъектов.SelectOnScreen ТипФильтра, ДанныеФильтра
Set ВыборНаЭкране = НаборОбъектов
End Function
Коробейников Алексей вне форума  
 
Непрочитано 28.02.2005, 17:03
#9
Коробейников Алексей

инженер-конструктор
 
Регистрация: 03.11.2004
Москва
Сообщений: 23


Кому нибудь хорошо стало???
Коробейников Алексей вне форума  
 
Непрочитано 23.05.2005, 12:07 Нужен словарь
#10
Gagarin


 
Регистрация: 23.05.2005
Сообщений: 1
<phrase 1=


У кого есть стловарь ru.cus или ru.dct, прошу, вышлите! Буду очень благодарен! :!:
[email protected]
Gagarin вне форума  
 
Непрочитано 14.04.2006, 12:01
#11
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Понимаю, что давно дело было, но как запустить два вышеприведенных кода?
Кочетков Андрей вне форума  
 
Непрочитано 03.11.2007, 18:14
#12
JaMP!s


 
Регистрация: 22.10.2007
Сообщений: 122


А что, большен никого не волнует тема орфографии в Акадах? Просто возникает вопрос не столько проверки орфокрафии, сколько очепяток в мультитексте, а каждый раз копировать в буфер и проверять в Ворде не логично(
Может есть у кого дополнительные модули? Или все же может кто-то смог реализовать предыдущий код в ВБА для проверки через ВОРД?
JaMP!s вне форума  
 
Непрочитано 27.02.2008, 14:16
#13
Hans667

сети
 
Регистрация: 12.04.2007
SPb
Сообщений: 536
Отправить сообщение для Hans667 с помощью AIM Отправить сообщение для Hans667 с помощью Skype™


В самоучителе акад2006 под авторством Варакина есть фраза: "не возбраняется заимствовать той же структуры из других приложений.Например Сustom.dic из MS WORD".Только надо заменить расширение на .cus.Я честно говоря не нашел,т.к. там именно то записывается что ворд предлагает "добавить в словарь".А чтобы весь лексикон я не нашел.давно этим интересовался,но забросил,может кто знает?
__________________
Errare humanum est, insipientis perseverare
Hans667 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как создать словарь проверки орфографии для AutoCAD

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

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