需要帮助加载lisp例程

CADgirl · 发表于 2022-7-6 11:51:08

我需要加载lisp例程的帮助。有一个人曾经在我们公司工作，他有一个lisp例程，它包含了我们所有的层和符号。最近我的硬盘死机了，所以现在我回到电脑上，什么都没有加载。我有我需要的文件，但我不知道如何加载它们。嗯，我知道如何加载基本的lisp例程，但我似乎无法像他那样让它工作。所以也许我需要从头开始学习。
我不知道如何加载图标和下拉菜单。任何帮助都将不胜感激！非常感谢。

wkplan · 发表于 2022-7-6 12:02:59

梅比这是一个开始。。。

当做
沃尔夫冈

ReMark · 发表于 2022-7-6 12:08:41

你说的那个人可能用过阿卡多克。lsp或acad。lsp加载办公室中使用的自定义lisp例程。

您的AutoCAD图标和下拉菜单是否出现了问题，或者您正在谈论自定义项？

CADgirl · 发表于 2022-7-6 12:21:07

他可能使用了acad。lsp。有一个同名的lsp文件。上面是这么说的-
（加载“DATESAV”）
（setvar“coords”2）
（setvar“cmdecho”0）
（setvar“menuecho”0）
（setvar“regenmode”1）
（setvar“texteval”0）
（setvar“unitmode”1）
;;=================================== ACAD。LSP=================================
;;版权所有©1997 SELLECT Designs，股份有限公司。
;;
（加载“sellect.mnl”）
;;
;;
;;==============================================================================
;;  函数用法：（setlts）
;;  函数用途：将当前LTSCALE设置为“sellvd”的给定因子，其中
;;  是预期的打印比例。例如，如果预期的绘图
;;  比例为1/8“=1”或1=96，则ltscale设置为以下值的96倍。
;;
（defun setlts（）（setvar“ltscale”（*1.0000 sellvd）））
;;                                  ^^^^^^
;; 调整上述数字以更改LineTypeSCALE的乘数，
;; 或者，用“；”禁用该功能在（defun…）的开头线
;;
;;
;;==============================================================================
;;  函数用法：（setsnap）
;;  函数用途：将当前捕捉值设置为“sellvd”的给定因子，其中
;;  是预期的打印比例。例如，如果预期的绘图
;;  比例为1/8“=1”或1=96，则捕捉值设置为以下值的96倍。
;;
（defun setsnap（/a）（setq a（*0.125 sellvd））（setvar“snapunit”（列表a）））
;;                            ^^^^^
;; 调整上述数字以更改捕捉的乘数，
;; 或者，用“；”禁用该功能在（defun…）的开头线
;;
;;
;;
（程序
（if（setq a（findfile“sellect.lsp”））
（setq a（负载a）a零）
（princ“\n>>未找到文件[SELECT.lsp]！SELECT已禁用。仅ACAD.lsp”）
)
（普林斯）
)
（加载“sdmcleon”）
（defun c:TE（/ok\u button text\u set）
countr dcl\u id ent
新旧edata diastat
)
（加载“ai_utils”）
（取消ok_按钮（）
（setq new（get\u tile“text\u edit”））
（完成对话框1）
)
（setq text\u集合（ssget’（（0。“text”）））
（如果设置了text_
（程序
（setq countr 0）
（setq dcl\U id（加载对话框“ddmedit.dcl”））
（重复（sslength text_集合）
（setq新零）
（setq ent（ssname text\U set countr））
（setq edata（entget ent））
（重新绘制ent 3）
（setq old（cdr（assoc 1 edata）））
（如果（不是（新建对话框“ddmedit”dcl\U id））
（退出）
)
（set\u tile“text\u edit”old）
（action_tile）
“接受”
“（ok_按钮）”
)
（action_tile）
“取消”
“（完成对话框0）”
)
（setq DISTAT（start\u对话框））
（条件
（（zerop diastat））
（（不是新的））
（（eq”“（ai_strtrim new）））
（（eq new old））
（t（entmod
（列表（cons-1 ent）
（cons 1新аа）а）
（setq countr（1+countr））
（重新绘制ent）
)
（unload\u对话框dcl\u id）
)
（提示“\n未选择文本实体。”）
)
（prin1）
)
;拾取要关闭的层
（假设C:LYO（/A B）
（setq）
A（entsel“\n点击一个对象
在要关闭的图层上”）
B（cdr（assoc’8（entget
（A车）
LLST（cons B LLST）
)
（命令“LAYER”“OFF”B“”）
)
;在外部参照上拾取图层以关闭
（defun c:LYOX（/）
（setq ln（cdr（assoc 8（entget（car（nentsel）ЮЮ）Ю））））
（命令“layer”“off”ln“”）
（普林斯）
)
;更改图层
（定义c:lyc（）
（提示
“\n选择要更改的实体：”）
（setq ss（ssget））
（提示“\n点击目标层上的实体：”）
（setq名称（cdr（assoc 8（entget（car（entseL）ЮЮ）Ю））））
（命令“chprop”ss““La”name”）
（普林斯）
)
;快速保存
（定义C:Q（）
（^C^C\U qsave）
)

对不起，我没有指定，图标和下拉菜单是自定义的。所有其他标准的东西都很好。
目前在我的支持fle搜索路径中加载了一些文件，我不确定这意味着什么。它们是具有lisp例程的文件。

ReMark · 发表于 2022-7-6 12:27:38

该文件似乎包含多个lisp例程。从命令行调用例程，它应该可以工作。

AutoCAD 2007我相信用过崔。必须对其进行编辑，以包括创建的任何自定义项。

Lee Mac · 发表于 2022-7-6 12:35:16

老实说，最好使用阿卡多克。lsp文件，因为每次打开新图形时都会加载该文件。ACAD。我相信只有在加载AutoCAD时才加载lsp。

在命令行中键入：

copy


(findfile "ACADDOC.lsp")

如果返回nil，那么您可以创建自己的ACADDOC。将lsp保存在记事本中，并将其另存为支持路径中的lsp文件，否则请更改现有文件。

要加载LISP文件，只需在ACADDOC中包含这样的语句。lsp

copy


(load "lispfilename.lsp")

或者，如果要加载的lisp文件不在支持路径中，请使用双反斜杠包含完整文件名：

copy


(load "C:\\Users\\CADGirl\\LISPs\\myLISP.lsp")

更多信息请点击此处：

http://www.theswamp.org/index.php?topic=30946.msg364983#msg364983
http://www.cadtutor.net/faq/questions/53/How+do+I+自动+加载+变量%3F

希望这有帮助！

李

CADgirl · 发表于 2022-7-6 12:43:00

谢谢你们！
如何加载自定义下拉菜单和工具栏？

CADgirl · 发表于 2022-7-6 12:49:33

非常感谢大家！我终于明白了。

gile · 发表于 2022-7-6 12:55:39

你好

我想体验一下LISP自动加载文件。
在搜索路径文件夹中，创建（或添加）一些文件：

acad。lsp

copy

(alert "acad.lsp loaded")

阿卡多克。lsp
如果使用企业CUI，则创建相同命名的MNL文件，或者如果使用acad。cui（或acad.mns）在acad中复制。mnl公司
如果使用某些局部CUI或MNU/MNS文件，请创建一个同名MNL文件
更多信息，在包含一些dwg文件的文件夹中，创建另一个acaddoc。lsp
然后打开一个新的AutoCAD会话，您将看到加载了哪些文件以及加载顺序。

尝试打开新图形（dwt）

尝试从添加acaddoc的文件夹中打开图形。lsp文件。。。

[编程交流] 需要帮助加载lisp例程

发表回复

精选推荐