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.



  • Сообщения

    • karachun
      @jumper99 Ну вроде считается, контакт есть. Я так понимаю дальше надо прикладывать давление и pressure penetration. Только то что Вы взяли материал линейным это достаточно грубое приближение. Лучше используйте какую-то из моделей для гиперэластиков. https://www.academia.edu/32416590/Analyzing_Hyperelastic_Materials https://en.wikipedia.org/wiki/Hyperelastic_material Вот в этой теме есть примеры с резиной. http://cccp3d.ru/topic/86970-решение-контактной-задачи-с-fluid-pressure-penetration-в-воркбенче/
    • xedex
      ну, ну.   Зачем обходить, если оборудование идёт с лицензионным ПО?
    • Max999
      Периодическое Ctrl+S (доведенное до автоматизма) спасает Отца Русской Демократии.
    • jumper99
      Я нарисовал край клапана и поверхность очень упрощенно так как я вообще этим модулем ни разу толком не пользовался, еще б научиться правильно формулировать задачи
    • Мастеровой
      Ну всё -таки это форум , поэтому не будем так категоричны . " Имею ли я право , или ......".  Я же тоже с первым вопросом на форум в эту ветку выходил . Правда документацию русскоязычную на систему и все предыдущие страницы ветки форума перечитав. И чуть с более инженерной фразеологией и лексикой . Но чуть не в тему  : " Штирлиц был очень гуманным человеком .В кабачке " Элефант" все били парагвайского шпиона пивными кружками по голове , а Штирлиц - только сапогом в печень..."
    • piden
      А в самом расчете нет названий деталей или других элементов с буквами не из английского алфавита? Можете .inp файл сюда выложить? Заархивируйте предварительно.
    • Di-mann
      Не, он только с водкой ходит. Не уверен что это хуже. 
    • Мацак
      Да нет, все на англ 
    • nomed
      да ни как не сделаешь , они накатываются . При нарезании резьбы не получится сделать острый край, его заломит . если резьба длинная то будет вибрация, если шайба мелкая то еще и проблемы с установкой будут.  а на пробу это взять какой нибудь резец канавочный  переточить под нужный профиль и резать по G32 
    • AlexKaz
      Все версии, да поговорить с теми кто в теме.