AutoLISP新建图层

要在AutoCAD中使用AutoLISP新建图层，可以使用以下代码：

(setq layerName "新图层名")
(command "_.-layer" "_M" layerName "") ;新建图层
(command "_.-layer" "_M" layerName "") ;将新建的图层设置为当前图层
(command "_.-layer" "_ON" layerName "") ;将新建的图层打开

这段代码会先指定一个新的图层名，然后使用AutoCAD的layer命令新建一个图层，再将新建的图层设置为当前图层，最后将新建的图层打开。如果想要新建的图层有特定的属性，可以在调用layer命令时添加额外的参数。例如，要新建一个名为“新图层”的图层，颜色为红色，可以使用以下代码：

(setq layerName "新图层名")
(command "_.-layer" "_M" layerName "" "_C" "red") ;新建图层，并设置为红色
(command "_.-layer" "_M" layerName "") ;将新建的图层设置为当前图层
(command "_.-layer" "_ON" layerName "") ;将新建的图层打开

这样就可以在AutoCAD中使用AutoLISP新建一个带有特定属性的图层了。

相关问题

autolisp写关闭图层

您好，以下是回答：

关闭图层的 Autolisp 代码如下：

(defun c:close_layer (/ ss)
(setq ss (ssget "_X" '(( . "LAYER"))))
(if ss
(progn
(command "_.-layer" "_off" ss "")
(princ "\n图层已关闭！"))
(princ "\n没有找到图层！"))
(princ)
)

以上代码会选择所有的图层并关闭它们。

autolisp在指定图层中绘制点

要在AutoCAD指定的图层中使用AutoLISP绘制点，可以使用以下代码：

(setq layerName "图层名") ;指定图层名
(setq pt (getpoint "\nSpecify point: "))
(command "_.-layer" "_M" layerName "") ;切换当前图层
(command "point" pt)
(command "_.-layer" "_M" "0" "") ;切换回0层

这段代码会先提示用户指定一个点，并且指定一个图层名。然后使用AutoCAD的layer命令将当前图层切换到指定图层，绘制该点，之后又将当前图层切换回0层。这样就可以在指定的图层中绘制点。如果想要在其他的图形对象中使用这个LISP程序，只需要将图层名改为该图形对象所在的图层即可。