根据层的状态显示图层

最新推荐文章于 2024-03-23 10:38:48 发布

lisp宏

最新推荐文章于 2024-03-23 10:38:48 发布

阅读量142

点赞数

分类专栏：笔记文章标签： lisp

本文链接：https://blog.csdn.net/qq_26764331/article/details/126492727

版权

这是一个AutoLISP脚本，用于列出AutoCAD中根据指定状态（冻结、解冻、开启、关闭、锁定、未锁定、可打印、不可打印）的图层。用户可以输入状态编号，脚本将返回符合该状态的图层名称列表。

摘要由CSDN通过智能技术生成

;;; List layers according to state
;;;
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 2000-05-15
;;;
;;; Argument: state
;;; 1 frozen
;;; 2 thawed
;;; 3 on
;;; 4 off
;;; 5 lock
;;; 6 not locked
;;; 7 plottable
;;; 8 not plottable
;;; Example: (layer-state 1)
;;; Return values: list of layers
(vl-load-com)
(defun layer-state (state / typ names tf skip)
(setq names nil)
(vlax-for layer (vla-get-Layers
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(setq skip nil)
(cond
((= 1 state) (setq typ (vla-g