[gizmo_zx]

Бодрого дня.
Подскажите как автоматом подгрузить в чертеж все типы линий из конкретного файла "temp.lin"

[TararykovDG]

Как вариант

Код:

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

 
; Вызов: (L_ALL_LT "temp.lin")
(defun L_ALL_LT(file)
  (vl-load-com)
  (if (not (vl-catch-all-error-p
         (vl-catch-all-apply 'loadlt
           (list file)
           )
         )
       )
    (prompt (strcat "\nВсе типы линий из файла " file " успешно загружены"))
    (prompt "\nПри загрузке произошла ошибка")
    )
  (princ)
  ); end L_ALL_LT

(defun loadlt(file)
  ((lambda(path)
     (if path
       (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "*" path)
       )
     )
    (findfile file)
    )
  ); end loadlt

[gomer]

ну, или по-простому

Код:

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

 (vl-load-com)

(defun LoadLineType (lt fn / retval)
;;; (LoadLineType "*" "acad.lin")
  (terpri)
  (if (vl-catch-all-error-p
	(setq
	  retval (vl-catch-all-apply
		   (function
		     (lambda (x)
		       (vla-Load
			 (vla-get-Linetypes
			   (vla-get-ActiveDocument
			     (vlax-get-acad-object)
			   )
			 )
			 lt
			 fn
		       )
		     )
		   )
		   (list fn)
		 )
	)
      )
    (progn
      (setq retval (vl-catch-all-error-message retval))
      (cond
	((member retval
		 '("Automation Error. File system error")
	 )
	(princ "Файл типов линий не найден")
	)
	((member retval
		 '("Automation Error. Undefined linetype")
	 )
	 (princ "Не найдено описание типа линии")
	)
	((member retval
		 '("Automation Error. Duplicate record name")
	 )
	 (if (eq lt "*")
	   (princ "Все типы линий уже загружены")
	   (princ "Тип линии уже загружен")
	 )
	)
      )
    )
    (princ "Тип линии успешно загружен")
  )
)

[VVA]

Сообщение от gomer ну, или по-простому

По простому как-то так

Код:

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

(setvar "EXPERT" 5)(command "_-LINETYPE" "_L" "*" "acad.lin" "")

[Олег (jr.)]

Сообщение от VVA По простому как-то так

Желтые штаны 2 раза КУ

~'o'~