Leon

Технические требования

50 posts in this topic

sav

Так вначале так и было. И обратно в солид значки передаются именно в таком виде. Но в самом редакторе мне хотелось чтобы значки выглядили как положено, а не в виде полей. Для градуса и значка плюс\минус в обычной кодировке из 256 символов значки имеются. А для диаметра его нет. А работать с текстом в юникоде у меня не получилось. Если текстовый файл в котором хранятся ТТ сделать юникодовским, то в программе в выпадающих списках оказываются закорючки. Попытаюсь еще, может быть и получится. Хотел еще профили сделать, чтобы часто используемые наборы ТТ сразу вставлять. Не знаю только когда время будет.

Share this post


Link to post
Share on other sites


:smile: TO: Leon

Не знаю поможет тебе это или нет, но уменя была проблема с передачей текста из формы программы в свойства файла SW(так же появлялись крякозябры), для исправления ситуации написал следующий код на VB, после этого все стало нормально.

Private Function Conv2Ascii(Strok As String)

			Dim i As Integer

			For i = 1 To Len(Strok)

			If Asc(Mid(Strok, i, 1)) = 10 Or Asc(Mid(Strok, i, 1)) = 13 Then

				Conv2Ascii = Conv2Ascii & Mid(TextBox1.text, i, 1)

			ElseIf Asc(Mid(Strok, i, 1)) >= 128 And Asc(Mid(Strok, i, 1)) <= 255 Then

				Conv2Ascii = Conv2Ascii & Mid(Strok, i, 1)

			Else

				Conv2Ascii = Conv2Ascii & Chr(AscW(Mid(Strok, i, 1)))

			End If

			Next i

End Function

Share this post


Link to post
Share on other sites

Спасибо, Kelny, но чего-то не помогло. У меня правда ситуация немного другая. У меня исходный текстовый файл в формате Unicode. Когда текст из него считывается в программу то мне его не отобразить в нормальном виде. Читаются только латинские буквы. Значок диаметра заменяется буквой Ш. Русский текст выглядит примерно так "07<5@K 4;O A?@02>:."

Может надо какую библиотеку подгрузить? :g:

Share this post


Link to post
Share on other sites

Можно MSDN посмотреть <noindex>http://msdn.microsoft.com/library/rus/defa...gclasstopic.asp</noindex>

Ну и к слову по поводу того что некоторые тех требования могут быть растянуты на несколько строк, вот интересный макрос который задает ширину примечания и если все записано в одну строчку автоматом переносится на новую строчку не сбивая стандартную нумерацию SW, ну собственно: <noindex>Изменение ширины примечания.swp</noindex>, но и твой вариант Leon мне тоже понравился.

Share this post


Link to post
Share on other sites

MSDN у меня есть на диске. Я тут интернет перерыл, и про библиотеку fm20 прочитал и про кодировки еще раз, и так и сяк пытался, и реестр ковырял, но что-то все не то. Правда обрывки русского текста мне все же удалось вытащить, но только обрывки. Что-то я не так делаю или редактор у меня кривой или руки.

Если кому не в тягость, попробуйте создать файл с расширением txt в кодировке юникод с русским текстом, а затем считать его программой и строки вывести в combobox :surrender::surrender::surrender:

Share this post


Link to post
Share on other sites

To: Leon

Сохранял в формате unicod через WordPad, вот накидал маленько посмотри

Private Sub Form_Load()



'==================================================================

'Этот способ не читает Unicod

'==================================================================

Source = "G:\Unicod\info.txt"

  Open Source For Input As #1			   ' Open source file.

  Do While Not EOF(1)					   ' Loop until end of file.

	Line Input #1, Reader

ComboBox1.AddItem Reader

Loop

Close #1

'==================================================================



'==================================================================

'Этот способ читает Unicod, ну собственно ссылка код ниже :), из хелпа примерчик OpenAsTextStream Method.

'==================================================================

TextStreamTest

'==================================================================



End Sub



Sub TextStreamTest()

	Const ForReading = 1, ForWriting = 2, ForAppending = 3

	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

	Dim fs As Scripting.FileSystemObject, f, ts, s

	Set fs = CreateObject("Scripting.FileSystemObject")

	'fs.CreateTextFile "G:\Unicod\info.txt"		   'Create a file

	Set f = fs.GetFile("G:\Unicod\info.txt")

	'Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

	'ts.Write "Hello World"

	'ts.Close

	Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

	While ts.AtEndOfStream = False

	s = ts.ReadLine

	ComboBox1.AddItem s

	'MsgBox s

	Wend

	ts.Close

End Sub

Ну и конечно знак диаметра попробовал вставить работает в комбобоксе как знак диаметра :)

Тоже самое, но уже файлы:

А исходники ТТ3 можешь выложить? :smile:

Ну или прислать?

Share this post


Link to post
Share on other sites

Спасибо Kelny. Очень меня выручаешь. Я вечером посмотрю дома. Вот исходники TT3.

TT3__________.rar

Share this post


Link to post
Share on other sites

Обращайся чем смогу помогу. Тока в архив не положил тот код, что в форуме написал :blink: , собрал архив до того как сохранился щас вроде поправил :smile: .

Share this post


Link to post
Share on other sites

Спасибо! Возможно посмотреть исходники последней версии?

Share this post


Link to post
Share on other sites
35 минут назад, iurii12345 сказал:

исходники последней версии?

13 лет назад было деле :)  Уже давно это все в отдельной теме макросы Леона.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.



  • Сообщения

    • 2bigHanz
      Просто задание в универе у нас такое: Сделать таблицу размеров и сделать там три экземпляра с разными размерами. И когда я всё сделал, то отверстия у меня "поплыли" (у меня тогда был массив). Первое отверстие осталось на месте, поменялись размеры. И мне сказали, что нужно просто начертить осевые линии и добавить взаимосвязь, чтоб как-то эти отверстия были привязаны к осевым линиям, и за счёт этого перемещались от экземпляра к экземпляру. Но сделать это у меня так и не получилось. И решил по новой сделать, и только усложнил себе задачу.
    • Бывший технолог
      Это все потому, что они теорию резания не знают!   А вот Турта знает, например, что такое iMachining?
    • fantom.ul
      Интересно, почему же в САМах присутствуют различные стратегии, в том числе и прогрессивные, выбор самого современного инструмента, а не ваши сферические резцы в вакууме? У них же нет Турты. Как обходятся?
    • Dron62_rus
    • David123
      Уважаемый @Dron62_rus ! Внимательно читайте послания. Успехов
    • Plumber
      Это КАК же надо себе замутить проблему  вместо четырёх дырок с фасками 
    • Бывший технолог
      Турта поедет в Англию с великой миссией - сделать из Оксфорда ПТУ.  
    • Dron62_rus
      Все, проблему решил, поставив кодовый переключатель в 3 режим. Теперь интересует реализация через MMC?
    • 2bigHanz
      Добрый вечер. Помогите сделать несколько вырезов по сечениям. Есть два массива эскизов для будущих отверстий. И инструментом "Вырез по сечениям" хочу эти 4 отверстия сделать. Но как бы я не пытался, говорит, что "самопересекающаяся геометрия"
    • Blurp
      @Сергей2014 Дык это ж старый знакомый перфоманс-тестер!