AutoCAD软件的Lisp语句含义解释

提问网友发布时间：2023-03-03 18:59

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共3个回答

热心网友回答时间：2023-05-09 08:21

(defun c:0( / l1 l2 l3 l4 l5 );;;定义命令函数0（包含变量 l1 l2 l3 l4 l5）
(setq l1 (entsel));;;选取图元并赋值给l1
(setq l2 (car l1));;;获取图元名并赋值给l2
(setq l3 (entget l2));;;自截取的图元名l2中获取图元的dxf组码并赋值给l3
(setq l4 (assoc 8 l3));;;自l3（dxf组码）中找到代表图层的组码并赋值给l4
(setq l5 (cdr l4));;;将l4转换成该图元的层名并赋值l5
(command "layer" "lo" "*" "" "layer" "u" l5 "" "layer" "s" l5 "");;;通过layer命令锁定所有图层，然后解锁l5图层（上面选择的图元的图层）并设置该图层为当前层
)
总的来说就是锁定除了选中图元所在层的所有层，并将这个层置为当前层。

应该能理解了吧？

热心网友回答时间：2023-05-09 08:21

(defun c:0( / l1 l2 l3 l4 l5 );;;定义命令函数0
(setq l1 (entsel));;;选取图元
(setq l2 (car l1));;;获取图元名
(setq l3 (entget l2));;;获取图元的dxf组码
(setq l4 (assoc 8 l3));;;找到代表图层的组码
(setq l5 (cdr l4));;;获取该图元的层名
(command "layer" "lo" "*" "" "layer" "u" l5 "" "layer" "s" l5 "");;;锁定所有图层，然后解锁上面得到的图层，最后设置该图层为当前层
)
总的来说就是锁定除了选中图元所在层的所有层，并将这个层置为当前层。

热心网友回答时间：2023-05-09 08:22

(defun c:0( / l5)
(setq l5 (cdr (assoc (entget (car (entsel))))))
(command "layer" "lo" "*" "" "layer" "u" l5 "" "layer" "s" l5 "")
)

最简单就是这样了

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

首页

互助专区

登录

注册

AutoCAD软件的Lisp语句含义解释