你们怎么管理你们的LI

vernonlee · 发表于 2022-7-5 20:01:24

你们是如何在AutoCAD中管理LISP的？

目前我做的是：-

1）应用程序命令自动加载一些我常用的LISP。
a）输入命令-用于日常LISP
b）快捷方式图标按钮-对于偶尔但必要的LISP，我必须创建一个带有脚本的快捷方式（因为我记不起这么多）来激活它们

2）将LISP从windows资源管理器拖动到autocad中
仅在特定任务期间使用

3） AutoCAD工具选项板
我也尝试过这个&
赞成的意见
-我可以完整描述LISP的功能
欺骗
-一直打开它会占用大量的工作空间
-由于它一直处于关闭状态，每次需要访问LISP时，我都需要按CTRL+3

无论如何，主要是1b）。LISP的类型越来越多，甚至越来越难记住快捷方式图标的含义，即使会弹出一个描述，但需要时间才能找到我需要的。

因此，希望获得有关如何在AutoCAD中高效管理LISP以实现快速访问的建议。

有什么建议吗？

谢谢

dbroada · 发表于 2022-7-5 20:09:59

我没有使用那么多，但我把它们存储在一个路径文件夹中。然后，我需要的几个将被调用并从命令行加载。

copy

(load "myLisp")
myLisp

然后，我在桌面上有一些（两个监视器），可以拖到当前窗口中。

最后，在工具选项板上有一对被设置为“自动隐藏”。这只有当你把rusor放在上面时才可见，所以只占屏幕的一小部分。调色板也可以放在第二个屏幕上，但我经常使用它，所以不想离开主屏幕。

Organic · 发表于 2022-7-5 20:10:26

我的桌面上有一个lisps文件夹（其中许多是Lee Mac）。AutoCad启动时，所有LISP都会自动加载到启动套件中。

然后，我有两个自定义工具栏，其中包含我每天/每周使用的最常见的lisp命令。

David Bethel · 发表于 2022-7-5 20:18:14

对于我不记得的事情，最有帮助的一件事是，多年来，我一直非常一致地让每个lsp文件的第三行包含对程序的注释/描述。

copy

;=======================================================================
;    BLK-FIXG.Lsp                                    Mar 10, 2014
;    Search BLOCK Table By DXF Pairs And Then Update those BLOCKs By Group

然后，我做了一个基于通配符模式的搜索例程。lsp名称或仅搜索全部。术语或短语的lsp。

关于加载，快捷方式样式1：

acad。lsp（acaddoc.lsp）

copy


;;;MILLWORK
(defun c:mcb ()(if (not mcb_)(load "MILL-CB"))(mcb_))
(defun c:mct ()(if (not mct_)(load "MILL-CT"))(mct_))
(defun c:mws ()(if (not mws_)(load "MILL-STR"))(mws_))
(defun c:mi ()(if (not mi_)(load "MILL-ISL"))(mi_))

HTH-David

vernonlee · 发表于 2022-7-5 20:22:37

这意味着您可以创建新的命令[使用脚本命令，例如c^c^（加载……）测试；]有图标吗？

vernonlee · 发表于 2022-7-5 20:23:41

你能就此私奔吗？谢谢

BIGAL · 发表于 2022-7-5 20:29:50

Casacading菜单是另一种简单的方法。这些可以是sub-sub等。

Organic · 发表于 2022-7-5 20:33:32

确切地

我已经习惯了，现在我忘记了这一步。

David Bethel · 发表于 2022-7-5 20:39:30

类似这样：

[code][颜色=#8b4513]=======================================================================；SL.LSP 2014年5月9日；基于文件名和描述搜索[color]；============独立程序======================================（defun c:sl（/path st dir ss ll sw1 sw2 sw3 l3 rf dl i）（[/color b]setq path“/acad/ut/”[b[/color=FUCHSIA]（initget 1“*前缀通配符”（setq st（getkword“\n文件搜索标准-前缀/通配符/*：“）（cond（color=st“*”[color=栗色][/color （setq ss“*”）（setq dir（mapcar的strcase（dos_dir b]（strcat path“*.lsp”[红色）[color=蓝色][color=绿色][color=栗色]）[color][（=st“Prefix”（而（不是（SNSS）（setq ss（strcase（getstring“\nLSP文件前缀：“]]]（setq dir b]（mapcar strcase（）dos\u dir（strcat路径ss“*.lsp”（（=st“通配符”）（setq ss（strcase（getstring“\n Wildcard图案：（setq dir b]（mapcar strcase（dos\u dir b][color=RED/color]strcat路径“*.lsp”）（foreach l dir（wcmatch（substr l 1[color=紫色]（-（strlen lstrlen ll）4ss（setq ll（setq dir ll）[/color=（if dir（progn（setq sw1（getstring t“\n搜索短语1:）（if（[/color b]=sw1[color=绿色] （setq sw1“*”sw2“”sw3“”（progn b]（setq sw2（getstring tF]“\n搜索短语2: （如果（=sw2（setq sw3（[/color b]progn b][color=紫色]（setq sw3（getstring t“\n搜索短语3:（princ“\n搜索…\n”（[/color=MAROON/colorsetq dir[color=绿色]（[/coloracad\U strlsort dir（foreach f dir（strcat“\r”（substr f 1[color=紫色]（--（[strlen f4）（setq rf（open b]（strcat路径f“r”）[/color b][[颜色=绿色]（重复3[color=蓝色](setq l3（read line rf（（和l3（；”（substr l3 1 1）（>（strlen l3）3[/color b][color=BLUE b]（foreach s（list sw1 sw2 sw3[CO=RED）（和（/=s“”（wcmatch（strcase l3（strcat“*”[color]=OLIVE]（小写s）“*”（setq dl[c

SLW210 · 发表于 2022-7-5 20:42:56

I never use the startup suite.

I load frequently used stuff with ACADDOC.LSP from my pathed LISP folder, that's not very many these days. The rest I usually drag and drop.

Like dbroada, my palettes are also Autohide as small buttons on the right, along with Properties, XREF Manager, Design Center and Calculator.

Also, like dbroada, I will type the code on the commandline.

P.S. Previously I did like BIGAL, menus, that's an excellent way if you have a lot you use frequently.

[编程交流] 你们怎么管理你们的LI

发表回复

精选推荐