图层管理.lsp
更改对象图层lsp
)
(command "-Layer" "C" "1" "Center" "" "-layer" "L" "Center" "Center" "")
;***当Center图层存在时，调用"-layer"命令更改图层颜色为红色,修改线型为Center***
(command "change" gp "" "P" "LA" "Center" "lt" "bylayer" "C" "bylayer" "S" "5" "")
;***更改图元对象属性***
(PRIN1);***控制不出现nil***
)
;***更改选定的对象至Center图层，如果Center图层存在则更改图层颜色为红色、线型为中心线，更改选定对象颜色、线型随层，线性比例为5;如果Center图层不存在则新建Center图层，设定图层颜色为红色、线型为中心线，设置选定对象颜色、线型随层，线性比例为5***
(defun C:lc ()
(prompt "将对象更改至图层Center")
(setvar "cmdecho" 0);***设置不显示操作命令***
CAD图层管理的技巧
CAD图层管理的技巧CAD（计算机辅助设计）是工程设计中常用的软件，图层是CAD 中非常重要的功能之一。
良好的图层管理可以提高设计效率和绘图质量。
本文将介绍一些CAD图层管理的技巧，帮助您更好地利用CAD 软件进行设计工作。
1. 命名规范在创建图层之前，首先需要建立一套清晰的命名规范。
命名规范应简洁明了，便于理解和管理。
例如，可以按照不同元素的类型来命名图层，如建筑、结构、水电等。
此外，还可以根据图层的用途来进行命名，如参考图层、标注图层等。
通过良好的命名规范，可以有效地管理大量的图层。
2. 图层组织CAD软件通常能够创建图层组，用于更好地组织和管理图层。
使用图层组可以将相关的图层放在一起，方便查找和控制。
例如，您可以将建筑相关的图层放在一个建筑图层组中，将结构相关的图层放在一个结构图层组中。
通过图层组织，可以更快速地切换显示或隐藏相关的图层，提高工作效率。
3. 图层颜色在设计中，不同的元素通常具有不同的含义或用途。
通过在CAD 中设置不同图层的颜色，可以更加直观地反映元素的属性。
例如，将建筑的图层设置为蓝色，结构的图层设置为红色等。
这样做有助于快速识别不同元素，便于进行修改和调整。
4. 图层属性除了颜色外，还可以通过设置图层的其他属性来管理图层。
例如，可以设置图层的线宽、线型、透明度等。
通过设置这些属性，可以实现更加精细的控制。
例如，将标注的图层线宽调大，使其在绘图中更加突出。
而将参考的图层设置为半透明，以区分于其他图层。
通过合理设置图层属性，可以达到更好的设计效果。
5. 冻结和锁定CAD软件中，冻结和锁定是非常有用的功能。
通过冻结图层，可以暂时隐藏不需要显示的图层，以加快绘图速度。
而通过锁定图层，可以避免对其进行误操作，保护图层的完整性。
根据需要，您可以随时冻结或锁定不同的图层，以灵活控制显示和编辑。
6. 图层过滤当涉及到大型工程设计时，可能存在大量的图层。
在这种情况下，使用图层过滤功能可以大大提高效率。
CAD图层状态管理 控制图纸元素的显示与隐藏
CAD图层状态管理：控制图纸元素的显示与隐藏在使用CAD软件进行绘图时，我们会遇到许多不同的图层，每个图层上可能包含有不同类型的元素，比如线条、文字、尺寸标注等。
为了更好地管理和控制图纸元素的显示与隐藏，掌握CAD图层状态管理是非常重要的技巧。
在CAD软件中，图层可以类比为透明的薄纸，在绘图过程中可以叠加使用。
通过控制图层的显示与隐藏，我们可以更方便地编辑和查看图纸，提高绘图效率。
下面将介绍几种常用的CAD图层状态管理方法。
一、显示和隐藏图层1. 打开Layer属性管理器：在CAD软件中，点击【格式】-【图层】-【图层属性管理器】，或者直接使用键盘快捷键“LA”，即可打开图层属性管理器。
2. 显示图层：在图层属性管理器中，可以看到各个图层的列表。
要显示图层，只需在图层名称前面勾选对应的复选框即可。
当复选框被勾选时，该图层上的元素将会显示在图纸上。
3. 隐藏图层：同样，在图层属性管理器中，要隐藏图层，只需在图层名称前面取消对应的复选框即可。
当复选框没有被勾选时，该图层上的元素将不会显示在图纸上。
二、图层冻结和解冻1. 冻结图层：在某些情况下，我们可能需要将某个图层的元素暂时隐藏，但又不希望影响到其他图层。
这时，我们可以使用图层的冻结功能。
在图层属性管理器中，选中要冻结的图层，在右侧的“冻结”一栏中点击，即可将该图层冻结。
冻结后，该图层上的元素将不会显示在图纸上，但不会被删除。
2. 解冻图层：当我们需要重新显示被冻结的图层时，只需在图层属性管理器中，选中被冻结的图层，在右侧的“冻结”一栏中取消勾选即可解冻。
解冻后，该图层上的元素将重新显示在图纸上。
三、图层锁定和解锁1. 锁定图层：有时候我们可能需要将某个图层锁定，以防止被误操作修改。
在图层属性管理器中，选中要锁定的图层，在右侧的“锁定”一栏中勾选即可锁定该图层。
锁定后，该图层上的元素不能被编辑或删除。
2. 解锁图层：当我们需要编辑被锁定的图层时，只需在图层属性管理器中，选中被锁定的图层，在右侧的“锁定”一栏中取消勾选即可解锁。
CAD中使用图层和样式管理器的方法
CAD中使用图层和样式管理器的方法在CAD软件中，图层和样式管理器是非常重要的工具，可以帮助用户有效地管理设计图形的外观和布局。
本文将介绍如何使用图层和样式管理器来优化CAD设计的过程。
首先，我们来了解一下图层管理器。
在CAD中，图层可以看作是设计图中的不同层次，通过将设计元素分配到不同的图层上，可以更好地组织和控制设计。
以下是使用图层管理器的步骤：1. 打开CAD软件，并创建一个新的绘图文件。
2. 点击CAD界面上的“图层管理器”图标，或者输入“LA”命令来打开图层管理器。
3. 在图层管理器中，可以看到当前文件中已存在的图层。
可以添加、删除、重命名图层，也可以更改图层的颜色、线型和线宽等属性。
4. 选择要操作的图层，并点击相应的按钮来进行操作。
例如，点击“新建图层”按钮可以创建一个新的图层；点击“删除图层”按钮可以删除选定的图层。
5. 在图层管理器中，还可以设置图层的可见性和冻结状态。
通过将某些图层设置为不可见或冻结，可以更好地隔离和控制设计元素。
6. 将设计元素分配到不同的图层上。
在CAD绘图界面中，使用命令“层”或者点击工具栏上的“图层”按钮来选择当前绘图元素所在的图层。
接下来，我们来了解一下样式管理器。
样式是指CAD绘图元素的外观属性，例如线型、线宽、颜色等。
样式管理器可以帮助用户统一和管理设计元素的样式。
以下是使用样式管理器的步骤：1. 在CAD软件中创建一个新的绘图文件。
2. 点击CAD界面上的“样式管理器”图标，或者输入“ST”命令来打开样式管理器。
3. 在样式管理器中，可以看到当前文件中已存在的样式。
可以添加、删除、重命名样式，也可以更改样式的属性，如线宽、线型和颜色等。
4. 选择要操作的样式，并点击相应的按钮来进行操作。
例如，点击“新建样式”按钮可以创建一个新的样式；点击“删除样式”按钮可以删除选定的样式。
5. 在样式管理器中，还可以设置样式的默认属性。
在设计过程中，只需选择所需的样式，即可将其应用于相应的设计元素上。
CAD 如何使用图层管理器
CAD 如何使用图层管理器CAD（计算机辅助设计）是一种广泛应用于工程、建筑和制图行业的软件工具。
其中，图层管理器是CAD软件中非常重要且常用的功能之一。
它能够帮助用户对绘图文件中的各个图层进行管理和控制，使绘图工作更加高效和灵活。
首先，让我们来了解一下CAD软件中的图层是什么。
图层是一种将绘图文件中的线条、文字、图形等元素分类和组织的方式。
通过使用图层，我们可以对绘图文件进行分组，便于对不同部分进行编辑和管理。
CAD软件中的图层管理器主要由图层列表、图层状态和图层属性组成。
通过图层列表，我们可以查看和选择当前绘图文件中的所有图层。
图层状态可以用来控制图层的可见性、锁定状态和打印属性等。
而图层属性则决定了图层的颜色、线型、线宽等显示和编辑属性。
使用图层管理器，我们可以轻松地在绘图文件中创建、编辑和删除图层。
下面是一些使用图层管理器的常见技巧和方法：1. 在图层列表中创建新图层：在图层管理器中，我们可以通过点击“新建图层”按钮或右键点击列表空白处来创建新图层。
然后，可以为该图层设置相应的名称和属性。
2. 编辑图层属性：通过双击图层列表中的图层名称，我们可以进入图层属性对话框，从而对图层的属性进行修改。
如需更改图层的颜色、线型或者线宽等，都可以在此完成。
3. 控制图层的可见性和锁定状态：在图层管理器中，我们可以通过点击图层前面的方框来控制图层的可见性。
勾选方框表示图层可见，取消勾选表示图层隐藏。
同样地，我们可以使用方框后面的锁定图标来锁定或解锁图层，以防止意外的修改。
4. 设置图层的打印属性：在绘图文件中，我们可以通过图层管理器将某些图层设置为不可打印，以控制打印输出的内容。
在图层列表中，通过点击相应图层名称后的打印按钮，即可设置图层的打印属性。
5. 快速切换图层：通过使用图层管理器中的“切换图层”功能，我们可以快速在不同图层之间进行切换。
只需在列表中选择目标图层，然后点击“切换到图层”按钮即可。
除了上述基本的图层管理功能，图层管理器还提供了进一步的高级功能。
CAD图层管理与筛选方法
CAD图层管理与筛选方法在使用CAD软件进行设计和绘图时，图层的管理和筛选是非常重要的。
图层的好坏直接影响到绘图的效率和准确性。
因此，掌握CAD 图层的管理和筛选方法是每个CAD设计师必备的技能之一。
首先，让我们了解一下CAD图层的概念。
图层可以看作是绘图时的虚拟平面，我们可以将不同的对象分别放置于不同的图层上。
通过将对象分层，我们可以更加方便地控制和编辑各个对象，提高工作效率。
在进行CAD设计时，我们可以根据需要创建多个图层，并将不同的对象分配到不同的图层上。
一、图层的创建与管理在CAD软件中，我们可以通过以下步骤创建和管理图层：1. 打开CAD绘图软件，并选择“图层管理器”命令。
图层管理器是一个用于创建、修改和管理图层的强大工具。
2. 在图层管理器对话框中，点击“新建”按钮来创建一个新的图层。
输入图层名称，并设置所需的图层属性，如颜色、线型和线宽等。
我们可以根据需要创建多个图层。
3. 在创建完图层后，我们可以通过勾选/取消勾选来设置图层的可见性。
如果某个图层被取消勾选，则该图层上的对象将不会显示在绘图界面上。
4. 还可以通过拖动图层的顺序来调整图层的显示顺序。
较高的图层将覆盖较低图层上的对象。
5. 可以使用命令“冻结”、“锁定”或“切换”来控制图层的显示或编辑。
二、图层的筛选与组织在进行复杂的CAD设计时，我们常常需要筛选和组织图层，以便更好地管理和编辑对象。
下面是一些常用的图层筛选和组织方法：1. 筛选图层：在图层管理器中，我们可以使用搜索框来筛选出特定名称或属性的图层。
通过输入关键词，我们可以快速找到所需的图层。
2. 图层组：在图层管理器中，我们可以使用图层组来组织和管理多个相关的图层。
通过将相关图层放置在同一个组中，我们可以方便地管理和控制这些图层。
3. 关联图层：在图层管理器中，我们可以将某一图层关联到另一图层上。
这样，当我们更改关联图层的属性时，被关联的图层也会同步更改。
4. 换层：在绘图时，我们经常需要将某个对象从一个图层转移到另一个图层。
CAD图层管理（必要技能）
CAD图层管理（必要技能）
CAD里面的参数设置有很多，自己去看一些教程都会有很全的参数设置，看的是云里雾里，看完后基本全忘了（我以前就是这样的）。
但我想说的是在你CAD刚入门时需要注意的参数设置没几个，因为很多设置基本用不到，只要把常用的几个记住就行了，我就先讲图层管理。
图层管理：打开“LA”命令，就能出现这个页面，我也就讲前几个常用到的功能。
图层管理就是等要画建筑图（包括平面、立面、剖面、详图等）之类的要用到，反正是画越复杂的图就越要用到，它的功能就是将各种对象进行分类简化，比如说门窗，墙体，家具，楼梯之类的，进行分类管理对象。
（讲的有点抽象，大家可以对着练习）
.
.
①开：将对象显示出来，关掉对象会消失掉（不可见）。
举个例子，图一楼梯图层为“STAIR”是打开的状态，图二是关闭的状态。
1
2
②锁定：就是改图层上的实体可见但不可编辑（无法选中该实体），可以用于修改拥挤稠密的图，这样就不担心错误的改动其他物体。
③线型、线宽：在图层管理里更改的话就是改图层的所有实体都会改变。
1.线型更改为虚线或者点划线的话，要记得调整线型比例
2.线宽更改过程记得要开启“显示线宽”，不然看不出来更改效
果
1
2
线型比例更改方法：
按住Ctrl+1，弹出目标特性框（图中左半部分）
选定楼梯，目标特性框显示为选中楼梯的特性内容
更改线型为“线型1”即虚线，线型比例为10，看到图中线型并没有改变（其实线型由直线已变为虚线）
如图中将线型比例更改为1，楼梯即变为虚线（可以理解为线型比
例越大，虚线的每一小段越长）
楼梯变为虚线。
标注并提取插件.lsp
(setq x2 (car (nth counter point_list)))
(setq y2 (cadr (nth counter point_list)))
(setq pl_area (+ pl_area (- (* x1 y2) (* y1 x2))))
(princ "（1）从图上选取已有名称（2）输入附作物（默认为1）：")
(setq fzw_Name (getreal))
(if (/= fzw_Name 2)
(progn
(setq fzwhName (ssname (ssget) 0))
(setq zfzw_Name (cdr (assoc 1 (entget fzwhName))))
(entmake (list '(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS")
'(62 . 1)
(setq IsFile (open (strcat GZWJ "宗地编号.txt") "r"))
(if (= IsFile nil)
(progn
(setq fp (open (strcat GZWJ "宗地编号.txt") "w"))
(write-line "1" fp)
制作专业级的PSD文件 图层管理技巧
制作专业级的PSD文件：图层管理技巧图层是PhotoShop软件中最重要的功能之一，它可以帮助我们创建和编辑图像。
在制作专业级的PSD文件时，图层管理技巧是必不可少的。
本文将介绍一些实用的图层管理技巧，帮助您更高效地操作和管理图层。
1. 使用图层分组：当您的PSD文件包含多个图层时，使用图层分组可以将相关联的图层组织在一起，方便管理。
选择要分组的图层，然后在图层面板的底部点击“新建组”按钮，为该组命名。
您还可以在组内创建子组，以进一步整理图层的结构。
2. 标识图层：给每个图层添加清晰的标识，可以方便地识别和操作它们。
可以在图层命名旁边的文本框中输入有意义的描述，例如“背景图层”、“文字图层”等。
还可以使用颜色标签来区分不同类型的图层。
3. 锁定图层：在进行复杂的图层操作时，为了避免不小心移动或编辑其他图层，可以将不需要操作的图层锁定。
选择要锁定的图层，然后在图层面板上方的小锁图标上单击即可。
4. 利用隐藏图层：如果某个图层暂时不需要显示或编辑，可以将其隐藏起来。
选择要隐藏的图层，然后点击图层面板右侧的眼睛图标，该图层将会隐藏。
隐藏的图层不会显示在画布上，但仍然存在于文件中，可以随时重新显示出来。
5. 合并图层：当您完成某个图层的编辑工作后，可以选择将其与其他图层合并为一个图层，以便更好地管理文件。
选择要合并的图层，然后使用快捷键Ctrl + E（Windows系统）或Cmd + E（Mac系统）来合并图层。
6. 使用图层样式：图层样式可以帮助您快速添加效果和修饰图层，如阴影、发光和描边等。
选择要添加样式的图层，在图层面板的底部点击“添加样式”按钮，选择适合的样式并进行调整。
您还可以将样式应用于图层分组，以一次性为多个图层添加相同样式。
7. 设置图层透明度和混合模式：通过调整图层透明度和混合模式，可以改变图层与其他图层的融合效果。
在图层面板上方的透明度滑块处调整透明度，通过在下拉菜单中选择适当的混合模式来改变图层的外观。
CAD图层操作命令
CAD图层操作命令CAD图层操作命令CAD的图层操作主要有三个⽅法：1，打开图层菜单，开关或锁定、冻结特定图层。
适⽤于全局操作，可速度太慢，多次重复操作会感觉太繁琐。
2，使⽤Express下拉菜单中的图层操作，或使⽤图层操作图标。
命令很实⽤，但⿏标来回精确移动点击也慢。
3，使⽤Express下拉菜单中的图层操作，但改⽤快捷键输⼊。
快捷键最好设于键盘左侧，左⼿⼿指不⽤移位或只移⼀格就能把快捷键输出。
左⼿键盘右⼿⿏标，协同操作速度是最快的。
各⼈应制定⼀套固定的快捷键，经反复使⽤，在熟练之后，⿏标键盘如臂指使，灵活运⽤图层切换操作，可以节省⼤量时间。
画图有多快？看你的思维有多快！建议使⽤的常⽤命令快捷键设定：AC, *LAYCUR 把所选图形放到当前图层⾥⾯AS, *LAYISO 独⽴图层AF, *LAYFRZ 冻结图层AAF, *LAYTHW 解冻图层AQ, *LAYLCK 锁定图层AAQ, *LAYULK 解锁图层CV, *LAYOFF 关闭图层ZX, *LAYON 打开图层AM, *LAYMCH 把第⼀次选择的图形放到第⼆次选择图形的图层⾥⾯Q, *ai_molc 将对象图层置为当前。
DQ，就是当前喽。
TC, *LAYER 图层对话框。
图层⾸字母。
TTC, *layerp 上⼀个图层状态。
多加了⼀个T，和上⾯的命令区别开TCC, *copytolayer 将图对象复制到XX图层，选好对象后，空格，会出⼀个对话框，TD, *layon 图层打开TF, *layoff 图层关闭TG, *layiso 将对象所在图层孤⽴出来，即，关闭除对象图层外的所有图层。
⽀持多选。
TS, *laylck 图层锁定TSS, *layulk 图层解锁，多加了个S，和上⾯的区别开。
TTh, *laymrg 图层合并，具体⽤法我不记得了。
呵呵。
只是当时定义了⼀下。
TZ, *layfrz 图层冻住。
TZZ, *LAYTHW 图层解冻Tq, *LAYCUR 将所选对象移动到当前图Tv, *LAYMCH 将对象移动到XX图层，与TTC类似。
CAD软件的图层管理技巧
CAD软件的图层管理技巧图层是CAD软件中非常重要的概念，它能够帮助我们对绘图进行分类和组织，使得绘图更加清晰、直观。
本文将为大家介绍一些CAD软件中图层管理的技巧。
1. 命名规范：为了方便管理和识别图层，我们可以给图层起一个有意义的名称。
命名可以根据不同的功能、对象或材料进行分类。
例如，我们可以将所有线条放在一个名为"线条"的图层中，将所有尺寸标注放在一个名为"标注"的图层中，以此类推。
2. 图层颜色设置：在CAD软件中，我们可以通过为每个图层设置不同的颜色，以帮助我们快速区分不同的图层。
例如，我们可以将线条图层设置为红色，尺寸标注图层设置为蓝色，填充图层设置为黄色等等。
这样在编辑和查看图纸时就能够清晰地看到各个元素。
3. 图层锁定与解锁：有时候我们希望保护某些图层不被意外修改，这时就可以使用图层锁定功能。
锁定后的图层无法编辑，可以有效避免误操作。
当我们需要修改锁定的图层时，可以通过解锁图层来进行编辑。
4. 图层冻结与解冻：在图纸中，有时候我们需要暂时隐藏某些图层，以便更清晰地查看其他图层。
这时，我们可以使用图层冻结功能。
冻结后的图层不会显示在图纸中，但可以随时解冻以展示出来。
5. 图层可见性过滤：当图纸中有大量的图层时，我们可以使用图层可见性过滤功能来快速显示或隐藏指定的图层。
这可以帮助我们在复杂的图纸中快速定位到需要的内容，提高工作效率。
6. 图层设置为参考：有时候我们需要在图纸中引用其他文件或图层的内容，可以将其设置为参考图层。
参考图层可以在当前图纸中显示，但不能修改，这有利于在进行编辑时保持准确。
7. 图层属性继承：在使用CAD软件绘制图纸时，我们可以设置图层属性继承。
这意味着，在创建新对象时，新对象会自动继承所在图层的属性，例如颜色、线型等。
这样可以减少重复操作，提高绘图效率。
8. 图层状态管理：当我们在绘图过程中需要切换不同的图层状态时，可以使用图层状态管理功能。
CAD图层管理方法
CAD图层管理方法在使用CAD软件进行绘图时，图层管理是一个非常重要的环节。
良好的图层管理方法可以提高绘图效率，使得图纸更加清晰易读。
本文将介绍一些常用的CAD图层管理方法和技巧。
1. 图层命名规范在开始使用CAD软件进行绘图之前，首先需要建立一套图层命名规范。
合理的图层命名可以帮助用户更好地组织和管理图层，方便后续的编辑和修改。
通常，可以按照元素的类型和功能来进行图层命名，例如“墙体”、“窗户”、“标注”等。
2. 图层的创建与设置CAD软件提供了创建和设置图层的功能，用户可以根据绘图需要自定义图层。
在创建图层时，可以设置图层的颜色、线型、线宽等属性。
合理设置这些属性可以使图层显示更加清晰和直观。
3. 图层的显示与隐藏在进行绘图时，可能会需要隐藏某些图层，以便更好地查看和编辑其他图层。
CAD软件提供了图层的显示与隐藏功能，用户可以根据需要选择性地显示或隐藏特定图层。
这样可以减少混乱和干扰，提高绘图效率。
4. 图层的锁定与解锁有时候，为了避免误操作或者意外的修改，可以将一些图层锁定起来。
锁定后的图层无法被编辑和修改，但可以被查看。
锁定图层可以有效保护绘图的完整性，特别对于一些重要的图层来说非常有用。
5. 图层的管理与组织CAD软件通常提供了图层管理功能，可以对图层进行组织和管理。
用户可以根据需要对图层进行分类、排序和分组，方便对图层进行快速的切换和选择。
同时，可以对不再需要或者暂时不用的图层进行删除或隐藏，以减少文件大小和提高性能。
6. 图层的复制与剪切有时候，为了提高绘图的效率，可以对已有的图层进行复制和剪切。
复制图层可以在不修改原始图层的基础上进行二次编辑和修改，而剪切图层可以将其移动到其他文件或位置上。
这些操作可以极大地提高绘图的灵活性和效率。
7. 图层的颜色与线型CAD软件允许用户对图层的颜色和线型进行自定义和修改。
通过设置不同的颜色和线型可以使得不同图层之间的区分更加明显，同时也可以增加图纸的美观度和可读性。
lisp教程
面积统计.LSP
不错的小程序，关键还是源代码，谢谢，很实用！不会用的朋友可以将文件打开后，直接将程序内容，拷到你的cad安装目录下support文件夹里的acad2004.lsp（cad2006是acad2006.lsp）里，这个文件用记事本打开，将程序的内容贴到后面就行了，注意简化命令是defun C：后的、（前面的那几个字符，谢谢楼主！
亩和平方米的互换.lsp
删除鼠标框内交点之间的线段.LSP
动态查询信息程序.LSP
单独提取图层程序.
把面积写在图上.lsp
文字对齐程序.lsp
直接在图上写出这个范围的面积.LSP
自动计算面积.lsp
计算总长度的程序.lsp
调整对象XY比例.LSP
多重块的解决办法
1、先在图层管理器里将锁定图层打开；
2、选中该“多重插入块”，在其属性里将行、列均改为“1";
3、在工具栏下加载应用程序打开了含有多重插入块的图形文件里加载“exm.lsp”，将文件后缀名选为.lsp,会看到对话框下显示加载成功，
在CAD命令行里运行“exm”根据提示选中多重插入块； 选择下一个多重插入块可以直接右键退出。
4、运行“ode”就可以将 多重插入块分解，修改了。
CAD按图层单文件分发多文件lsp
CAD按图层单文件分发多文件lsp
1、打开电脑中你所用的CAD的安装目录，找到acad.lsp并打开说明：对于CAD14版，这文件在C:\。
\AutoCAD R14\SUPPORT目录下，文件名是acadr14.lsp；（或者在D盘或E盘，大小是18K）对于CAD2005版，这文件在C:\。
\AutoCAD 2005\Support目录下，文件名是acad2005.lsp；（大小是3K）对于CAD2010版，这文件在C:\。
\AutoCAD 2010\Support目录下，文件名是acad2010.lsp；（大小是2K）
2、把《图层操作程序.LSP》中内容全部复制到程序CAD中的acad*.lsp文件，保存并关闭；
3、打开CDA程序，随便打开一个图纸文件在命令行中输入命令：
（1）OL表：打开所有图层。
（2）、FA表：关闭所有图层。
（3）FS表：关闭选中的一个图层，如果还要关闭一个图层，要再输一次命令。
（4）、LB表：关闭除选中图层（可以是1个及1个以上）外的全部图层，即只显示你要显示的图层以上三个版本的CAD我一一试过，均有用。
值得一提的是，当用LB命令后，当前图层仍为原图层，不像ET，变
成了保留打开的那个图层。
以下是在2010版中用了LB命令后图中只显示一个图层（标注层）的图样。
AE图层管理：优化项目工作流程和组织大量的图层
AE图层管理：优化项目工作流程和组织大量的图层AE（Adobe After Effects）是一款广泛使用于视频制作和动态图形设计的软件。
在进行复杂的项目制作时，图层管理是至关重要的一环。
优化图层管理可以提高项目的工作流程效率，并使得对大量图层的组织更加清晰和有序。
下面将详细介绍如何进行AE图层管理，并给出相应的步骤。
1. 确定项目需求在开始进行图层管理之前，首先需要明确项目的需求和目标。
确定项目的主题、风格、时间限制等因素对于后续的图层管理非常重要。
2. 命名图层给每个图层进行命名是图层管理的基础。
合理的命名能够提高工作效率和易读性。
可以根据图层所代表的内容、功能或位置进行命名，例如"标题"、"背景"、"特效1"等。
3. 使用文件夹组织图层将相关的图层放置在文件夹中可以更好地组织和管理图层结构。
可以根据图层的功能和类型进行分组，比如动画效果、文字元素、背景等。
通过文件夹的使用，可以轻松地隐藏或显示所需的图层，从而避免混乱和重叠。
4. 利用图层标签AE提供了丰富的图层标签功能，可以为图层添加颜色标签、名称标签等。
通过使用图层标签可以更好地识别和区分不同类型的图层。
比如可以使用红色标签来表示重要的图层或关键的动画效果，使用蓝色标签来表示文字元素等。
5. 利用图层效果AE提供了各种各样的图层效果，可以为图层添加阴影、发光、模糊等效果。
利用图层效果可以提高图层的可视化效果，并使得整个项目更加生动和有趣。
6. 使用合成器合成器是一种特殊类型的图层，可以将多个图层组合在一起进行操作。
利用合成器可以将某些图层分组，并对其进行整体的调整和管理。
通过合成器，可以对图层进行缩放、旋转、位移等操作，从而更好地控制整体的动画效果。
7. 使用表达式表达式是AE中的一种脚本语言，可以用于自动化操作和控制图层。
通过编写表达式可以减少重复性的工作，提高项目制作的效率。
autocadlsp定义说明
A u t o C a d L s p定义说明-CAL-FENGHAI.-(YICAI)-Company One12 AutoCad Lsp 定义说明(defun c:c ()(command"circle")) 圆 (defun c:cc (/ gp)(setq gp(ssget))(command"copy"gp"""m")重复 ) (defun c:a ()(command"arc")) 圆弧 (defun c:aa ()(command"array")) 阵列 (defun c:b ()(command"break")) 打断(defun c:d ()(command"dist")) 测量(defun c:dal ()(command"dim""ali")) 对齐线性标注(defun c:dan ()(command"dim""ang")) 角度标注 (defun c:dc ()(command"dim""cen")) 圆心标注(defun c:dd ()(command"ddlmodes")) 改变图层 (defun c:de ()(command"ddedit")) 文字编辑 (defun c:dh ()(command"dim""hor")) 水平线性标注 (defun c:dl ()(command"dim""lea")) 引线标注 (defun c:dm ()(command"dragmode")) (defun c:dn ()(command"dim""n")) 改标注文字 (defun c:dr ()(command"dim""rot")) (defun c:cd ()(command"chprop")) 倒角 (defun c:ds ()(command"dimscale")) 标注比例 (defun c:dt ()(command"dtext")) 多行文字 (defun c:di ()(command"divide")) 等分 (defun c:dv ()(command"dim""ver")) 垂直线性 (defun c:du ()(command"dim""update")) 标注更新 (defun c:elp ()(command"elipse")) 椭圆 (defun c:e ()(command"erase")) 删除(defun c:ex ()(command"explode")) 炸开 重复圆 (defun c:ee ()(command"extend")) 延伸 (defun c:f ()(command"fillet")) 倒圆角 (defun c:ff ()(command"offset")) 偏移 (defun c:fs ()(command"files")) 打开文件(defun c:fl ()(command"fill")) (defun c:fr ()(command"fillet""r")) (defun c:fp ()(command"fillet""p")) (defun c:i ()(command"insert")) 插入(defun c:li ()(command"list")) (defun c:ls ()(command"ltscale")) 线型比例 (defun c:mm ()(command"mirror")) 镜像(defun c:pe ()(command"pedit")) 多义线编辑 (defun c:pl ()(command"pline")) 画多义线 (defun c:rg ()(command"regen")) 重画（刷新） (defun c:rr ()(command"rotate")) 旋转 (defun c:s ()(command"line")) 直线 (defun c:sc ()(command"scale")) 缩放 (defun c:st ()(command"stretch""c")) 拉伸 (defun c:tr ()(command"trim")) 剪断 (defun c:x ()(command"explode")) 炸开 (defun c:za ()(command"zoom""a")) 全视图 (defun c:zz ()(command"zoom""p")) 上一个视图快速改变线型命令：(defun c:g1 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "1" ""))(defun c:g2 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "2" ""))(defun c:g3 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "3" ""))(defun c:g4 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "4" ""))(defun c:g5 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "5" ""))(defun c:g6 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "6" ""))(defun c:g7 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "7" ""))(defun c:g0 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "0" ""))(defun c:gc (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "cen" ""))(defun c:gh (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "hid" ""))(defun c:ghh (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "hatch" ""))(defun c:gd (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "dim" ""))(defun c:gt (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "la" "text" ""))。
Lumion8图层管理技巧
Lumion8图层管理技巧Lumion8是一款功能强大的建筑可视化软件，它的图层管理功能可以帮助用户更好地组织和管理项目中的模型、材质和效果。
在本文中，我们将介绍一些Lumion8图层管理的技巧，帮助您提高工作效率和创作质量。
首先，让我们来了解一下Lumion8的图层面板。
在Lumion8中，图层面板位于主界面的右侧，它允许您创建、重命名、删除和调整图层的顺序。
您可以将模型、材质和效果分别放置在不同的图层中，以便更好地控制它们的可见性和渲染顺序。
在图层面板中，每个图层都有一个眼睛图标和一个锁图标。
眼睛图标用于控制该图层的可见性，您可以单击眼睛图标来切换该图层的显示和隐藏。
锁图标用于锁定图层，以防止意外的编辑或移动。
通过合理地使用这些图标，您可以更好地控制图层的可见性和可编辑性，从而提高操作效率。
另一个重要的技巧是使用图层的重命名功能。
当您在Lumion8中导入大量模型时，图层的数量可能会非常庞大。
为了方便管理和识别，您可以为每个图层设置有意义的名称。
您可以右键单击图层，在弹出菜单中选择重命名，并为图层指定一个易于辨认的名称。
通过重命名图层，您可以更快地找到和编辑您需要的内容，提高工作效率。
此外，Lumion8还提供了一些快捷键来加快图层管理的速度。
例如，您可以使用Ctrl+D快捷键来复制选定的图层，这在创建相似的效果时非常实用。
您还可以使用Ctrl+G快捷键将选定的图层组合起来，以便更好地管理和编辑它们。
通过熟悉并合理使用这些快捷键，您可以更快地完成图层管理的任务。
除了基本的图层管理技巧外，Lumion8还提供了一些高级功能，帮助用户更好地控制和定制图层效果。
例如，您可以使用图层面板中的透明度滑块来调整图层的不透明度，从而实现透明效果。
您还可以使用混合模式选项来改变图层的混合效果，例如正常、叠加和屏幕等。
通过灵活运用这些高级功能，您可以获得更好的渲染效果和视觉效果。
在深入分析和扩展之前，让我们回顾一下我们已经探讨的Lumion8图层管理技巧：使用图层面板控制图层的可见性和渲染顺序，重命名图层以方便管理，利用快捷键复制和组合图层，调整图层的透明度和混合模式等。
CADLSP函数集全表要点
第一类数学运算功能函数1.1 (+ 数值数值 ...) 累计实数或整数数值1.2 (- 数值数值 ...) 减去数值1.3 (* 数值数值 ...) 全部数值乘积1.4 (/ 数值数值 ...) 第一个数值除以第二个此后数值的商1.5 (1+ 数值 ) 数值 +11.6 (1- 数值 ) 数值 -11.7 (abs 数值 ) 数值的绝对值1.8 (atan 数值 ) 反正切值1.9 (cos 角度 ) 角度的余弦值 ,角度值为弪度1.10 (exp 数值 ) 数值的指数1.11 (expt 基数指数 ) 基数的指数值1.12 (fix数值)将数值变换为整数值1.13 (float 数值 ) 将数值变换为实数值1.14 (gcd 数值 1 数值 2) 二数值的最大公因子1.15 (log 数值 ) 数值的自然对数值1.16 (max 数值数值...)数值中的最大值1.17 (min 数值数值 ...) 数值中的最小值1.18 pi 常数 p ,其值约为1.19 (rem 数值 1 数值 2) 二数值的相除的余数1.20 (sin 角度 ) 角度的正旋值 ,角度值为弪度1.21 (sqrt 数值 ) 数值的平方根第二类检验&逻辑运算功能函数(= 表示式 1表示式 2)比表示式 1 能否等于表示式 2 合用数及字符串(/= 表示式 1 表示式 2) 比表示式 1 能否大于等于表示式2(< 表示式 1表示式 2)比表示式1能否 <小于表示式 2(<= 表示式 1 表示式 2)比表示式 1 能否 <=小于等于表示式 2(> 表示式 1表示式 2)比表示式1能否 >大于表示式 2(>= 表示式 1 表示式 2)比表示式 1 能否大于等于表示式2(~ 数 ) 回：数的位not ,(1 的 )2.8 (and 表示式 1 表示式 2⋯ )and 的果2.9 (boole 函数整数整数⋯)位式布运算2.10 (eq 表示式 1 表示式 2) 比表示式 1 与表示式 2 能否相同 , 合用串行比 (相同 )2.11 (equal 表示式 1 表示式 2 [差量 ]) 比表示式 1 与表示式 2 能否相同 , 差量可省略 (内容相同 )第三运算功能函数3.1 (angtof 字符串[模式 ]) 角度的字符串成数3.2 (angtos 角度[模式 [ 精度 ]]) 角度成的字符串3.3 (atof 字符串 ) 字符串成数3.4 (atoi 字符串 ) 字符串成整数3.5 (cvunit 数原始位位)数位后的依据acad.unt 档案3.6 (distof 字符串[模式 ]) 依模式将字符串成数3.7 (itoa 整数 ) 整数成字符串3.8 (rtos 数模式[精度])数成字符串3.9 (trans 点原地点新地点[ 位移 ]) 坐系第四串行理功能函数4.1 (append 串行串行 ...) 合全部串行成一个串行(assoc 关元素合串行 ) 依关元素找合串行中关系料(car 串行 ) 串行中的第一个元素平时用来求x 坐(cadr 串行 ) 串行中的第二个元素平时用来求y 坐(caddr 串行 ) 串行中的第三个元素平时用来求z 坐(cdr 串行 ) 除去第一个元素后的串行(cons 新元素串行 ) 将新元素合到串行(foreach 名称串行表示式 ) 将串行的每一元素至名称再依表示式行响4.9 (length 串行 ) 串行内的元素数目4.10 (list 元素元素⋯ ) 将全部元素合成一串行4.11 (listp 元素 ) 判断元素能否一串4.12 (mapcar 函数串行 1 串行 2 ...) 将串行 1、串行 2、⋯等串行的元素配合函数,求得新串行4.13 (member 关元素串行)依关元素(含)此后的串行4.14 (nth n 串行 ) 串行的第 n 个元素4.15 (reverse 串行 ) 将串行元素依序倒来的串行4.16 (subst 新旧串行 ) 替新旧串行后的串行第五字符串、字符、档案理功能函数5.1 (ascii 字符串 ) 字符串第一个字符的『ASCII 』5.2 (chr 整数 ) 整数所的ASCII一字符串5.3 (close 文件名称 ) 关档案5.4 (open 文件名模式)开启档案代码,准备读取或写入资料5.5 (read 字符串 ) 串行中的字符串的第一组元素5.6 (read-char [档案代码 ]) 经由键盘或档案中读取单一字符5.7 (read-line [档案代码 ]) 经由键盘或档案中读取一行字符串5.8 (strcase 字符串[字样 ]) 变换字符串大小写5.9 (strcat 字符串 1 字符串 2 ...) 将各字符串联合成一字符串5.10 (strlen 字符串 ) 字符串构成的字符数(即字符串长度 )5.11 (substr 字符串初步长度)拿出子字符串5.12 (wcmatch 字符串格式) T或nil,将字符串与通用字符进行比对5.13 (write-char 数值 [ 档案代码 ]) 将一 ASCII 字符写到档案或屏幕5.14 (write-line字符串[档案代码 ]) 将字符串写到档案或屏幕上第六类等候输入功能函数6.1 (getangle [ 基点 ] [ 提示 ]) 央求输入十进制角度数值,响应一弪度值提示及参照点无关紧要6.2 (getcorner 基点 [提示 ]) 央求输入另一矩框对角点坐标6.3 (getdist [基点 ] [ 提示 ]) 央求输入一段距离6.4 (getint [ 提示 ]) 央求输入一整数值6.5 (getkword [ 提示 ]) 央求输入『要点词』6.6 (getorient [基点 ] [ 提示 ]) 央求输入十进制角度,响应一弪度值不受angbase、angdir 影响6.7 (getpoint [ 基点 ] [ 提示 ]) 央求输入一个点坐标6.8 (getreal [提示 ]) 央求输入一实数6.9 (getstring [提示 ]) 央求输入一字符串6.10 (initget [ 位] 字符串 ) 设定下次getxxx 函数的有效输入第七类几何运算功能函数7.1 (angle 点 1 点 2) 获得二点的角度弪度值7.2 (distance 点 1 点 2) 获得二点的距离7.3 (inters 点 1 点 2 点 3 点 4 [ 模式 ]) 获得两条线的交点7.4 (osnap 点模式字符串 ) 依辅助抓点模式获得另一坐标点7.5 (polar 基点弪度距离 ) 依极坐标法获得另一坐标点7.6 (textbox 像素串行 ) 获得文字符串的二对角点坐标第八类像素办理功能函数8.1 (entdel 像素名称 ) 删除或逆删除像素8.2 (entget 像素名称[应用程序串行 ]) 拿出像素名称的资料串行8.3 (entlast) 拿出图形数据中的最后一个像素8.4 (entmake 像素串行 ) 建立一个新的像素串行8.5 (entmod 像素串行 ) 依更新的资料串行更新屏幕上元体8.6 (entnext [像素名称 ]) 搜寻图面中的下一个像素8.7 (entsel [提示 ]) 央求采用一个像素,响应包括像素名称及选点坐标的串行8.8 (entupd 像素名称 ) 更新屏幕上复元体图形8.9 (handent 图码 ) 图码的元体名称8.10 (nentsel [提示 ]) BLOCK 所含副元体像素数据串行8.11 (nentselp [提示 ] [ 点 ]) BLOCK 所含副元体像素数据(以 4 x 4 矩形表示 ) .第九类选择集、符号表办理功能函数9.1 (ssadd [像素名称 ] [ 选择集 ]) 将像素加当选择集或建立一新选择集9.2 (ssdel 像素名称选择集)将像素自选择会合移出9.3 (ssget [模式 ] [ 点 1] [ 点 2]) 获得一个选择集9.4 (ssget "X" [ 过滤串行 ]) 获得依过滤串行所指定范围的选择集9.5 (sslenth 选择集 ) 计算选择集的像素个数9.6 (ssmemb 像素名称选择集)响应像素名称能否包括于选择集内9.7 (ssname 选择集索引值)依索引值拿出选择会合的像素名称9.8 (tblnext 符号表名称[T])检视符号表,有效的符号表:"LAYER" 、 "LTYPE" 、"VIEW" 、"STYLE" 、 "BLOCK"9.9 (tblsearch 符号表名称符号)在符号表中搜寻符号第十类AutoCAD相关盘问、控制功能函数10.1 (command "AutoCAD指令" ...)呼叫执行AutoCAD指令10.2 (findfile檔名)传回：应当文件名的路径及文件名10.3 (getfiled 标题内定档名扩展名旌旗)透过标准AutoCAD档案对话DCL讲话框求得档案10.4 (getenv "环境变量 ") 获得该环境变量的设定值,以字符串表示10.5 (getvar "系统变量 ") 获得该系统变量的设定值,以字符串表示10.6 (setvar "系统变量 " 值 ) 设定该系统变量的值10.7 (regapp 应用类项 ) 将当前的 AutoCAD 图形登记为一个应用程序名称第十一类判断式、循环相关功能函数11.1 (if <比较式 > <表示式 1> [表示式 2]) 检算比较式结果 ,假如为真 ,执行 <表示式1>不然 ,执行 <表示式 2>11.2 (repeat 整数 [< 表达式 > <表达式 > ...]) 重复执行 <整数 >次数11.3 (while 标题内定檔名扩展名旌旗)透过标准AutoCAD档案对话DCL讲话框求得档案11.4 (cond "境量")获得境量的定,以字符串表示11.5 (progn表达式1表达式 2 ...)其内的表达式一,常用于配合if 、cond等函数第十二函数理、定、追踪& 理功能函数12.1 (*error*字符串)程序的警告息12.2 (alert 字符串 ) 以交框式示出警告字符串12.3 (apply 功能函数串行)将功能函数与串行合后行12.4 (defun 名称自量串行表示式...) 自定函数或子程序12.5 (eval 表示式 ) 回 :表示式的行果12.6 (exit) 制退出当前的用程序12.7 (lambda 自量表示式)定未具名的函数12.8 (progn 表达式 1 表达式 2 ...) 其内的表达式一,常用于配合if 、cond 等函数12.9 (quit) 制退出当前的用程序12.10 (tablet 代 [列 1 列 2 列 3 方向 ]) 取用或建立数字板的校12.11 (trace 函数⋯ ) 函数定追踪旌旗,助除12.12 (untrace 函数⋯ ) 函数定排除追踪旌旗第十三示、打印控制功能函数13.1 (graphscr) 作境切到形画面13.2 (grclear) 除去模前的屏幕画面13.3 (grdraw 起点点色[亮])性的画出一条13.4 (grread [追踪 ]) 由入取追踪13.5 (grtext 地点字符串[亮显 ]) 将字符串显示在状态列或屏幕菜单上13.6 (grvecs 向量串行[转置矩阵 ]) 临时性的画出多条线13.7 (menucmd 字符串 ) 供应在 AutoLISP 中呼叫各菜单13.8 (prin1 [ 表示式[档案代码 ]) 将表示式打印于命令区或已开启的档案,句柄字符则以 "\" 为前缀睁开13.9 (princ [ 表示式[ 档案代码 ]) 除句柄字符则不以"\"为前缀睁开外其余同prin1(print [表示式 [ 档案代码 ]) 除表示式会往下一新行列出,及一空分外其余同prin1(prompt 讯息 ) 将讯息显示于屏幕的命令区 ,并随后响应一个 nil 讯息(redraw [像素名称 [ 模式 ]]) 重绘整张图或依像素名称重绘该图形(terpri) 在屏幕上显示新列(textscr) 作图环境切换到文字画面(textpage) 除去文字画面文字近似 DOS 的 cls 指令(vports) 传回：窗口组态串行第十四类符号、元素、表示式办理功能函数(atom 元素 ) 假如元素不是串行 ,响应 T,不然为 nil(atoms-family 格式 [ 符号串行 ]) 传回：一组已定义函数的符号串行(boundp 表示式 ) 传回： T 或 nil, 响应表示式能否有值存在(minusp 元素 ) 传回： T 或 nil, 元素能否为负值(not 元素 ) 传回： T 或 nil, 判断元素能否为 nil(null 元素 ) 传回： T 或 nil 判断元素能否被给予 nil 值(numberp 元素 ) 传回： T 或 nil, 元素能否为整数或实数(... '表示式 ) 响应表示式未检算前状态(quote 表示式 ) 响应表示式未检算前状态 ,同『 '』功能(set 符号表示式 ) 将表示式结果设定给带单引号' 符号(setq 符号 1 表示式 1 [符号 2 表示式 2]...) 设定表示式结果给各符号(type 元素 ) 传回：元素的资料型态143.13 (zerop 元素 ) 传回： T 或 nil, 元素能否为0 值第十五类ADS 、 AutoLISP 加载与开释函数15.1 (ads) 传回：当前加载ADS 程序串行15.2 (ver) 传回：当前 AutoLISP 版本字符串15.3 (load LSP 檔名 [加载失败 ]) 加载 AutoLISP 档案 (*.lsp)(arxload <应用程序名称 > [ 错误响应 ]) 加载一个 ARX 应用程序言件(arxunload <应用程序名称 > [ 错误响应 ]) 开释 ARX 应用程序言件(autoarxload <文件名称 > <指令定义 >) 加载一个关系式的ARX 檔(autoload ADS 定义的函数 & 指令 ) 加载一个关系式的AutoLISP 檔(autoxload <文件名称 > <指令定义 >) 加载一个关系式的ADS 檔(xload 应用程序 [犯错办理 ]) 加载 ADS 应用程序15.10 (xunload 应用程序[犯错办理 ]) 开释 ADS 应用程序第十六类内存空间管理函数16.1 (alloc 数值 ) 以节点数值设定区段大小16.2 (expand 数值 ) 以区段数值配置节点空间16.3 (gc) 强迫回收废内存16.4 (mem) 显示当前的内存使用状态16.5 (vmon) 开释 ADS 应用程序16.6 (xdroom 像素名称 ) 传回像素延伸资料允用得内存空间16.7 (xdsize 串行 ) 传回像素延伸资料所占用的内存空间第十七类ARX定义的函数17.1 (acad_colordlg 颜色码旌旗)显示出标准AutoCAD颜色选择讲话框17.2 (acad_helpdlg 求援文件名主题)显示出标准AutoCAD求援讲话框----------------------------------------------------------执行结果+(加) 返回全部数的和– (减)将第一个数减去其余数的和并返回差值*( 乘 ) 返回全部数的乘积/(除 ) 将第一个数除以其余数的乘积并返回商=(等于 ) 比较参数能否相等/= (不等于 )比较参数能否值不相等<(小于 ) 假如每个参数值都小于它右侧的参数则返回T，不然返回 nil<= (小于或等于 ) 假如每个参数值都小于或等于它右侧的参数则返回 T，不然返回 nil>(大于 ) 假如每个参数值都大于它右侧的参数则返回T，不然返回 nil>= (大于或等于 ) 假如每个参数值都大于或等于它右侧的参数则返回 T，不然返回 nil~(按位非 ) 返回参数的按位非（即 1 的补码）1+ (增 1)将参数加11– (减 1)将参数减1abs返回参数的绝对值acad_colordlg显示标准的AutoCAD颜色选择对话框acad_helpdlg启动帮助工具（已荒弃）acad-pop-dbmod恢复DBMOD系统变量的值到近来用acad-push-dbmod 保存的值acad-push-dbmod储蓄DBMOD系统变量的当前值acad_strlsort以ASCII码字母序次对字符串表进行排序acad_truecolorcli从命令行中选择AutoCAD真彩色acad_truecolordlg显示AutoCAD真彩色选择对话框acdimenableupdate控制关系注明的自动更新acet-layerp-mode盘问和设置LAYERPMODE配置acet-layerp-mark搁置图层先前记录的开始和结束标记acet-laytrans变换图形中的图层为其余图形或标准文件中所定义的标准acet-ms-to-ps从模型空间单位变换实数值到图纸空间单位acet-ps-to-ms从图纸空间单位变换实数值到模型空间单位action_tile为某一对话框控件指定一个动作表达式，用户在对话框中选中这个控件时，就会执行该动作表达式add_list在当前激活的对话框的列表框中增添一个字符串或更正此中的一个字符串alert显示一个警告框，此中显示一条犯错或警告信息alloc设置段长度以供expand函数使用and返回表达式的逻辑与(AND)运算结果angle以弧度为单位返回两点之间连线与当前UCS下X 轴之间的夹角angtof将表示角度的字符串变换为实数（浮点数）形式的弧度值angtos将一个以弧度为单位的角度值变换成字符串append将任意多个表组合成一个表apply将参数表传给指定的函数arx 返回当前已加载的 ObjectARX 应用程序名表arxload 加载 ObjectARX 应用程序 arxunload 卸载ObjectARX 应用程序ascii 将字符串中的第一个字符变换成其ASCII码(整数)后返回assoc从关系表中搜寻一个元素，假如找到则返回该关系表条目atan返回一个数的反正切值（以弧度为单位）atof将一个字符串变换成实数atoi将一个字符串变换成整数atom考据一个项是不是原子atoms-family返回由当前已定义的符号构成的一个表autoarxload 预约义可自动加载某相关 ObjectARX 应用程序的命令名autoload 预约义可自动加载某相关 AutoLISP 应用程序的命令名 Boole 用作一个通用的按位逻辑运算函数boundp检验符号能否被设置为某个值caddr返回表的第三个元素cadr返回表的第二个元素car返回表的第一个元素cdr返回去掉了第一个元素的表chr 将代表字符ASCII码的整数变换成包括相应的单一字符的字符串client_data_tile将特定应用数据与一个对话框控件相关系close关闭一个已打开的文件command 执行一条AutoCAD命令cond多条件、多办理结果函数cons向表的头部增添一个元素，或构造一个点对cos返回弧度角度的余弦值cvunit在不一样丈量单位之间进行换算defun定义函数defun-q将函数定义为表defun-q-list-ref返回用defun-q 定义的函数的表构造defun-q-list-set将符号设置为以表形式定义的函数dictadd在指定词典内增添非图形对象dictnext查找词典中的下一个条目dictremove从指定词典中删除一个条目dictrename重命名词典条目dictsearch在词典中搜寻某个项dimx_tile返回控件的宽度dimy_tile返回控件的高度distance返回两个点之间的距离distof将一个表示实（浮点）数的字符串变换成一个实数done_dialog中断对话框end_image结束当前激活的对话框图像控件的操作end_list结束对当前激活的对话框列表的操作entdel删除对象（图元）或恢复先前删除的对象entget获取对象（图元）的定义数据entlast返回图形中最后那个未删除的主对象（图元）名称entmake在图形中创立一个新图元entmakex创立一个新对象或图元，赋给它一个句柄和图元名（但不指定全部者），并返回新图元的名称entmod更正对象（图元）的定义数据entnext返回图形中的下一个对象（图元）名entsel提示用户经过指定一个点来选择单个对象（图元）entupd更新对象（图元）的屏幕显示eq确立两个表达式能否拥有相同的拘束条件equal确立两个表达式的值能否相等*error*可由用户定义的错误办理函数eval 返回 AutoLISP 表达式的求值结果exit强执行当前应用程序退出exp 返回常数 e (2.718282...) 的指定次幂（自然反对数）expand为AutoLISP分配附带空间expt返回以某指定数为底数的若干次幂的值fill_image在当前激活的对话框图像控件中画一个填补矩形findfile 在 AutoCAD库路径中搜寻指定文件或目录fix截去实数的小数部分，将它变换成整数后返回该整数float将一个数变换为实数后返回foreach将表中的全部成员以指定变量的身份带入表达式求值function 通知 Visual LISP 编译器将参数作为内置函数进行链接和优化gc强迫采集无用数据，开释不再使用的节点gcd返回两个整数的最大合约数get_attr获取对话框指定控件的某个属性值get_tile获取对话框指定控件的当前运转时的值getangle暂停以等候用户输入角度，而后以弧度形式返回该角度getcfg 从 acad.cfg 文件的AppData 段中检索应用数据getcname获取AutoCAD命令的当地假名或英文名getcorner暂停等候用户输入矩形第二个角点的坐标getdist暂停以等候用户输入距离getenv以字符串方式返回指定的环境变量的值getfiled 用标准的AutoCAD文件对话框提示用户输入一个文件名，并返回该文件名getint 暂停以等候用户输入一个整数并返回该整数 getkword暂停以等候用户输入一个要点字并返回该要点字 getorient暂停以等候用户输入角度，并返回该角度 getpoint 暂停以等候用户输入点，并返回该点getreal 暂停以让用户输入一个实数并返回该实数getstring 暂停以等候用户输入字符串，并返回该字符串getvar 获取一个 AutoCAD 系统变量的值 graphscr 显示AutoCAD 图形屏幕grclear除去当前视口（已荒弃）grdraw在当前视口中的两个点之间显示一条矢量线grread从AutoCAD的任何一种输入设备中读取数值grtext将文本写到状态行或屏幕菜单区grvecs在图形屏幕上绘制多个矢量handent依据对象（图元）的句柄返回它的对象（图元）名help调用帮助工具if依据对条件的判断结果，对两个表达式求值initdia强迫显示下一个命令的对话框initget为随后的用户输入函数调用创立要点字inters求两条直线的交点itoa将整数变换成字符串，并返展变换结果lambda定义无名函数last返回表的最后一个元素layoutlist返回当前图形中全部图纸空间布局构成的表length以整数形式返回表中元素的数目list将任意数目的表达式组合成一个表listp检查某个项是不是表load 对一个文件中的AutoLISP表达式求值load_dialog加载DCL文件log返回一个实数的自然对数logand 返回一个整数表中的各数按位逻辑与(AND)的结果logior 返回一个整数表中的各数按位逻辑或(OR) 的结果lsh返回某整数作指定次逻辑移位后的结果mapcar将作为本函数参数的一个或多个表的各个元素供应给指定函数进行求值，并将由求值结果构成的表返回max返回给定各数中的最大者mem显示AutoLISP 内存的当前状态member 搜寻表中能否包括某表达式，并从该表达式的第一次出现处返回表的其余部分menucmd 发出菜单命令，或设置并检索菜单项状态menugroup 检查能否加载了指定的菜单组 min 返回给定各数中的最小者minusp检查某个数是不是负数mode_tile设置对话框控件的状态namedobjdict返回当前图形的命名对象词典的图元名，它是全部非图形对象的根nentsel提示用户指定点来选择对象（图元），获取这个对象所指片段的对象名nentselp在没实用户输入的状况下，本函数的功能与nentsel 函数近似new_dialog开始一个新的对话框并显示该对话框，并且能指定一个缺省操作not 检查一个项的求值结果能否为nilnth 返回表中的第n 个元素null 检查某项的值能否设置为nilnumberp检查某个项是不是实数或整数open打开一个文件，供其余AutoLISP I/O函数接见or返回对表达式进行逻辑或(OR)运算的结果osnap将某种对象捕获模式作用于指定点而获取一个点，并返回该点polar 在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点prin1在命令行打印一个表达式或将表达式写入已打开的文件中princ在命令行打印表达式，或将表达式写入已打开的文件中print在命令行打印表达式，或将表达式写入已打开的文件中progn序次地对每一个表达式进行求值，并返回最后那个表达式的值prompt在屏幕提示区显示一个字符串quit强迫退出当前应用程序quote返回表达式而不对其求值read返回字符串中的第一个表或第一个原子read-char从键盘输入缓冲区或打开文件中读入一个字符，并将该字符变换成十进制的 ASCII码值后返回read-line从键盘或已打开文件中读取行结束符前的字符串redraw重画当前视口或当前视口中的一个指定对象（图元）regapp为当前AutoCAD图形注册一个应用名，为使用扩展对象数据作准备rem将第一个数除以第二个数，并返回余数repeat对循环体中的每一个表达式进行指定次数的求值计算，并返回最后一个表达式的值reverse将表的元素序次倒置后返回rtos将数字变换成字符串set将引号中的符号名的值设置成一个表达式的值set_tile设置对话框控件的值setcfg 将应用数据写到acad.cfg 文件的AppData 段中setenv将系统环境变量设为指定值setfunhelp给帮助工具注册一个用户定义函数，这样，用户在央求该命令的帮助时，就会调用正确的帮助文件和主题setq将一个或多个符号的值设置为相应表达式的值setvar设置AutoCAD系统变量为指定值setview为指定视口建立一个视图sin以实数形式返回角度的正弦值（以弧度为单位）slide_image在当前激活的对话框图像控件中显示AutoCAD幻灯片snvalid检查构成符号表名的各字符的有效性sqrt以实数形式返回一个数的平方根ssadd将对象（图元）加入到选择会合，或创立新的选择集ssdel从选择会合撤消对象（图元）ssget依据选定对象创立选择集ssgetfirst判断哪些对象是被采用的和被夹取的sslength求出一个选择会合的对象（图元）数目，并将其作为一个整数返回ssmemb测试某对象（图元）是不是选择集的成员ssname返回选择会合由序号指定的那个对象（图元）的图元名ssnamex获取关于选择集创立方式的信息sssetfirst设置哪些对象既是被采用的又是被夹取的startapp启动Windows应用程序start_dialog显示对话框并将控制交给对话框start_image开始对对话框控件中的一个图像控件进行操作start_list开始办理对话框中的列表框或弹出式列表框中的列表strcase将字符串中的全部字母变换成大写或小写后返回strcat将多个字符串拼接成一个长字符串后返回strlen以整数形式返回一个字符串中字符的个数subst在表中搜寻某旧项，并将表中出现的每一个旧项用新项取代，而后返回更正后所得的表substr返回字符串中的一个子字符串tablet获取和设置数字化仪校准tblnext在符号表中查找下一项tblobjname返回指定符号表条目的图元名tblsearch在指定的符号表中搜寻符号名term_dialog停止当前全部的对话框，就象用户撤消了它们相同terpri在命令行上输出一个换行符textbox丈量一个指定文本对象的尺寸，并返回围住该文本的一个矩形框的对角坐标textpage从图形屏幕切换至文本屏幕textscr 切换至文本屏幕（相当于AutoCAD Flip Screen功能键）trace调试AutoLISP程序时的辅助函数trans将一个点（或位移量）从一个坐标系变换成另一个坐标系type返回指定项的数据种类unload_dialog卸载DCL文件untrace除去指定函数的追踪标记vector_image在当前激活的对话框图像控件上显示一个矢量线ver 返回当前AutoLISP 版本号的字符串VL-函数VLAX-函数vlisp-compile将AutoLISP源代码生成为FAS 文件VLR-函数vports返回表示当前视口配置的视口描述符表wcmatch将模式字符串与某指定的字符串进行般配比较while 对测试表达式进行求值，假如它不是nil ，则执行循环体中的表达式，重复这个过程，直到测试表达式的求值结果为nilwrite-char将一个字符写到屏幕上或一个已打开的文件中write-line将字符串写到屏幕上或一个已打开的文件中xdroom 返回对象可供使用的扩展数据(Xdata) 空间的大小xdsize返回一个表作为扩展数据连接到对象（图元）上时所占用的空间大小（以字节表示）zerop检查一个数的值能否为0。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(defun c:0 () (LAYER1 "0"))
(defun c:1 () (LAYER1 "幕墙-铝材"))
(defun c:00 () (LAYER1 "结构或其他"))
(defun c:11 () (LAYER1 "幕墙-玻璃"))
(defun c:22 () (LAYER1 "幕墙-铝板"))
(defun c:33 () (LAYER1 "幕墙-石材"))
(defun c:m9 () (command "chprop" pause "" "p" "la" "幕墙-配件类" ""))
(defun c:m00 () (command "chprop" pause "" "p" "la" "结构或其他" ""))
(defun c:m11 () (command "chprop" pause "" "p" "la" "幕墙-玻璃" ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN LAYER2(XX)
(setq s(ssget))
(setq i 0)
(DEFUN LAYER1(XX)
(command "color""Bylayer"
"-layer" "on" XX """-layer""set" XX ""
"-LINETYPE""SET""Bylayer"""))
);end
(DEFUN C:m0 () (COMMAND "CHPROP" PAUSE "" "P" "LA" "0" ""))
(defun c:m1 () (command "chprop" pause "" "p" "la" "幕墙-铝材" ""))
(defun c:m2 () (command "chprop" pause "" "p" "la" "幕墙-钢材" ""))
;选择对象SE，并取其图层名b2
(defun xxx()
(setq se (entsel))(setq sd (entget (car se)))
(setq b1 (assoc 8 sd))
(setq b2 (cdr b1)))
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
));END-if,defun
(defun scale()(scale1 t)
(prompt "\n比例1:b=1:")(prin1 b)(prompt " "))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if(/= b2 b3)(command "-layer" "off" b3 ""))
(SETQ i(1+ i))
);end-repeat
);end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:m6 () (command "chprop" pause "" "p" "la" "幕墙-轴线" ""))
(defun c:m7 () (command "chprop" pause "" "p" "la" "幕墙-预埋件" ""))
(defun c:m8 () (command "chprop" pause "" "p" "la" "幕墙-索引" ""))
(defun c:6 () (LAYER1 "幕墙-轴线"))
(defun c:7 () (LAYER1 "幕墙-预埋件"))
(defun c:8 () (LAYER1 "幕墙-索引"))
(defun c:9 () (LAYER1 "幕墙-配件类"))
;LA---LAYER
;LT---LINETYPE
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(defun c:m22 () (command "chprop" pause "" "p" "la" "幕墙-铝板" ""))
(defun c:m33 () (command "chprop" pause "" "p" "la" "幕墙-石材" ""))
(defun c:m44 () (command "chprop" pause "" "p" "la" "幕墙-百叶" ""))
(defun c:44 () (LAYER1 "幕墙-百叶"))
(defun c:55 () (LAYER1 "幕墙-防火"))
(defun c:66 () (LAYER1 "幕墙-横向"))
(defun c:77 () (LAYER1 "幕墙-竖向"))
);end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;
;;; ;;;
;;; SCALE ;;;
;;; ;;;
;;;;;;;;;;ቤተ መጻሕፍቲ ባይዱ;;
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&