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

Проблема: в процессе выполнения lisp'a выполняется команда

Код:

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

      (command "_.-Linetype"
	       "_Load" current-layer-ltype linedef-file "_Yes" ""
	       );

здесь current-layer-ltype - тип линии, который надо загрузить, linedef-file - файл, в котором лежит описание линии. Линия с символами, использует текстовый стиль (естественно, он ранее создан или переопределен). Так вот собственно проблема: при первом вызове лог работы таков:

Код:

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

Command: _.-Linetype
Current line type:  "ByLayer"
Enter an option [?/Create/Load/Set]: _Load
Enter linetype(s) to load: B0 Enter name of linetype file to search 
<gosted.lin>: gosted.lin
Linetype "line_std" loaded.
Enter an option [?/Create/Load/Set]: _Yes
Invalid option keyword.

И выполнение лиспа прекращается. Каким образом можно "отловить", есть ли уже такая линия в файле или нет?
Маленькое уточнение: надо "чистый" лисп, применение vla- vlax- и vlr- функций (за исключением vl-*) надо избегать как огня - функция будет подгружаться в LT + LT Extender, а он держит только vl-*.
Профи в лиспе, прошу помощи!

[vx]

(tblobjname "ltype" "continuous")
если нет - возвращает nil

[Alan]

Как пример.

Код:

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

(setq current-layer-ltype "DASHED")
(if (tblsearch "LTYPE" current-layer-ltype)
    nil
      (command "_.LINETYPE"
	       "_L"
	       current-layer-ltype
;;; с путями
	       linedef-file 
	       ""
      )
    )
  )

Удачи.

[Alaspher]

Попробуй так:

Код:

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

(defun demo-linetype-load (linetype file / lines)
  (if (setq lines (vla-get-Linetypes
                    (vla-get-ActiveDocument (vlax-get-acad-object))
                  )
            file  (findfile file)
      )
    (if
      (vl-catch-all-error-p
        (vl-catch-all-apply (function vla-Item) (list lines linetype))
      )
       (princ (if (vl-catch-all-error-p
                    (vl-catch-all-apply
                      (function vla-Load)
                      (list lines linetype file)
                    )
                  )
                "\nLoading failed with error!"
                "\nLoading complete!"
              )
       )
       (princ "\nLoading failed!\nLinetype already exist!")
    )
    (princ "\nLoading failed!\nFile not found!")
  )
  (princ)
)

Код:

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

(demo-linetype-load "DOT2" "acadiso.lin")

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

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