Последние сообщения

Страницы: [1] 2 3 ... 10

AutoCAD .NET API / Re: Как получить элемент окна WPF в AutoCAD

« Последний ответ от Lemieux 13-08-2020, 18:53:54 »

Какая логика работы окон? Я, например, вызываю окно из AutoCAD, потом его скрываю и передаю управление в AutoCAD, делаю то, что мне нужно и передаю данные из чертежа в окно.
Вот примерно такая схема

Код - C# [Выбрать]

var window = Window.GetWindow(this);
window.Hide();
 
//Что-то делаю//
 
window.Show();

Я думаю, что можно последовательно получить экземпляры нужных окон и делать всё, что надо.

Inventor API / Re: Установка цвета для ComponentOccurrence

« Последний ответ от Vladislav 13-08-2020, 13:55:48 »

О, большое спасибо! Попробую.

AutoCAD .NET API / Re: Как получить элемент окна WPF в AutoCAD

« Последний ответ от Александр Ривилис 12-08-2020, 19:14:45 »

Павел55,
А вообще-то тебе случайно не до родительского WPF-окна нужно достучаться?

AutoCAD .NET API / Re: Как получить элемент окна WPF в AutoCAD

« Последний ответ от Александр Ривилис 12-08-2020, 19:10:57 »

Павел55,
Так как AutoCAD - это не чистый .NET код, то вполне возможно, что и null. Поэтому советую просто хранить указатели на WPF-окна и пользоваться ими по мере необходимости.

Inventor API / Re: Установка цвета для ComponentOccurrence

« Последний ответ от mikazakov 12-08-2020, 18:19:31 »

Цитата: Vladislav от 12-08-2020, 17:25:15

1) Сохранится ли новый цвет детали?

А почему нет.

Цитата: Vladislav от 12-08-2020, 17:25:15

2) Могу ли я использовать свой цвет (задавая комбинацию Red, Green, Blue)

Я повнимательнее посмотрел, похоже статья старая
вот пара рабочих кодов

Код - Visual Basic [Выбрать]

Public Sub CreateSimpleColorAppearance()
    Dim doc As PartDocument
    Set doc = ThisApplication.ActiveDocument
    
     
    ' Only document appearances can be edited, so that's what's created.
    ' This assumes a part or assembly document is active.
    Dim docAssets As Assets
    Set docAssets = doc.Assets
    
    ' Create a new appearance asset.
    Dim appearance As Asset
    Set appearance = docAssets.Add(kAssetTypeAppearance, "Generic", _
                                    "MyShinyRed", "My Shiny Red Color")
    
    Dim tobjs As TransientObjects
    Set tobjs = ThisApplication.TransientObjects
 
 
    Dim color As ColorAssetValue
    Set color = appearance.Item("generic_diffuse")
    color.Value = tobjs.CreateColor(255, 15, 15)
    
    Dim floatValue As FloatAssetValue
    Set floatValue = appearance.Item("generic_reflectivity_at_0deg")
    floatValue.Value = 0.5
    
    Set floatValue = appearance.Item("generic_reflectivity_at_90deg")
    floatValue.Value = 0.5
 
    
      Dim oAsset As Asset
     Set oAsset = doc.AppearanceAssets("My Shiny Red Color")
   doc.ActiveAppearance = oAsset
    
    
End Sub
 

Код - Visual Basic [Выбрать]

Sub PartColor()
    Dim oAsset As Asset
    Dim oLib As AssetLibrary: Set oLib = ThisApplication.AssetLibraries("Autodesk Appearance Library")
    Set oAsset = oLib.AppearanceAssets("Gold")
    If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
        Dim oPart As PartDocument: Set oPart = ThisApplication.ActiveDocument
        oPart.ActiveAppearance = oAsset
    ElseIf ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
        Dim oAsm As AssemblyDocument: Set oAsm = ThisApplication.ActiveDocument
        Set oAsset = oAsset.CopyTo(oAsm)
        Dim oOcc As ComponentOccurrence
        Set oOcc = oAsm.ComponentDefinition.Occurrences(1)
        oOcc.appearance = oAsset
    End If
End Sub

Revit API / Re: Программа AddInsManager для автообновления надстроек Revit

« Последний ответ от Павел Тер-Микаэлян 12-08-2020, 18:16:05 »

Цитата: Александр Ривилис от 12-08-2020, 16:27:36

Хорошо. Не буду. Но тогда логично было бы предоставить исходный код.

Возможно, я честно говоря не думал, что кто-то будет целенаправленно разбираться в проектах, тем более, что некоторые программы там занимают около 8т строк. Конкретно в этом разделе я больше хотел поделиться идеями и результатами работы, но если возникнут конкретные вопросы по реализации каких-то моментов - я конечно готов ответить.