在本例中,将使用appload自动加载文件PS.lsp。
- ;;;/////////////////////////////////////////////////////////////////
- ;;; Function - PS.lsp Start-Up ;Describe function
- (defun C:PS () ;Define function
- (PSLOAD) ;GOTO PSLOAD function
- ) ;End of define function
- ;;;/////////////////////////////////////////////////////////////////
- ;;; Function - PS.lsp Load All Programs ;Describe function
- (defun PSLOAD () ;Define function
- (load "PS1.lsp") ;Load PS1.lsp
- (princ "\nP1.lsp Loaded...") ;Inform user program is loaded
- (load "PS2.lsp") ;Load PS2.lsp
- (princ "\nP2.lsp Loaded...") ;Inform user program is loaded
- (load "PS3.lsp") ;Load PS3.lsp
- (princ "\nP3.lsp Loaded...") ;Inform user program is loaded
- (load "PS4.lsp") ;Load PS4.lsp
- (princ "\nP4.lsp Loaded...") ;Inform user program is loaded
- (load "PS5.lsp") ;Load PS5.lsp
- (princ "\nP5.lsp Loaded...") ;Inform user program is loaded
- (load "PS6.lsp") ;Load PS6.lsp
- (princ "\nP6.lsp Loaded...") ;Inform user program is loaded
- (load "PS7.lsp") ;Load PS7.lsp
- (princ "\nP7.lsp Loaded...") ;Inform user program is loaded
- (PSLOADMESSAGE) ;GOTO PSLOADMESSAGE function
- ) ;End of define function
- ;;;/////////////////////////////////////////////////////////////////
- ;;; Function - PS.lsp Load Message ;Describe function
- (defun PSLOADMESSAGE () ;Define function
- (prompt "\nAll PS.lsp Programs Loaded...");Inform user all programs are loaded
- ) ;End of define function
- ;;;/////////////////////////////////////////////////////////////////
在这个例子中,这里是PS.mns
注意ID_003。这是您在下拉菜单中单击的按钮,用于在准备好加载所有程序时加载它们。
这是一个按钮,上面写着单击此处加载所有程序。。。
ID_005、006、007有宏来调用特定的程序,以便在此时为您启动。
AutoCAD菜单文件-C:\Program Start\PS.mnc//***MENUGROUP=PS***POP1**PSID\u 001[PS]ID\u 002[-]ID\u 003[单击此处加载所有程序…](加载“PS”)^C^CPSID\u 004[-]ID\u 005[程序开始1…]^C^CPS1ID\U 006[程序开始2…]^C^CPS2ID\U 007[程序开始3…]^C^CPS3ID\U 008[-]ID\U 009[->更多程序]ID\U 010[程序开始4…]^C^CPS4ID\U 011[程序开始5…]^C^CPS5ID\U 012[ |