[shartal]

Видимо в файл acaddoc через функцию startup, но чтение справки не помогло.
Как должен выглядеть такой код, например для команды line.

[mamuk]

если при запуске Auotocad то можно созадть файл lsp содержимым (vl-cmdf "_line") и указать пути загрузки данного файла тогда при запуске Autocad будет вызываться команда "_line".

[shartal]

Пример с line работает, но мне надо запустить команду, которая содержится в лиспе, который загружается с помощью acaddoc. Надо, чтобы в начале загрузились все лиспы, а после сработала команда запуска.

[Do$]

Сообщение от shartal но мне надо запустить команду, которая содержится в лиспе, который загружается с помощью acaddoc

... в доме, который построил Джек

Сообщение от shartal а после сработала команда запуска

команда запуска чего?

[shartal]

в лиспе, который загружается с acaddoc, живет команда, которую я хочу автоматически запускать после открытия файла

[Do$]

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

[mamuk]

(c:команда) или (команда) вроде так

[zenon]

Do$, Можно поподробней?
Например мне требуется выполнение команды после загрузки и инициализации определенной навески на AutoCAD, а иначе:

AutoCAD menu utilities loaded._команда Unknown command "КОМАНДА ". Press F1 for help.

[Do$]

Я говорил про ситуацию, когда в acaddoc.lsp имеется код с командой, которую надо автоматически запустить при открытии чертежа. Например, в этом файле код:

Код:

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

(defun c:test () (alert "Работает команда TEST!"))

Дописываем в конце файла строчку: (c:test) и происходит ее автоматический запуск при каждом открытии чертежа.

[pan]

Содержимое файла acaddoc.lsp:

Код:

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

 
(defun S::STARTUP () 
  (vl-cmdf "_line" "0,0" "100,100" "")
);defun

[gomer]

Вот так все начинается, а вот так заканчивается

[zenon]

Сообщение от Do$ Дописываем в конце файла строчку: (c:test) и происходит ее автоматический запуск при каждом открытии чертежа.

Именно так и сделал, только вот см. #8

[Do$]

А "навеска" что из себя представляет?

[zenon]

И так, как же все таки запустить команду после создания (или открытия файла).
PS прописка в ACAD.lsp и иже с ним облегчения не приносит, вот такая реакция:

Regenerating model.

AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

AutoCAD menu utilities loaded._sdimlayoff Unknown command "SDIMLAYOFF ".
Press F1 for help.

DS> ---------------------------------------
DS> ToolPac 13.0
DS> Copyright (C) 1994-2010, DotSoft
DS> All Rights Reserved
DS> ---------------------------------------
DS> Quick Keys Macro System ... Loaded.
DS> DotSoft ToolPac 13.0 (32bit) Loaded


S::STARTUP function is incorrectly implemented!
CADAddOnTools Menu loaded.NETLOAD Assembly file name: C:/Program
Files/Schueco/CAD/bin/2008/SchuecoManagedHelper.dll
3D-Tools loaded successfully.ATHENA загружается...


Загружен файл меню ATHENA

Regenerating model.

AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

AutoCAD menu utilities loaded.
DS> ---------------------------------------
DS> ToolPac 13.0
DS> Copyright (C) 1994-2010, DotSoft
DS> All Rights Reserved
DS> ---------------------------------------
DS> Quick Keys Macro System ... Loaded.


S::STARTUP function is incorrectly implemented!
CADAddOnTools Menu loaded.NETLOAD Assembly file name: C:/Program
Files/Schueco/CAD/bin/2008/SchuecoManagedHelper.dll
3D-Tools loaded successfully.ATHENA загружается...

Загружен файл меню ATHENA

[gomer]

Сообщение от zenon Например мне требуется выполнение команды после загрузки и инициализации определенной навески на AutoCAD, а иначе:

Сообщение от zenon И так, как же все таки запустить команду после создания (или открытия файла).

Как дети малые... Любая маломальски спелая навеска имеет свое меню... обычно в сопутствующем файле имя_меню.mnl прописывается загрузка модулей приложения, типа (mapcar 'load (list "1.lsp" "2.lsp" "3.lsp"))
все эти стартапы, акады и акаддоки - проходной двор, туда пишут все кому не лень...
Другой способ, более извращенный... добавить лисп в портфель, а в самом лиспе после всех определений добавить вызов нужной функции
Только после того, как все приложение загружено, то есть определены все его команды и функции, можно их вызывать

Unknown command "КОМАНДА "

означает что КОМАНДА не определена, то есть лисп, ее определяющий, не загружен или в нем есть ошибки

[zenon]

Сообщение от gomer Как дети малые

а по существу???
Еще раз по порядку.
1. Загружаются 3 навески ToolPAC, ATHENA, SchuCAD
2. После открытия файла, команда корректно обрабатывается.
3. Как заставить ее выполнятся после загрузки всех навесок.

ps

Сообщение от gomer обычно в сопутствующем файле имя_меню.mnl прописывается загрузка модулей приложения, типа (mapcar 'load (list "1.lsp" "2.lsp" "3.lsp"))

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

[Oliver_88]

zenon, а могешь выложить свой ACAD.lsp?Не юзаю довески, так бы у себя глянул.

[zenon]

Oliver_88, смотри

(defun s::startup (/)
; (cond
; ----------------------------------------------------------------
;
; VisualLisp 2002
;
; ((= (atoi (getvar "ACADVER")) 16)
(vlarts-init)
(if (not (boundp 'vlax-create-object))
(vl-load-com)
)
(or (load "cpl_init.lsp" nil) (load "cpl_init" nil))
(cpl_init)
(or (load "ath_init.lsp" nil) (load "ath_init" nil))
(ath_init)
(cpl_cfg_set '("ATH_MENU" "MFC") 1)
; )
; (T
; (alert "AutoCAD 2004 or 2005 expected")
; )
; )
)

(princ)

[gomer]

Сообщение от zenon грузятся скомпилированные файлы.

Какая разница?.. загрузили вызвали... все должно работать... Другой вопрос, если вы хотите, чтоб ваша команда запускалась после загрузки всего... В таком случае... Я бы удалил свое меню и загрузил заново

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

Я, конечно, извиняюсь, но:
1. Что возвращает (findfile "ath_init.lsp") и (findfile "cpl_init.lsp")?
2. Функции load глубоко фиолетово - грузить lsp, fas или vlx. Срабатывает одинаково.