在我的公司,我们有许多在列表中具有多个外部参照比例的图形,我还想清除所有Regapp,但我希望每次加载图形时都能运行它,所以下面是我在acaddoc中所做的。lsp
- (setq oldfiledia (getvar "FILEDIA")) ;Save value of FileDia system variable
- (setvar "FILEDIA" 0) ;Set FileDia to 0 to use command prompt only
- (command "_SCRIPT" "P:\\Cad\\Script\\New Script\\scalelist.scr") ;Run the script
- (command "_SCRIPT" "F:\\Documents\\lisp\\lsp\purgereapps.scr") ;Run the script
- (setvar "FILEDIA" oldfiledia) ;Set FileDia back to previous value
- (setq oldfiledia nil) ;Clear variable used for FileDia
请帮忙。谢谢 |