[Кулик Алексей aka kpblc]

Прошу не бить ногами за возможно глупый вопрос.

Собственно проблема:
Надо в файл по нажатию на кнопку загрузить тип линии. Типы линий прописаны в отдельном файле (путь до файла есть в Support file types, например, c:\_mnu\lines.lin, имя линии - B0). При попытке вызова

Код:

[Выделить все]

^C^C_Linetype;_-Load;"c:\\_mnu\\lines.lin/B0";

кад вываливает диалоговое окно с требованием указания файла, откуда надо грузить (кстати, так и не вычислил, как правильно указать одновременно и путь файла, и имя линии).
Это часть 1.
Теперь часть 2: при повторном загружении типа линии кад вываливает запрос на перезагрузку типа линии.

Надо:
1. Нормально загружать тип линии (без диалоговых окон).
2. Снять запрос на перезагрузку. Тип линии загружается только по необходимости. Т.е. может быть загружен первый раз и сколько-то раз потом. Ессно, хочется сделать макрос универсальным.
Вариант с лиспом, увы, не пойдет - работа делается для ACAD LT. Вариант "новый шаблон" как то... не фонтан, честно говоря.

[Lenich]

кад вываливает диалоговое окно с требованием указания файла,

правльино вываливает. Надо точку с запятой после лоад убрать.

Вот ещё как вариант:

Код:

[Выделить все]

^C^Cvbastmt ThisDrawing.Linetypes.Load "B0", "acad.lin"

Не проверял, но должно работать.

Теперь часть 2: при повторном загружении типа линии кад вываливает запрос на перезагрузку типа линии.

Надо делать обработку ошибок вот пример на МИФ:

Код:

[Выделить все]

Sub Example_Load()
    ' This example attempts to load the linetype "CENTER" from
    ' the acad.lin file. If the linetype already exists, then
    ' a message is displayed.
    
    Dim linetypeName As String
    linetypeName = "CENTER"
    
    ' Load "CENTER" line type from acad.lin file
    On Error Resume Next    ' trap any load errors
    ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
    
    ' If the name already exists, then notify user
    If Err.Description = "Duplicate record name" Then
        MsgBox "A line type named '" & linetypeName & "' already exists.", , "Load Example"
    End If
    
End Sub

[Геннадий aka PG]

^C^C_-Linetype;_Load;"c:\\_mnu\\lines.lin/B0";
По-моему ты тире не там поставил, надо перед LINETYPE

[Кулик Алексей aka kpblc]

Да все дело в том, что надо под LT! Этот гад ни про ЛИСП, ни, тем более, про VBA слыхом не слыхивал.
>>Геннадий:
Да все едино, минусы уже там роли не играют. Есть смутное подозрение, что дело в строке, которая идет после Load. Вот ее бы формат узнать... - т.е. полное имя файла + имя линии.

[Кулик Алексей aka kpblc]

Ура! Решение:

Код:

[Выделить все]

^C^C_-Linetype;_Load;"-B0-" "gosted.lin";;^C^C

Мужики, вы гении. Огромное спасибо.
Решение туповатое, но и LT не просто так дан
Естественно, файл "gosted.lin" должен лежать в папках Support file types, имя линии - только английское и т.д.