Установка типа и размера шрифта в таблице чертежей
Здравствуйте, я могу решить таким образом Я надеюсь, ты можешь быть
‘————————————————–
‘ CREAZIONE TABELLA IN PART DOCUMENT
‘————————————————-
‘ Получить коллекцию таблиц представления
Dim oDrwTables As DrawingTables
Set oDrwTables = vwActiveView.Tables
Dim ix As Integer
Dim nome_tabella As String
Dim oDrwTable As DrawingTable
‘se nella vista c’e almeno una tabella
allora
‘passo in rassegna tutte le tabelle della
Vista
‘se la tabella esiste memorizzo le координата e
la cancello
For ix = 1 To oDrwTables.Count
nome_tabella =
oDrwTables.Item(ix).Name
Если nome_tabella =
“Tabella distinta” и myPart.Name Then
Dim x_pos_tabella как целое число
Dim y_pos_tabella как целое число
Установить oDrwTable = oDrwTables.
x_pos_tabella = oDrwTable.X
y_pos_tabella = oDrwTable.Y
oDrwTables.Remove (ix)
End If
Next ix
‘ Создать таблицу с запоминанием координат
Set oDrwTable = oDrwTables.Add(x_pos_tabella, y_pos_tabella, 7, 2, 6, 23)
oDrwTable.ComputeMode = CatTableComputeOFF
oDrwTable.SetColumnSize 1, 16 ‘длина 1 колонна
oDrwTable.SetColumnSize 2, 55 ‘длина 2 колонна
‘compilo l’intestazione della tabella sono campi fissi
oDrwTable.SetCellString 1, 1, “Pos.”
oDrwTable.SetCellString 2, 1, “Nome”
oDrwTable.SetCellString 3, 1, “Q.t”
oDrwTable.SetCellString 4, 1, “Dim”.
oDrwTable.SetCellString 5, 1, “Mat.”
oDrwTable.SetCellString 6, 1, “Примечание” направить в файл excel
oDrwTable.SetCellString 7, 1, Excel.Cells(6, 1)
‘compilo la tabella con i dati recuperati dal файл excel
oDrwTable.SetCellString 1, 2, “” & Str_Posizione_distinta
oDrwTable.
SetCellString 2, 2, “” &
Str_Denominazione oDrwTable.SetCellString 3, 2, “” & Str_Quantit
oDrwTable.SetCellString 4, 2, “” & Str_Misure_finite
oDrwTable.SetCellString 5, 2, “” & Str_Materiale
oDrwTable.SetCellString 6, 2, “” & Str_Trattamento_termico
oDrwTable.SetCellString 7, 2, “” & Str_Codice
‘сделать имя alla tabella
oDrwTable.Name = “Tabella distinta” & mypart.name
‘Cambio I Font della tabella
Dim cella в качестве варианта
Dim xrow как целое число’ Riga
Dim xcolum как целое число ‘Colonna
для XROW = от 1 до 7
для Xcolum = от 1 до 2
oDrwTable.SetCellAlignment xrow, xcolum, CatTableMiddleCenter
Set cella =
oDrwTable.GetCellObject(xrow, xcolum)
.SetFontSize 0, 0, 2
.SetFontName 0, 0, “SSS4”
.SetParameterOnSubString catBold, 0, 0, 0
.SetParameterOnSubString catCharRatio, 0, 0, 100
.SetParameterOnSubString catColor, 0, 0, 20
End With
Next xcolum
Next xrow
Set cella =
oDrwTable.
GetCellObject(1, 2)
С целлой
.SetFontSize 0, 0, 6
.SetFontName 0, 0, “Век Готик”
.SetParameterOnSubString catBold, 1, 0, 0
.SetParameterOnSubString catCharRatio, 0, 0, 100
End With
Как отформатировать текст таблицы на чертеже.
Робин Ганди
Как форматировать текст таблицы на чертеже.
11 ноября 2006 г., 05:53Привет всем,
Я создал таблицу на чертеже с помощью макроса, который
извлеките данные из файла excel и поместите их в таблицу. Сейчас
я хочу отформатировать эти данные (присутствующие в таблице), например
шрифт, выравнивание и т.
д. но не может этого сделать.
Может ли кто-нибудь помочь в этом случае.
С уважением,
Робин
povl petersen
RE: Как отформатировать текст таблицы на чертеже.
12 ноября 2006 г., 10:38 (в ответ Робину Ганди)
Это должно вам помочь:
Dim DrwText As DrawingText
Set DrwText = myTable.GetCellObject(iRow, iCol)
DrwText .SetFontName 0, 0, “Courrier 10 BT”
DrwText .AnchorPosition = TopLeft
Povl
3
RE: Как оформить текст таблицы на чертеже.
13 ноября 2006 г., 01:16 (в ответ Робину Ганди)
Привет, POVL
Спасибо за ответ. Предложенное вами решение работает нормально. для установки размера шрифта и имени шрифта, но я все еще не могу установить свойство оправдания.
Я пытался использовать DrwText.Justification = catCenter но это не работает.
Вы знаете, как установить выравнивание текста?
Спасибо
Робин
Робин Ганди
RE: Как форматировать текст таблицы на чертеже.
13 ноября 2006 г.
, 01:31
(в ответ Робину Ганди)
Привет, Повл,
Я могу установить выравнивание, используя этот код
DrwText.SetParameterOnSubString catAlignment, 0, 0, catCenter
Спасибо за помощь
Robin
Администратор COE
RE: Как отформатировать текст таблицы на чертеже.
17 апреля 2008 г., 07:14 (в ответ Робину Ганди)
Я знаю, что эта тема действительно старая, но может ли кто-нибудь помочь мне, как
поместить текст из текстового файла в чертежную таблицу с помощью макроса??? я
даже не знаю, с чего начать заполнение таблицы, я могу установить
в порядке и установите строки и столбцы на правильное количество
объекты, которые у меня есть в моем текстовом файле (столбцы разделены вкладками), но я
не знаю, как передать эти значения в таблицу.
есть идеи?
спасибо за вашу помощь
привет,
Луис
Xavier Klein
RE: Как форматировать текст таблицы на чертеже.
17 апреля 2008 г., 09:02 (в ответ Робину Ганди)
Привет,
Вот очень простая программа, которую я использую для заполнения таблицы CATIA из
файл XLS
— в этом образце я не управляю количеством столбцов и строк
(предположим, 50 x 50)
– прочитать значение из ячейки в XLS, установить такое же значение в CATIA
Таблица
Sub RemplirTableauDepuisFichierXLS(MyXLSFile As String, MyTableName As String)
Dim i As Integer
Dim j As Integer
Dim MyDraw As DrawingDocument
Dim MySheet As DrawingSheet
Dim MyView As DrawingView
Dim MyTable As DrawingTable
Dim Indice As String
If Not (Fso.
FileExists(MyXLSFile)) Then
MsgBox «Файл XLS NotFound !» & vbCrLf & MyXLSFile
Exit Sub
End If
Установить MyDraw = CATIA.ActiveDocument
Установить MySheet = MyDraw.Sheets.ActiveSheet
Для i = 1 To MySheet.Views.Count
Установить MyView = MySheet.Views.Item(i)
Если MyView.Tables.Count = 0, то перейти к следующему представлению
Для j = 1 To MyView.Tables.Count
Установить MyTable = MyView.Tables.Item(j)
Если UCase(MyTable.Name) = UCase(MyTableName), то перейти TableFound
Next j
NextView:
Next i
MsgBox “Table ” & MyTableName & ” not found in ” & MyDraw.Name
Exit Sub
TableFound:
Utilitaires.XLDejaLance
Set XL = GetObject(, “Excel.Ap “)
XL.Workbooks.Open (MyXLSFile)
Debug.Print “debut remplissage” & MyTableName & ” ” & Now
Для i = от 1 до 50
Для j = от 1 до 50
If Trim(XL.ActiveSheet.Cells(i, j).Value) “” Then
MyTable.
SetCellString i, j, CStr(Trim(XL.ActiveSheet. Клетки (я,
j).Value))
При ошибке Возобновить Далее
MyTable.SetCellString i, j, ” ”
При ошибке Перейти к 0
End If
Далее j
Далее i
Debug.Print “fin remplissage” & MyTableName & ” ” & Now
End Sub
Администратор КОЕ
RE: Как отформатировать текст таблицы на чертеже.
17 апреля 2008 г., 12:36 (в ответ Робину Ганди)
аааа, но дело в том, что вы используете Excel, это моя проблема… Мы не
здесь на рабочих станциях установлен excel, поэтому я должен пройти мимо
обычные текстовые файлы.
..
на данный момент, я создаю массивы, чтобы я мог вводить числа
напрямую, но было бы лучше, если бы я мог сбросить их из txt-файла
напрямую…
Charles Haase
RE: Как форматировать текст таблицы на чертеже.
17 апреля 2008 г., 12:47 (в ответ Робину Ганди)
Jarabito,
Чтобы прочитать текстовый файл, я использовал FileSystemObject. Что-то вроде это:
Set oFileSys = CreateObject(“Scripting.FileSystemObject”)
Set oFileReference = oFileSys.opentextfile(“C:\Temp\thefile.txt”,
1, False)
strTemp = oFileReference.
readline
…. занимайтесь своими делами
oFileReference.close
Вам придется разобрать строку, которую strTemp выбирает, используя функции типа Trim, InStr, InStrRev и т.д. но может и этого хватит чтобы вы начали.
-СН
Администратор КОЕ
RE: Как отформатировать текст таблицы на чертеже.
18 апреля 2008 г., 11:20 (в ответ Робину Ганди)
круто, спасибо Haasebert, попробую включить это в свой код… Я расскажу как это происходит…
Ашок Кумар С.В.
RE: Как форматировать текст таблицы на чертеже.
3 октября 2011 г.
, 08:12
(в ответ администратору СЕ)
как изменить размер шрифта чертежной таблицы?
Маленький Ктулху
RE: Как форматировать текст таблицы на чертеже.
3 октября 2011 г., 08:24 (в ответ на Ашок Кумар С.В.)
Привет.
Попробуйте:
‘Получить текст чертежа внутри (1; 1) ячейка
DIM OCELL AS THASTEXTEXT
SET OCELL = MYTABLE.
GETCELLOBJECT (1,1)
весь текст до 5
oCell.SetFontSize 1, 0, 5
Крис Холторф
RE: Как отформатировать текст таблицы на чертеже.
7 октября 2011 г. 07:09ВЕЧЕРА (в ответ Робину Ганди)
У меня есть программа, которая связывает текст в таблице с параметрами в CATPart. Мне было интересно, как вы устанавливаете число десятичных знаков места в текстовом поле?
КрисХ
Маленький Ктулху
RE: Как форматировать текст таблицы на чертеже.
9 октября 2011 г.