几个简单的lisp routin
我不是一个Lisp程序的大师，但偶尔我也会写一些简单的例行程序可以提高我的工作效率。我一直在用这些所以
这些已经过测试。
这是层隔离：lai型
（defun C:lai（）（命令“layiso”PAUSE““P”）
（提示“nlayer已隔离。”）
这是用于层单选的：类型lau
（defun C:lau（）（命令“layunso”PAUSE““P”）
)
最后一个是针对我们这些使用autocadclassic工作区的人
它将打开阵列对话框。类型acl
（defun c:acl（）（命令“arrayclassic”）
) 1.当你发布代码时，一定要把它放在括号里，否则mods会对你大喊大叫。
2.你为什么不更新acad。pgp添加命令？似乎您的代码只是在更改普通命令的命令调用。只有我的2美分 谢谢你的提醒。我不确定括号是什么。
我写了一些类似lisp的小东西来执行命令击键
我会记住一些简短的事情。我有自己的lisp文件
在过去的20年里，我一直在添加。
我不会弄乱pgp文件。 发布时，在开始处使用#选项或，在结束处使用（没有空格仅用于显示）
我对这一点很陌生（7年了），也许有一段时间我是个新手。pgp有点让人望而却步，但现在，不要害怕。
如果你敢打开你的门。pgp文件，工具（在菜单栏中）在列表底部附近向下自定义，然后单击编辑pgp，
还有你的。pgp将在记事本中打开。如果你一直滚动到那一长串东西的底部，你会来到一个想要个性化的区域，如屏幕截图所示。在新安装中，它将是空的，等待您添加任何自定义缺点。不需要编辑此节期间以上的任何内容。稍后，在输入任何个性化设置后，您需要以所示的格式保存。pgp。添加一些内容后，使用REINIT命令将其立即投入使用，而无需重新启动。
下次您迁移到新版本时，所有这些自定义项都将自动随车提供，如果有任何冲突，它们将超越本节上面的默认别名。这意味着，如果您使用默认ootb列表中使用的别名，则它将被接受并更改为您的规范。
还是害怕吗？
还有一种更简单的方法，ALIASEDIT命令，它将为您执行完全相同的操作，但不需要打开可怕的。这一切都将在屏幕上的一个小对话框中完成。只需在关闭对话框之前确认任何更改。这个命令将把它们写入同一个用户定义的别名部分，没有混乱，没有混乱。
我也使用工具栏，在我看来，你可能不熟悉LAYERS 2工具栏上的所有优秀工具。看看他们，你会很高兴你做到了。你可能只是遇到了几个老朋友，以及一些新的（层走很酷）之一。
这很有趣，因为pgp是我第一次被教如何编辑以自定义autocad。。。 很少有人不使用lisp来做任何事情，但在本例中，您使用的是具有某些功能的命令，在本例中，这些功能是您自己掌握的。也就是说，不要停止使用LISP让你的生活变得更轻松。 我们有自动加载。lsp只在启动时加载，所以我们的所有别名都在其中，更新到新版本时只需少一步。它甚至在其快照设置中有4种方式的首选项，以适合人们喜欢的工作方式。
Re toolbars考虑从许多工具栏中窃取一些信息，以使其变得更易于使用。将其另存为MNU文件，只需菜单加载即可。我只是用崔和笔记本打开的同时，复制和粘贴之间的两个得到正确的代码。
***MENUGROUP=ALANSTOOLBAR
***TOOLBARS
**ALANSTOOLS
ID_ALAN_0
AECC_ShowTS^C^C^C^P_ShowTS
ID_Matchprop ^C^C_matchprop
ID_Erase ^C^C_erase
ID_Copy $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy)
ID_Mirror $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_mirror,^C^C_mirror)
ID_Offset ^C^C_offset
ID_Array ^C^C_array
ID_Move $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
ID_Rotate $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_rotate)
ID_Scale $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_scale,^C^C_scale)
ID_Stretch $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_stretch,^C^C_stretch)
ID_Trim ^C^C_trim
ID_Extend ^C^C_extend
ID_BreakSele ^C^C_break \_f \@
ID_Break ^C^C_break
ID_Join ^C^C_join
ID_Chamfer ^C^C_chamfer
ID_Fillet ^C^C_fillet
ID_Explode ^C^C_explode
ID_LAYFRZ ^C^C_layfrz
ID_LAYOFF ^C^C_layoff
ID_LAYISO ^C^C_layiso
MM_LAYUNISO^C^C_Layuniso
ID_LAYDEL ^C^C_laydel
ID_Line ^C^C_line
MM_1608 ^C^C_circle
MM_1607 ^C^C_arc
ID_Pline ^C^C_pline
ID_Pedit ^C^C_pedit
ID_DrawordeB ^C^C^P_ai_draworder _Back ^P
ID_Appload ^C^C_appload
**ALANSTOOLS2
ID_ALAN_1
CL ^C^C^C-la s Design-Clline;
Lip ^C^C^C-la s Design-Lipline;
Bok ^C^C^C-la s Design-Bokline;
Conc ^C^C^C-la s Design-Generalline;
Drive ^C^C^C-la s Design-Drivewayline;
Draincl ^C^C^C-la s Design-Drainage-Clline;
Draininv ^C^C^C-la s Design-Drainage-Invertline;
Drainpit ^C^C^C-la s Design-Drainage-Pitsline;
Housedrain ^C^C^C-la s Design-Drainage-House-drainline;
Linemark ^C^C^C-la s Design-Linemarkingsline;
Hatch ^C^C^C-la s Design-Hatchhatch;
Pathatch ^C^C^C-la s Design-Hatch-pathhatch;
Nathatch ^C^C^C-la s Design-Hatch-naturestriphatch;
Text ^C^C^C-la s Texttext;
Text2 ^C^C^C-la s Texttext;
MiddlePt MTP;
ZZZ ^c^cZZZ;
Alloff ^c^c^c(setq surface "_COGG All Off")(load "vercheck")(load "listselect")(load "changecontours6")
50mm ^c^c^c(setq surface "_COGG NS 0.05 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
100mm ^c^c^c(setq surface "_COGG NS 0.1 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
200mm ^c^c^c(setq surface "_COGG NS 0.2 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
500mm ^c^c^c(setq surface "_COGG NS 0.5m Contours")(load "vercheck")(load "listselect")(load "changecontours6")
1m ^c^c^c(setq surface "_COGG NS 1m Contours" )(load "vercheck")(load "listselect")(load "changecontours6")
Triangles ^c^c^c(setq surface "_COGG NS Triangles" )(load "vercheck")(load "listselect")(load "changecontours6")
Slope ^c^c^c(setq surface "_COGG Slope Arrows & Catchments" )(if (not AH:Vercheck)(load "vercheck"))(if (not AT:ListSelect)(load "listselect"))(if (not AH:Changecont)(load "changecontours6"))
Delard ^c^c^c(if (not XXX)(LOAD "del-ard") ) xxx
ID_Ddim ^c^c_dimstyle
ID_Dimaligned^c^c_dimaligned
ID_Dimlinear ^C^C_dimlinear
ID_Mleader_Style^c^c_mleaderst
M2P (command "M2P")
谢谢各位，
你可以教老狗新把戏。我知道当我发现这个地方的时候
是一个有丰富知识和知识的人里面。
我有很多事情要做。我一直相信虽然下拉菜单
工具栏很棒，我花在找东西上的时间不是花在找东西上的时间
绘画这就是我Lisp程序的原因。我编译了一个大型lisp例程，我已经
加上90年代以来我记得的所有短击键命令
所以我可以让打字的手和鼠标的手保持一致。用这些新把戏
我也许可以删掉我的lisp文件。
再次感谢
页:
[1]