Ошибка no function definition vlax get acad object

I added the following programming to my Acad2013.lsp file to add Support File Search Paths automatically.

Now I get the following two errors:

no function definition: VLAX-GET-ACAD-OBJECT

; error: no function definition: ACET-REG-PRODKEY

ACAD2013.lsp:

; MODULE_ID ACAD2007_LSP_
;;;    ACAD2013.LSP Version 1.0 for AutoCAD 2013
;;;
;;;  Copyright 2012 Autodesk, Inc.  All rights reserved.
;;;
;;;  Use of this software is subject to the terms of the Autodesk license
;;;  agreement provided at the time of installation or download, or which
;;;  otherwise accompanies this software in either electronic or hard copy form. ;;;
;;;
;;;
;;;    Note:
;;;            This file is normally loaded only once per AutoCAD session.
;;;            If you wish to have LISP code loaded into every document,
;;;            you should add your code to acaddoc.lsp.
;;;
;;;    Globalization Note:  
;;;            We do not support autoloading applications by the native
;;;            language command call (e.g. with the leading underscore
;;;            mechanism.)

(if (not (=  (substr (ver) 1 11) «Visual LISP»)) (load «acad2013doc.lsp»))

;; Silent load.
(princ)

;; This loads CGA custom macro for «Set to current layer» lisp file
(load «s:/acad2007/lisp/layer.lsp»)

;; This loads CGA custom macro for «Set to current layer» lisp file
(load «s:/acad2007/lisp/cgalayr.lsp»)

;; This loads CGA custom lisp files
(load «s:/acad2007/lisp/CGA_custom.lsp»)

;; This loads CGA custom lisp files
(load «s:/acad2007/lisp/door.lsp»)

;; This loads CGA custom macro for Dimension Block Insertion file
(load «s:/acad2007/lisp/cgablockInsert.lsp»)

;; This loads CGA custom macro for Dimension Block Insertion file
(load «s:/acad2007/lisp/imperial-metricblockInsert.lsp»)

;; This loads custom Civil Cannoscales
(load «s:/acad2007/lisp/CS.lsp»)

;; This loads custom GHA Page Setups
(load «s:/acad2007/lisp/GHA Pagesetups.lsp»)

;; This loads custom zoom > xp routine
(load «s:/acad2007/lisp/zoomxp.lsp»)

;; This loads custom Electrical Plan Template
(load «s:/acad2007/lisp/electrical-plan.lsp»)

;; This loads custom dimension routine
(load «s:/acad2007/lisp/dimension.lsp»)

;; This loads custom mvsetup routine
(load «s:/acad2007/lisp/mvsetup.lsp»)

;; This loads custom leader routine
(load «s:/acad2007/lisp/leader.lsp»)

;; This loads custom Roof Framing Template routine
(load «s:/acad2007/lisp/Roof Frame.lsp»)

;; This loads custom Upper Floor Framing Template routine
(load «s:/acad2007/lisp/Upper Frame.lsp»)

;; This loads custom Main Floor Framing Template routine
(load «s:/acad2007/lisp/Main Frame.lsp»)

;; This loads custom GHA Title Block routine
(load «s:/acad2007/lisp/Layout Setup.lsp»)

;; This loads custom Change Caps routine
(load «s:/acad2007/lisp/Chgcase.lsp»)

;; This loads custom GHA Title Block routine
(load «s:/acad2007/lisp/STL.lsp»)

(prompt «nacad2007doc.lsp Loaded…»)

(vla-put-supportpath
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (strcat «;S:\Fonts»
          «;»
          (vla-get-supportpath files)
  )
)

(vla-put-supportpath
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (strcat «;S:\Acad2007\Hatch_Patterns»
          «;»
          (vla-get-supportpath files)
  )
)

(vla-put-supportpath
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (strcat «;S:\Acad2007\Simpson\Menu»
          «;»
          (vla-get-supportpath files)
  )
)

(vla-put-supportpath
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (strcat «;S:\Acad2007\Lisp»
          «;»
          (vla-get-supportpath files)
  )
)

(print «Printer setup started.»)
(vl-load-com)
(vlax-for ps (vla-get-plotconfigurations
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-delete ps)
)
(setq expert (getvar «expert»))
(setvar «expert» 2)
(command «._-PSETUPIN»
«S:/ACAD2007/Templates/Sheetsets/Architectural Imperial.dwt»
«*»
)
(setvar «expert» expert)

(print «Printer setup completed.»)

Подобный вопрос с завидной регулярностью появляется на самых разных форумах:

Загружаю лисп, пытаюсь выполнить, а AutoCAD мне в ответ:
no function definition: VLAX-GET-ACAD-OBJECT
И результат нулевой. Что делать?

Все очень просто: в лиспах используется расширение ActiveX, которое в AutoCAD не подгружено. В некоторых версиях (например, 2006) эта подгрузка выполнялась автоматически независимо от желания пользователя; в 2008, 2010 и 2011 это уже надо делать принудительно. Достаточно в самом начале лиспа поставить

И все будет работать.

Надо просто про это не забывать…
—
Добавлю: сообщение может меняться, но начало всегда одно: не определена функция vl… Решение абсолютно то же самое

Перейти к содержимому раздела

Форумы CADUser

Информационный портал для профессионалов в области САПР

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Дерево сообщений Активные темы Темы без ответов

Сообщения 13

Тему читают: 1 гость

If you have an AutoLISP file that does not work or exits like the sample below there might be an easy solution.

Command: (vlax-get-acad-object)
; error: no function definition: VLAX-GET-ACAD-OBJECT

Try running (vl-load-com) or add it to the beginning of the LSP file.

Command: (vl-load-com)

Command: (vlax-get-acad-object)
#<VLA-OBJECT IAcadApplication 00d73d3c>

Now it works as expected without any errors.

What is (vl-load-com) ?

This function loads the extended AutoLISP functions provided with Visual LISP. The Visual LISP extensions implement ActiveX and AutoCAD reactor support through AutoLISP, and also provide ActiveX utility and data conversion functions, dictionary handling functions, and curve measurement functions.

It does not hurt to add (vl-load-com) to your LSP files to make sure it works. If the extensions already are loaded (vl-load-com) does nothing.