Таблица чертежного шрифта: Карта сайта

Как оформить текст таблицы на чертеже.

Робин Ганди

Как форматировать текст таблицы на чертеже.

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 9 0005

Робин Ганди

RE: Как оформить текст таблицы на чертеже.

13 ноября 2006 г., 01:16 (в ответ Робину Ганди)

Привет, POVL

Спасибо за ответ. Предложенное вами решение работает нормально. для установки размера шрифта и имени шрифта, но я все еще не могу установить свойство оправдания.

Я пытался использовать DrwText.Justification = catCenter но это не работает.

Вы знаете, как установить выравнивание текста?

Спасибо

Робин

 

Робин Ганди

RE: Как форматировать текст таблицы на чертеже.

13 ноября 2006 г., 01:31 (в ответ Робину Ганди)

Привет, Povl,

Я могу установить выравнивание, используя этот код

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 «File XLS NotFound !» & vbCrLf & MyXLSFile
Exit Sub
End If 90 005

Комплект CATIA = GetObject(, “CATIA.Application”)
Set MyDraw = CATIA.ActiveDocument
Set MySheet = MyDraw.Sheets.ActiveSheet
For i = 1 To MySheet.Views.Count
Set 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.Приложение “)
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))
Else
При ошибке Возобновить Далее
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)

 

‘ установить размер шрифта для весь текст до 5

oCell.SetFontSize 1, 0, 5

Chris Holtorf

RE: Как отформатировать текст таблицы на чертеже.

7 октября 2011 г. 07:09ВЕЧЕРА (в ответ Робину Ганди)

У меня есть программа, которая связывает текст в таблице с параметрами в CATPart. Мне было интересно, как вы устанавливаете число десятичных знаков места в текстовом поле?

КрисХ

Маленький Ктулху

RE: Как форматировать текст таблицы на чертеже.

9 октября 2011 г., 14:38 (в ответ Крису Холторфу)

В ответ Крису Холторфу:

У меня есть программа, которая связывает текст в таблице с параметрами в CATPart. Мне было интересно, как вы устанавливаете число десятичных знаков места в текстовом поле?

КрисХ

Вы имеете в виду элемент управления TextBox, доступный в пользовательской форме CATVBA?

Установка типа и размера шрифта в таблице чертежей

  

Здравствуйте, я могу решить таким образом Я надеюсь, ты можешь быть помощи

 

‘————————————————–
    ‘ CREAZIONE TABELLA IN PART DOCUMENT
    ‘————————————————
   
    ‘ Получить представление коллекция таблиц

    Dim oDrwTables As DrawingTables
    Set oDrwTables = vwActiveView. Tables
   
    Dim ix As Integer
    Dim nome_tabella As String 9003 7     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 ла аннулло
    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.Item(ix)
x_pos_tabella = oDrwTable.X
y_pos_tabella = oDrwTable.Y
oDrwTables.Remove (ix)
        End If
    Next ix
    
   ‘ Creo la tabella con le запоминание координат
    Установить 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
   
    ‘сделать имя для таблицы
    oDrwTable. Name = “Tabella distinta” & myPart.Name

    ‘ cambio i font della tabella
    Dimcella As Variant
    Dim xrow As Integer ‘ riga
    Dim xcolum As Integer ‘ столбец
   
    Для xrow = от 1 до 7
    Для xcolum = от 1 до 2
oDrwTable.SetCellAlignment xrow, xcolum, CatTableMiddleCenter
        Setcella = 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
.