[求助]：请教lisp程序自动加载，怎样操作？

morecs

请教lisp程序自动加载，怎样操作？谢谢！！！

entrophy

在auocad2000.lsp中加上加载函数

aeo

1. 
   
2. 当AutoCAD启动时：
   
3. - acadr2000.lsp
   
4. - acad.lsp
   
5. 对于每个新打开的文档：
   
6. - acad.lsp, 如果在AutoCAD的配置对话框中的系统标签下做了相应的选项设定。
   
7. - acaddoc2000.lsp
   
8. - acaddoc.lsp
   
9. - .MNU菜单文件和它们的关联.MNL文件。
   

复制代码

上面说到的五个地方,按顺序，最后定义的为准.

morecs

aeo大侠，麻烦能说详细些，我是新手
下面是我cad里的acad2000.lsp的内容：怎样加
; MODULE_ID ACAD2000_LSP_
;;;    ACAD2000.LSP Version 1.0 for AutoCAD 2002
;;;
;;;    Copyright (C) 1994-2001 by Autodesk, Inc.
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;;    AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;    MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;;    DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;;    UNINTERRUPTED OR ERROR FREE.
;;;
;;;    Use, duplication, or disclosure by the U.S. Government is subject to
;;;    restrictions set forth in FAR 52.227-19 (Commercial Computer
;;;    Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;;    (Rights in Technical Data and Computer Software), as applicable.
;;;
;;;.
;;;
;;;    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 "acad2000doc.lsp"))


;;  Remove this line if you won't be using the legacy
;;  DWFOUT command and want to maximize available memory.
(vl-load-all "support\\legacy\\dwfout\\dwfout.lsp")

;; Silent load.
(princ)

e2002

appload命令对话框中右下角有一个"Startup Suite",你点击其中的"Contents..."按钮,在弹出的对话框中选择"Add"增加你需要自动加载的那个lsp(或者fas,lx ,arx...)即可

前生

acad.lsp
(load "***.lsp")

zwhuang

如果有自定义菜单，可以将(load ***.lsp)加到菜单命令中。这样每次点击，都会自动装载一次lisp程序。

lsjjm

菜单自动加载LISP程序一例:
下面是菜单文件*.MNS中的一行.
ID_Tfd           [&Tfd]^C^C(load (findfile "endstyle.lsp"));tfd