前置图元

KEwb

将一个或多个图层选中，可以将图中所有对应的图层对象都前置。即不用选择所有的图层对象进行前置，只选择一个对象就可以将所有的图层对象进行前置。

yaojing38

2. (Defun C:qz (/ CNAME ENT SS SS1 la lay n)
   
3. (princ "\n请选择要前置的图层：")
   
4. (setq ss (ssget))
   
5. (repeat (setq n (sslength ss))
   
6. (setq ent (ssname ss (setq n (1- n))))
   
7. (setq la (cdr (assoc 8 (entget ent))))
   
8. (if (not (member la lay)) (setq lay (cons la lay)))
   
9. );;end repeat
   
10. (setq cname (apply 'strcat (apply 'mapcar (cons 'strcat (list lay (mapcar '(lambda (x) ",") lay))))))
    
11. (princ (strcat "\n选中了图层:" cname ))
    
12. (setq ss1 (ssget "x" (list (cons 8 cname))))
    
13. (vl-cmdf "draworder" ss1 "" "f")
    
14. (princ)
    
15. )

(Defun C:qz (/ CNAME ENT SS SS1 la lay n)<br /> (princ "\n请选择要前置的图层：")<br /> (setq ss (ssget))<br /> (repeat (setq n (sslength ss))<br /> (setq ent (ssname ss (setq n (1- n))))<br /> (setq la (cdr (assoc 8 (entget ent))))<br /> (if (not (member la lay)) (setq lay (cons la lay)))<br /> );;end repeat<br /> (setq cname (apply 'strcat (apply 'mapcar (cons 'strcat (list lay (mapcar '(lambda (x) ",") lay))))))<br /> (princ (strcat "\n选中了图层:" cname ))<br /> (setq ss1 (ssget "x" (list (cons 8 cname))))<br /> (vl-cmdf "draworder" ss1 "" "f")<br /> (princ)<br /> )

KEwb

yaojing38 发表于 2024-11-27 09:23

你好，命令行  提示错误: 输入的字符串有缺陷

yaojing38

KEwb 发表于 2024-11-27 19:10
你好，命令行  提示错误: 输入的字符串有缺陷

修改了错误，，你试试！

KEwb

yaojing38 发表于 2024-11-28 09:31
修改了错误，，你试试！

是这样

KEwb

yaojing38 发表于 2024-11-26 15:12

你好，能否在后面加一个自动回车功能呢，即选中对象后直接后置图层，不用按回车键进行确认

yaojing38

KEwb 发表于 2024-11-28 19:38
你好，能否在后面加一个自动回车功能呢，即选中对象后直接后置图层，不用按回车键进行确认

只有确定才知道你要选那些，只能这样