社区 › Auto Lisp › 自动加载lisp

MSasu 发表于 2022-7-6 08:06:31

似乎您错过了路径的结束引号（请检查所有行）：
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp" (prompt "\nUnable to load attnumber!"))

bigmaz 发表于 2022-7-6 08:11:55

 
仍然无法工作，我的文件现在显示：
 
(if
(and
(not (menugroup "mmacad"))
(findfile "mmacad.cuix")
);and
(command "menuload" "mmacad.cuix")
);if
(and
(menugroup "mmacad")
(menucmd "p50=+MMACAD.POP1")
);and
(setvar "SAVETIME" 10)
(setvar "layernotify" 0)
(setvar "layereval" 0)
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\BlkImport.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ChangeBlockInsertionV1-3.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\copyinc.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\dimcurve.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fa.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fixtxt.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\grd.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\insertall.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LabelV1-1.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayerDirectorV1-1.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayoutTools.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LDOrderV1-2.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\Legend.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\List block.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ll.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\MaskV1-0.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\normblocks.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\num.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ple.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\plen.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pline-3d-2d.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pllen.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\polylen.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pst.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pt2blk.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\PtManagerV2-4.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\reorderpoints.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\StripMtext v5-0c.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\super.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\SuperFlatten 1.2b.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\t2m.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TL.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TrailpitswithTable.lsp” (prompt "\nUnable to load Routine1st!"))

(princ)

bigmaz 发表于 2022-7-6 08:13:45

对不起，我做错了

bigmaz 发表于 2022-7-6 08:18:19

好的，我用了李的Macs“ACADDOC.lsp Creator”，它自动帮我完成了。它似乎可以工作，但是，它只适用于“LabelV1-1.lsp”，低于这个lisp的任何东西都不起作用，真的很奇怪。。。。如果我手动加载Lisp，它们就可以工作。我的代码现在显示：
 
(if
(and
(not (menugroup "mmacad"))
(findfile "mmacad.cuix")
);and
(command "menuload" "mmacad.cuix")
);if
(and
(menugroup "mmacad")
(menucmd "p50=+MMACAD.POP1")
);and
(setvar "SAVETIME" 10)
(setvar "layernotify" 0)
(setvar "layereval" 0)
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp" "--> Failed to Load: attnumber")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\BlkImport.lsp" "--> Failed to Load: BlkImport")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ChangeBlockInsertionV1-3.lsp" "--> Failed to Load: ChangeBlockInsertionV1-3")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\copyinc.lsp" "--> Failed to Load: copyinc")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\dimcurve.lsp" "--> Failed to Load: dimcurve")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fa.lsp" "--> Failed to Load: fa")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fixtxt.lsp" "--> Failed to Load: fixtxt")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\grd.lsp" "--> Failed to Load: grd")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\insertall.lsp" "--> Failed to Load: insertall")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LabelV1-1.lsp" "--> Failed to Load: LabelV1-1")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayerDirectorV1-1.lsp" "--> Failed to Load: LayerDirectorV1-1")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayoutTools.lsp" "--> Failed to Load: LayoutTools")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LDOrderV1-2.lsp" "--> Failed to Load: LDOrderV1-2")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\Legend.lsp" "--> Failed to Load: Legend")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\List block.lsp" "--> Failed to Load: List block")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ll.lsp" "--> Failed to Load: ll")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\MaskV1-0.lsp" "--> Failed to Load: MaskV1-0")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\normblocks.lsp" "--> Failed to Load: normblocks")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\num.lsp" "--> Failed to Load: num")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ple.lsp" "--> Failed to Load: ple")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\plen.lsp" "--> Failed to Load: plen")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pline-3d-2d.lsp" "--> Failed to Load: pline-3d-2d")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pllen.lsp" "--> Failed to Load: pllen")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\polylen.lsp" "--> Failed to Load: polylen")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pst.lsp" "--> Failed to Load: pst")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pt2block.lsp" "--> Failed to Load: pt2block")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\PtManagerV2-4.lsp" "--> Failed to Load: PtManagerV2-4")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\reorderpoints.lsp" "--> Failed to Load: reorderpoints")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\StripMtext v5-0c.lsp" "--> Failed to Load: StripMtext v5-0c")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\super.lsp" "--> Failed to Load: super")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\SuperFlatten 1.2b.lsp" "--> Failed to Load: SuperFlatten 1.2b")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\t2m.lsp" "--> Failed to Load: t2m")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TL.lsp" "--> Failed to Load: TL")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TrialpitswithTable.LSP" "--> Failed to Load: TrialpitswithTable")

troggarf 发表于 2022-7-6 08:21:13

更正-当我创建一个。mnl文件对于企业CUI，我必须注释掉加载时出现的原理和警报。

BIGAL 发表于 2022-7-6 08:24:33

另一种选择是，如果自定义菜单中有你所有的Lisp程序，你仍然可以通过acaddoc加载一些。如果你可以使用记事本，你可以制作一个部分菜单。
 
***MENUGROUP=xxxxxSTDS
***POP1
**CADLIB
[->LISP1 A-C]
            ^C^C(LOAD "add-to-levels")
            ^C^C(LOAD "Add-pits-drain")
            ^C^C(LOAD "Allbylayer")
            ^C^C^p(LOAD "apndtext")
            ^C^C^p(LOAD "area-label")
            ^C^C^p(LOAD "AREAOBJ")

MSasu 发表于 2022-7-6 08:28:13

据我所知，ALERT或PRINT/PRINC/PRIN1调用通过acaddoc加载的文件。lsp将获得无问题的荣誉。这些不会妨碍上述文件的自动加载以及内部定义的功能/命令。唯一的问题可能是一些警报框可能会延迟启动或打扰用户。但是，一个好的编程实践是，仅在问题而不是版权/信息注释的根级别使用这种通信方式（警报）。也就是说，程序员希望确保他/她的用户知道的事情。
 
请不要错过一个事实，即版权注释不得删除或注释掉。

troggarf 发表于 2022-7-6 08:30:10

我已经更正了上述帖子。我去看了一下我是如何加载例程和脚本的，它是通过一个具有。具有例程加载调用的mnl文件。。。这不是acad。lsp或acaddoc。正如我第一次说的那样。
如果您对如何让mnl文件加载包含PRINC和警报的例程有任何建议，我们将不胜感激
顺便说一句，我没有从代码中删除任何内容，也没有声称作者没有编写代码，我只是想让它加载。

查看完整版本: 自动加载lisp