社区 › Auto Lisp › lisp加载程序

dnovember99 发表于 2022-7-5 15:39:37

lisp加载程序

我一直在绞尽脑汁想弄明白这一点。我确信这是一件非常简单的事情，但对于lisp世界来说太陌生了，我正在努力。
 
我希望有一个主lisp，将加载所有的lisp例程，我有。不确定这是否是最好的方法，或者我是否应该访问“选项”并将这些选项的位置添加到支持路径，以便始终加载。
 
我读了一点能干的《阿卡多克》。lsp，但作为一个如此新的我只是失去了自己，甚至更多。有人能提供一点指导吗？
 
非常感谢。

PDuMont 发表于 2022-7-5 15:46:17

请参阅李·麦克的《阿卡多克创作者》：http://www.lee-mac.com/acaddoccreator.html
 
在你的阿卡多克。lsp文件，添加
(load "yourfilename.lsp)
LeeMac的lisp例程中的文件名。
 
所有文件必须位于您的支持路径中。
 
打开新图形时，将显示。lsp文件仅在键入命令时加载。

dnovember99 发表于 2022-7-5 15:46:41

 
感谢您提供此信息。李有很多东西，我在他的网站上很容易迷路。另一个问题是，在我工作的地方，他们不喜欢我们把这样的东西保存到服务器和/或桌面上（他们至少每周清理一次这样的东西）
 
我能把它全部保存到一个thumb驱动器中，然后直接访问它吗？当然，如果这是一个可以工作的东西，那么只有当拇指驱动器在计算机中时，它才会加载。只是一个想法

PDuMont 发表于 2022-7-5 15:49:56

我认为Thumb驱动器应该可以工作，但是的，如果没有连接，它会出错。
我在我的机器上从C:\users\public\documents“我的东西在这里”工作，因为它是默认位置，他们会监控它吗？

dnovember99 发表于 2022-7-5 15:55:33

我甚至没有那条路！但这给了我一个想法，我将只保留我备份的（原始文件）在thumb驱动器上，然后将它们传递到我U：驱动器上的某个地方（这就是他们给我们的）
 
 
我得去看看阿卡多克。lee mac的lsp。再次感谢你

PDuMont 发表于 2022-7-5 15:59:10

不客气。
 
我的原始回复是匆忙打印的，如果你需要更多信息，请告诉我。
 
祝你好运

dnovember99 发表于 2022-7-5 16:00:47

我很快地看着阿卡多克。lsp文件，当然写得很好，但太好了，我很难理解在哪里添加我的东西。我有一个文件，我被批准添加一些我自己的东西，为我工作，但他们限制编辑。
 
这就是他们所拥有的：
 
(defun c:K ()
(setvar "POLARMODE" 2)
(setvar "osmode" 551)
(setvar "POLARANG" (angtof "15"))
)
;;when you type K, it resets your osnaps to your custom setting

;;Custom Routines

(defun c:c0 () (command "_copybase" "0,0") )
(defun c:v0 () (command "_pasteclip" "0,0") )
(defun c:ZZ () (command "layfrz") )

(load "_RC-CLOUDS")
(defun c:KL () (load "_KL") (C:KL))
;;DRAW BACKWARDS 3-POINT LEADER
(defun c:T2MT () (load "T2MT-MT2T") (C:T2MT))
;;TEXT TO MTEXT
(defun c:VB () (load "_VB") (C:VB))
;;VIEWPORT BOX IN MODELSPACE
(defun c:XRR () (load "XRR") (C:XRR))
;;XREF RELOAD
(defun c:XRV () (load "XRV") (C:XRV))
;;XREF RELOAD WITH VISRETAIN
(defun c:XRU () (load "XRU") (C:XRU))
;;XREF DETACH
(defun c:explodable () (load "explodable") (C:explodable))
;;explodable
(defun c:cleanbase () (load "cleanbase") (C:cleanbase))
;;Clean base drawing
(defun c:cleantitle () (load "cleantitle") (C:cleantitle))
;;Clean title drawing

(Defun c:ERD () (load "_ERD") (c:ERD))
(Defun c:ERH () (load "_ERD") (c:ERH))
(Defun c:ERT () (load "_ERD") (c:ERT))

(Defun C:QS () (command ".qsave") (princ))
(defun c:read ()
(defun c:qs () (alert "NO! NO! NO! NO! NO! NO!"))
)


(defun c:Dave()
(load "_0Dave.lsp")
(alert "Dave - list of commands \nK - Your ACAD Defaults \nQS - Quick Save \nERH Erase Hatch \nMA Match Properties\nREAD - removes Quick Save command \nKL - Draw backwards three point leader \nCleantitle - Clean title drawing \nCleanBase - Clean base drawing\nRCC - Rev Cloud Sketch \nRCB - Rev Cloud Block")
)

(print "Dave Lisp Loaded Successfully!")
(princ)

(defun c:MA () (COMMAND "MATCHPROP") )
;;XREF DETACH
 
我想知道我是否可以复制这个布局，并广告我自己的东西。只要付出
 
(defun c:Dave() (load "_0Dave.lsp")
 
或者我甚至需要（defun c:dave（）在那里？我可以把它改成
 
(;;defun c:Dave()
 
只是想把它作为一个便条显示出来，所以如果我在看它，我知道我有这个的原因，如果我想删除它或不？只是一些想法。

PDuMont 发表于 2022-7-5 16:06:20

看，我已经误导你了，你想要这个：
 
http://www.lee-mac.com/autoloader.html

dnovember99 发表于 2022-7-5 16:08:40

好的，那么有了这个，我会把它放到我的创业服里吗？
 
这是否允许我打开一个绘图，只需输入“invert”一个lisp例程，这里有人帮我写了这个例程（毕竟是他们写的），它会正常工作？用我说的Lisp程序，我也有一个。dcl和我必须加载到其中的一个块。
 
如果需要的话，我可以做出改变。任何一种方式都适合我。

PDuMont 发表于 2022-7-5 16:11:03

好的，我对你在做什么有点困惑。
 
以下是我的设置：
 
文件夹结构=“AutoCAD Lisp\Lisp 1\Lisp”
 
“Lisp 1”文件夹包含我的accaddoc。lsp文件（autocad将仅使用其中的一个）
在这个lisp文件中是这样的：
(vl-load-com)
(acad-push-dbmod)
(load "PDuMont-Commands")
(load "PDuMont-Lisp")
(load "LayerAuto.lsp")
(load "AutoSave.lsp")
(acad-pop-dbmod)
 
“Lisp”文件夹中有我的一堆Lisp例程、dcl文件、sld文件等。
在文件夹中运行LeeMac的autoloader lisp，并附带一堆例程
你应该得到这样一个文件：
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/ArrowArcV1-2.lsp" '("AARC"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AddObjectsToBlockV1-1.lsp" '("A2" "RF"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AllLayerOff.lsp" '("ALO"))
;(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AnonymousBlock-Rename.lsp" '("UNANONALL" "UNANON"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/Arc2Circle.lsp" '("A2C"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AreaText.lsp" '("AT"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/Attribute-Constant-Flip2x.lsp" '("AF"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AutoDado.lsp" '("DD" "CD" "DD2"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AutoExtrude.lsp" '("LE" "RECE" "CE"))
(autoload "C:/Users/Public/Documents/AutoCAD Lisp/lisp/AutoRotate.lsp" '("3DR"))
 
这是《阿卡多克》中指向的文件。lsp
(load "PDuMont-Lisp")
 
同样，所有文件都必须位于autocad支持路径中。

查看完整版本: lisp加载程序