Кладовая: стандарты резьбы для CATIA V5

Материалы для руссификации и локализации. Чертежные стандарты, шрифты и т.д.

Кладовая: стандарты резьбы для CATIA V5

Сообщение ExtraRight » 17 окт 2007 17:42

Выкладываю стандарты резьбы.
За полную версию метрической резьбы особая благодарность уважаемому Gringo.
Вложения
CATIA_V5_резьба.rar
(24.27 КБ) Скачиваний: 1091
Аватара пользователя
ExtraRight
Forum Manager
 
Сообщения: 1570
Зарегистрирован: 11 сен 2007 18:50
Откуда: Нижний Новгород
Blog: View Blog (8)

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение ExtraRight » 25 ноя 2007 00:59

Эти xls файлы добавляете в папку reffiles\standard или в ту сетевую папку, которая в environment указана в переменной CATReffilesPAth. После этого увидите их в соответствующем списке
Аватара пользователя
ExtraRight
Forum Manager
 
Сообщения: 1570
Зарегистрирован: 11 сен 2007 18:50
Откуда: Нижний Новгород
Blog: View Blog (8)

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение MAX KZK » 04 окт 2010 06:40

Вариант стандартов метрической резьбы (выполнен с учетом действия авиационного стандарта-ограничителя). К достоинствам продукта, полагаю, можно отнести то, что резьбы с крупным и мелким шагом разнесены в отдельные таблицы, в табл. занесены наиболее употребимые (рекомендуемые) резьбы (во всяком случае для авиации), таблицы выполнены в txt формате и кроме того, при генерации размеров в черт. к обозн. резьбы автоматически добавляется префикс "М".

P.S. Разработка не моя, я просто разместил.
Вложения
MetricThread.rar
(813 байт) Скачиваний: 402
Внедряю PLM за еду.
Аватара пользователя
MAX KZK
Forum Manager
 
Сообщения: 1313
Зарегистрирован: 11 сен 2007 18:50
Откуда: Красноярск
Blog: View Blog (11)

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение [PTM] » 20 дек 2012 11:46

В последних релизах их запихнули в xml
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2062
Images: 26
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение [PTM] » 19 фев 2013 16:28

G_M_Full.xml
(127.7 КБ) Скачиваний: 317

кому интересно могу скинуть утилиту конвертации :crazy:
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2062
Images: 26
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение Artem » 13 мар 2015 19:16

кому интересно могу скинуть утилиту конвертации
Приветствую - буду признателен!
animae scrinium servitus
Аватара пользователя
Artem
Активный участник
Активный участник
 
Сообщения: 386
Зарегистрирован: 14 сен 2007 07:14

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение Trouyan » 15 мар 2015 16:40

[PTM] писал(а): кому интересно могу скинуть утилиту конвертации :crazy:


+1

Пол дня убил на этот xml формат так ничего и не нашел пока что =/
Trouyan
Новичок
Новичок
 
Сообщения: 35
Зарегистрирован: 27 янв 2011 17:22

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение Trouyan » 15 мар 2015 17:05

Решено так:
Tools(Сервис)->Utilities(Утилиты)->MigrateThreadStandarttoXML
Trouyan
Новичок
Новичок
 
Сообщения: 35
Зарегистрирован: 27 янв 2011 17:22

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение Artem » 16 мар 2015 10:17

Ага, спасибо, нашел - А еще скописпи..л:
Код: Выделить всё
Option Explicit
' ------------------------------------------------------------------------
' Catia Thread Standard migration for V5R22 and higher
' Migrate XLS thread standards used in V5 R21 and lower
'
' written for Janicki Industries of Sedro-Woolley WA. 98284
' by Steve Roemish ph. 360-814-1822, Feb. 2014
'-------------------------------------------------------------------------
Const FORREADING = 1, FORWRITING = 2, FORAPPENDING = 3

Sub Main()
Dim q As String, r As String, s As String
Dim StdNam As String
Dim objWorkbook As Workbook, objWorksheet As Worksheet
Dim MyResp, i As Integer
Dim FSO, f
Dim str1 As String, str2 As String, MyUOM As String
Dim ThdDia As String, ThdPch As String, NomDia As String, ThdDes As String
Dim MyRow, MyCell
' ===================================================================================
On Error Resume Next
'Capture common Chr items for easy reuse
q = Chr(34) 'quote character
r = vbNewLine 'return character
s = Chr(32) 'space character

StartAgain: 'Allow starting over return point
' StdNam = legancey thread standard name from excel
StdNam = InputBox("Paste .xls file path:", "Excel File Path") 'Get xls thread standdard from user input
If StdNam = "" Then 'test for empty input
MyResp = MsgBox("You did not enter anything, Do you want to try again?", vbYesNo, "Input Eroor")
If MyResp = vbYes Then GoTo StartAgain
If MyResp = vbNo Then Exit Sub
End If

Set objWorkbook = Excel.Application.Workbooks.Open(StdNam) 'open thread standard
If Err <> 0 Then 'test for error on open
MyResp = MsgBox("There was something wrong with your filepath." & _
r & "Would you like to try again?", vbYesNo, "Input Eroor")
If MyResp = vbYes Then GoTo StartAgain
If MyResp = vbNo Then Exit Sub
End If

MyUOM = InputBox("Inch or Metric?" & r & "Enter in OR mm", "Unit Of Measure") 'User Input for units of measure
If MyUOM = "in" Or MyUOM = "mm" Then 'test input
'do nothing
Else
MyResp = MsgBox("You didn't entee a valid Unit Of Measure" & _
r & "Would you like to try again?", vbYesNo, "Input Eroor")
If MyResp = vbYes Then GoTo StartAgain
If MyResp = vbNo Then Exit Sub
End If

StdNam = Replace(StdNam, ".xls", ".xml") 'replace .xls with .xml in file name
objWorkbook.Activate 'make thread standard the active workbook
Set objWorksheet = objWorkbook.Worksheets.Item(1) 'get the first worksheet
ThdDia = Replace(objWorksheet.Range("A2").Value, ",", ".") 'get thread diameter
ThdPch = Replace(objWorksheet.Range("B2").Value, ",", ".") 'get thread pitch
NomDia = Replace(objWorksheet.Range("C2").Value, ",", ".") 'get tap diameter
ThdDes = Replace(objWorksheet.Range("D2").Value, ",", ".") 'get thread description

' Creat XML file for Thread standards output
Set FSO = CreateObject("Scripting.FileSystemObject") 'set file system object
Set f = FSO.OpenTextFile(StdNam, FORWRITING, 8) 'create and open xml file for writing
StdNam = Right(StdNam, Len(StdNam) - InStrRev(StdNam, "\")) 'drop path for only file name to remain

' Let's collect a large amount of header text into one string variable just because
str1 = "<?xml version=" & q & "1.0" & q & " ?>" & r & _
"<std:node name=" & q & StdNam & q & " type=" & q & "Thread_standard" & q & _
" xmlns:std=" & q & "http://www.dsweb.com/std" & q & ">" & r & _
r & " <std:typedef name=" & q & "Standard" & q & ">" & r & _
" <std:floatval name=" & q & "ThreadDiameter" & q & " >" & ThdDia & "</std:floatval>" & r & _
" <std:floatval name=" & q & "Pitch" & q & " >" & ThdPch & "</std:floatval>" & r & _
" <std:floatval name=" & q & "NominalDiameter" & q & " >" & NomDia & "</std:floatval>" & r & _
" <std:strval name=" & q & "Description" & q & " >" & ThdDes & "</std:strval>" & r & _
" </std:typedef>" & r & r & _
" <std:node name=" & q & "Key" & q & ">" & r & _
" <std:strval name=" & q & "KeyDrafting" & q & " >THD</std:strval>" & r & _
" <std:strval name=" & q & "KeyDrafting" & q & " >DESC_IN_DRAFTING</std:strval>" & r & _
" </std:node>" & r & r & _
" <std:node name=" & q & "Unit" & q & ">" & r & _
" <std:strval name=" & q & "Unit" & q & " >" & MyUOM & "</std:strval>" & r & _
" </std:node>" & r & r & _
" <std:node name=" & q & "Values" & q & ">"
f.Write str1 & r 'Write header text in xml file

objWorksheet.Range("A1:A5000").Find("").Activate 'find the fist empty cell for our stop point
Set MyCell = objWorksheet.Application.ActiveCell 'Capture active cell object
MyRow = MyCell.Row - 1 'Get our last row number

For i = 2 To MyRow 'Start loop of xls file here
ThdDia = Replace(objWorksheet.Range("A" & i).Value, ",", ".") 'get thread diameter
ThdPch = Replace(objWorksheet.Range("B" & i).Value, ",", ".") 'get thread pitch
NomDia = Replace(objWorksheet.Range("C" & i).Value, ",", ".") 'get tap diameter
ThdDes = Replace(objWorksheet.Range("D" & i).Value, ",", ".") 'get thread description
str2 = _
" <std:typeval name=" & q & "Standard" & q & ">" & r & _
" <std:floatval name=" & q & "ThreadDiameter" & q & " >" & ThdDia & "</std:floatval>" & r & _
" <std:floatval name=" & q & "Pitch" & q & " >" & ThdPch & "</std:floatval>" & r & _
" <std:floatval name=" & q & "NominalDiameter" & q & " >" & NomDia & "</std:floatval>" & r & _
" <std:strval name=" & q & "Description" & q & " >" & ThdDes & "</std:strval>" & r & _
" </std:typeval>" & r 'compile xml syntax for string write
f.Write str2 & r 'write this standard
Next i 'loop for next standard
f.Write " </std:node>"
f.Close 'Close the XML file
objWorkbook.Close 'Close the excel file
End Sub
animae scrinium servitus
Аватара пользователя
Artem
Активный участник
Активный участник
 
Сообщения: 386
Зарегистрирован: 14 сен 2007 07:14

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение [PTM] » 23 апр 2015 13:19

надо было в личку пнуть. я в питоне писал. вечером гляну может чего и скину :)
Изображение
Аватара пользователя
[PTM]
Moderator
 
Сообщения: 2062
Images: 26
Зарегистрирован: 13 сен 2007 13:03
Откуда: Rzn
Blog: View Blog (15)

Re: Кладовая: стандарты резьбы для CATIA V5

Сообщение Stiky » 02 дек 2016 11:47

Добрый день!

Назрел следующий вопрос: "Можно ли дополнить каталог резьбы следующими параметрами: длина резьбы (Thread Depth) и длина отверстия (Hole Depth)?"

Фрагмент имеющегося каталога:

ThreadDiam. Pitch HoleDiam. M DESC_IN_DRAFTING
9 1,25 7,647 M9

Можно ли это сделать, и если можно как должны называться соответствующие параметры? То же касается "нижней части отверстия" (Flat / V-bottom).
Stiky
Новичок
Новичок
 
Сообщения: 8
Зарегистрирован: 06 июн 2010 22:22


Вернуться в Кладовая по локализации

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron