Steven P 发表于 2022-7-5 17:12:20

我倾向于将所有LSP文件保存在同一个位置，如果我在启动时没有加载它们，则可以使用命令一次加载所有文件。对于我拥有的少数人和他们的体型来说，这只需要很少的时间。
 
 
在开发lisp时也很有用，我可以从命令行重新加载它：
 
 

(defun c:appreload ()

(setq mydir "C:\\AutoCAD LISPS\\")                  ;;Location of LSP files. If more than 1 location can do subroutine and change mydir location
(setq myfiles (vl-directory-files mydir "*.lsp" nil)) ;;myfiles is list of files in mydir location
(setq mylistlength (length myfiles))                     ;;count of number of lsp files
(setq acount -1)
(repeat mylistlength
   (setq acount (1+ acount))
   (load (strcat mydir (nth acount myfiles)))          ;;loads lsp files from folder 1 at a time
)
(princ "\n")
(princ mylistlength)
(princ " lsp files loaded from ")
(princ mydir)
(princ)
)



 
 
 
 
 
 
好的，代码可以整理一下，但它可以工作

BIGAL 发表于 2022-7-5 17:17:38

对于未知的命令，您可以捕获错误并查看命令是什么，然后说加载lisp并重新运行，问题是您需要多少个错误捕获反应器。
 
我使用该错误设置我的fillet命令，将圆角R 100缩短为f100，并使用偏移量和圆可以在初始字符后输入任何值。我猜你如果你做每一个自定义命令sm。。。。它可以工作，因为您可以检查错误并可能加载lisp
页: 1 [2]
查看完整版本: 加载lisp（如果尚未加载）