autolisp在指定图层中绘制点
时间: 2024-02-21 13:59:02 浏览: 47
要在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程序,只需要将图层名改为该图形对象所在的图层即可。
相关问题
autolisp绘制点
要在AutoCAD中使用AutoLISP绘制点,可以使用以下代码:
``(setq pt (getpoint "\nSpecify point: "))
(command "point" pt)
```
这段代码会提示用户指定一个,并且使用AutoCAD的point命令绘制该点。点的坐标由变量pt保存。可以将这段代码保存到一个LSP文件中,并使用load命令加载到AutoCAD中。之后,可以直接调用这个LISP程序来绘制点。
autolisp写关闭图层
您好,以下是回答:
关闭图层的 Autolisp 代码如下:
(defun c:close_layer (/ ss)
(setq ss (ssget "_X" '(( . "LAYER"))))
(if ss
(progn
(command "_.-layer" "_off" ss "")
(princ "\n图层已关闭!"))
(princ "\n没有找到图层!"))
(princ)
)
以上代码会选择所有的图层并关闭它们。