前置图元
本帖最后由 KEwb 于 2024-11-26 21:13 编辑将一个或多个图层选中，可以将图中所有对应的图层对象都前置。即不用选择所有的图层对象进行前置，只选择一个对象就可以将所有的图层对象进行前置。
本帖最后由 yaojing38 于 2024-11-28 09:30 编辑
(Defun C:qz (/ CNAME ENT SS SS1 la lay n)
(princ "\n请选择要前置的图层：")
(setq ss (ssget))
(repeat (setq n (sslength ss))
(setq ent (ssname ss (setq n (1- n))))
(setq la (cdr (assoc 8 (entget ent))))
(if (not (member la lay)) (setq lay (cons la lay)))
);;end repeat
(setq cname (apply 'strcat (apply 'mapcar (cons 'strcat (list lay (mapcar '(lambda (x) ",") lay))))))
(princ (strcat "\n选中了图层:" cname ))
(setq ss1 (ssget "x" (list (cons 8 cname))))
(vl-cmdf "draworder" ss1 "" "f")
(princ)
) yaojing38 发表于 2024-11-27 09:23
你好，命令行提示错误: 输入的字符串有缺陷 KEwb 发表于 2024-11-27 19:10
你好，命令行提示错误: 输入的字符串有缺陷
修改了错误，，你试试！ yaojing38 发表于 2024-11-28 09:31
修改了错误，，你试试！
是这样 yaojing38 发表于 2024-11-26 15:12
你好，能否在后面加一个自动回车功能呢，即选中对象后直接后置图层，不用按回车键进行确认 KEwb 发表于 2024-11-28 19:38
你好，能否在后面加一个自动回车功能呢，即选中对象后直接后置图层，不用按回车键进行确认
只有确定才知道你要选那些，只能这样
页:
[1]