CAD LSP图层

(command "RECTANGLE" newpt1 newpt2)
(setvar "CECOLOR" oldcolor)
(command "layer" "M" "DIM" "")
(command "dimlinear" newpt2 newpt3 "m" "<>" newpt4))
这段代码,画一个矩形,然后给矩形标一个尺寸。想让这个尺寸标在dim层上。。。。。。。这句(command "layer" "M" "DIM" "")是间插进去的。现在的问题是标出来尺寸是在dim层上了,但是,当前图层也随着切换到了dim层上了,所以要人工更换回去原来的图层,反而增加了工作量。那位有办法解决这问题?标完尺寸后,自动切换回原图层,谢谢

第1个回答  2016-08-10
(command "RECTANGLE" newpt1 newpt2)
(setvar "CECOLOR" oldcolor)
(setq oldlay (getvar "clayer")
(command "layer" "M" "DIM" "")
(command "dimlinear" newpt2 newpt3 "m" "<>" newpt4))
(setvar "clayer" oldlay)

cadlsp文件是干嘛用的,怎么用?急
1. 安装与打开:确保你的AutoCAD软件支持LISP语言。然后,将CADLSP文件保存在你知道的位置,可以直接在AutoCAD中通过“运行脚本”或相关命令来打开它。2. 编写与编辑:如果你需要编写或编辑CADLSP文件,你需要熟悉LISP语言的语法和AutoCAD的编程环境。有许多在线资源和教程可以帮助你开始学习LISP编...

cad如何加载lsp
CAD加载LSP文件的步骤如下:1. 在CAD软件中选择“插件”或“选项”菜单。2. 寻找并点击“加载应用程序”或类似选项。3. 在文件浏览器中找到并选择要加载的LSP文件。4. 点击“加载”或确认按钮,即可完成LSP文件的加载。详细解释:CAD软件广泛应用于工业设计、建筑设计等领域。LSP文件是一种基于AutoCAD...

CAD lsp怎么获取图层的信息,例如获取颜色为红色的所有图层
所有的图层定义,都在Document.Layers集合中,可以用其“ITEM”方法,遍历所有图层,---图层的TrueColor属性就是表示其颜色,只要你遍历各个图层,那么根据其TrueColor属性就可以找到颜色为某色的图层了

cad如何编lsp命令锁定除选定的图层外其他图层
(defun c:tc () (setvar "cmdecho" 0) (command "laymcur") (setvar "cmdecho" 1) (prin1) ) ;;选择对象为当前图层 ;;Layer ;;输入要置为当前的图层名或 <选择对象>: AA输入选项 [?\/生成(M)\/设置(S)\/新建(N)\/重命名(R)\/开(ON)\/关(OFF)\/颜色(C)\/线型(L)\/线宽(LW)\/...

cad里面的.lsp文件是什么文件??
cad里面的.lsp文件是AutoCAD的脚本文件。以下是关于cad里面的.lsp文件的 一、AutoCAD的脚本文件 .lsp文件是AutoCAD中的脚本文件,全称为“AutoCAD Lisp文件”。这种文件包含了AutoCAD的列表处理语言编写的程序或命令。通过运行这些脚本,可以实现自动化操作,提高工作效率。二、LSP文件的功能 LSP文件...

CAD lsp 文件是干嘛用的,怎么用?急
cad里的lsp文件是二次开发的源程序。cad中的Lsp文件是二次开发的源程序。只要你懂lisp语言,你就可以根据自己的需要编写和保存它。使用它时,您可以在工具中加载应用程序后使用它。在cad中支持文件夹下的LSP文件。添加一行你在后面写的程序名,让它在计算机辅助设计开始时自动加载。很多的cad病毒也是利用...

cad怎么用lsp实现图层快速切换
以下这句可以快速切换到某层1,如果图层不存在,即会新建该图层,供你参考一下:(command "layer" "m" "某层1" "c" 1 "某层1")---抛砖引玉,祝你编程愉快

cad修改图层颜色lsp
你把下面一行复制,粘贴到记事本,另存为文件名”ACAD.LSP“,放在图形文件的目录,打开图形时就会自动改了。如果是其他的图层,把”加粗线“改成相应的图层名。(command ".layer" "c" "7" "加粗线" "")请采纳

cad lsp偏移到其他图层
(defun c:qw () (setvar "cmdecho" 0) (command "layiso") (setvar "cmdecho" 1) (prin1) ) ;;选择需要隔离的图层;如果要锁定或关闭;输入这个命令的时候;→向下方向键来设置;设置好了就以后默认 (defun c:tc () (setvar "cmdecho" 0) (command "laymcur") (setvar "cmd...

CAD 如何用lisp实现如图层一到二十,把全部图层变成8号色?然后其中的某...
1、界面上放两个按钮,2、其中一个按钮用来定义哪些层需要变成红色的,里边让用户输入字符串,比如:AAA,BBB,,也就是定义为 AAA层与BBB层 将变成红色,其它所有层变为8号色 3、另一个按钮用来执行任务 遍历所有图层,将图层名称 逐一 与定义的字符串比较,如果相同 则设为红色,否则设为8号色-...

相似回答