[McIntosh]

Добрый вечер!
Есть программка написанная на VBA, которая по данным из Excel строит разрезы. Программкой давно не пользовался (на старых версиях Асаd -работала).
Сейчас АКАД 12-й при выполнении макроса выдает "неопределенный тип линии"

Код:

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

  Dim entry As AcadLineType, found As Boolean
  found = False
  For Each entry In acDoc.Linetypes
    If StrComp(entry.Name, "DASHED", 1) = 0 Then: found = True:  Exit For:
  Next
  If Not (found) Then acDoc.Linetypes.Load "DASHED", "acad.lin"

может быть ошибка в обращении выбора типа линии ??? кто может подсказать ?
Заранее благодарен!

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

Тип линии надо загружать. И при этом не забывать про локализации и имена типов линий в них.

[McIntosh]

If Not (found) Then acDoc.Linetypes.Load "DASHED", "acad.lin" - ну так по идее эта строка и должна загрузить нужный тип в чертеж. или не верно ?

загружал типы линии в ручную!

И при этом не забывать про локализации и имена типов линий в них

а тут немного по подробней если не затруднит.

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

В английской версии тип линии HIDDEN, в русской - ШТРИХ (насколько я помню). Ну и тому подобное, типы линий надо сопоставлять вручную. На caduser.ru в "Готовых программах" была тема по загрузке типа линии в чертеж независимо от локализации AutoCAD.
И еще момент - чертеж что, выполняется в дюймах?

[McIntosh]

нет, миллиметры.
Пойду на caduser почитаю. Спасибо.

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

Сообщение от McIntosh нет, миллиметры.

Тогда почему тип линии грузится из acad.lin, а не из acadiso.lin?

[McIntosh]

да, спасибо. Уже заметил. Заменил. Но ошибку выдает именно в этом месте acDoc.Linetypes.Load "DASHED", "acadiso.lin".
Тип HIDDEN тоже пробовал.

[Олег (jr.)]

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

Код:

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

Option Explicit
Function IsLineTypeExist(ltName As String) As Boolean
Dim ltEntry As AcadLineType
IsLineTypeExist = False
On Error Resume Next
   For Each ltEntry In ThisDrawing.Linetypes
   If StrComp(ltEntry.Name, ltName, vbTextCompare) = 0 Then
   IsLineTypeExist = True
   End If
   Next
End Function
Public Sub testLtype()
  Dim entry As AcadLineType, found As Boolean
  found = False
  Dim ltfile As String
  ltfile = IIf(ThisDrawing.GetVariable("measureinit") = 1, "acadiso.lin", "acad.lin")
Dim ltName As String
Dim arr As Variant
arr = Array("Center", "Dashed", "Dot", "Hidden", "Phantom", "Phantom2")
Dim i
For i = LBound(arr) To UBound(arr)
ltName = arr(i)
If Not IsLineTypeExist(ltName) Then
ThisDrawing.Linetypes.Load ltName, ltfile
End If
Next
End Sub

[McIntosh]

Спасибо, будем пробовать.