怎么写将对象的图层置为当前--随对象色？

zilong136

• 将对象的图层置为当前--随层色：
• 
  
  • (defun c:c8 ()
  •     (princ "\n c8将对象的图层置为当前--随层色")      
  •    (vl-cmdf "Laymcur")
  • )
    
  
  
  
• 也就是说选择对象是什么色号，置顶后也是什么色号
  
  • 将对象的图层置为当前--随对象色怎么写？
  • 
    
    
  
  
  

wide

把当前的图层变为选择对象的图层

飞雪神光

1. (defun c:c8 (/ co ent get-dxf lm-get-color tcm ty)
   
2.         (defun get-dxf(en n)
   
3.                 (if (not (listp en)) (setq en (entget en)))
   
4.                 (cdr (assoc n en))
   
5.         )
   
6.         (defun lm-get-color (ty / co)
   
7.                 (if (setq co (get-dxf ty 62))
   
8.                         (progn co)
   
9.                         (progn (cdr (assoc 62 (tblsearch "layer" (get-dxf ty 8)))))
   
10.                 )
    
11.         )
    
12.         (princ "\nc8将对象的图层置为当前--且图层颜色跟随对象")      
    
13.         (setq ty (car(entsel "\n选择对象:")))
    
14.         (setq co (lm-get-color ty))
    
15.         (setvar "clayer"(setq tcm (get-dxf ty 8)))
    
16.         (setq ty (tblobjname "layer" tcm))
    
17.         (setq ent (entget ty))
    
18.         (setq ent (subst (cons 62 co) (assoc 62 ent) ent))
    
19.         (entmod ent)
    
20.         (princ)
    
21. )

(defun c:c8 (/ co ent get-dxf lm-get-color tcm ty)<br />         (defun get-dxf(en n)<br />                 (if (not (listp en)) (setq en (entget en)))<br />                 (cdr (assoc n en))<br />         )<br />         (defun lm-get-color (ty / co)<br />                 (if (setq co (get-dxf ty 62))<br />                         (progn co)<br />                         (progn (cdr (assoc 62 (tblsearch "layer" (get-dxf ty 8)))))<br />                 )<br />         )<br />         (princ "\nc8将对象的图层置为当前--且图层颜色跟随对象")      <br />         (setq ty (car(entsel "\n选择对象:")))<br />         (setq co (lm-get-color ty))<br />         (setvar "clayer"(setq tcm (get-dxf ty 8)))<br />         (setq ty (tblobjname "layer" tcm))<br />         (setq ent (entget ty))<br />         (setq ent (subst (cons 62 co) (assoc 62 ent) ent))<br />         (entmod ent)<br />         (princ)<br /> )

zilong136

飞雪神光 发表于 2024-2-7 12:31
你标题 将对象的图层置为当前--随对象色 我理解的就是图层随对象颜色

图层是随对象颜色，包括色号都不能变，你现在颜色是随对象颜色了，但图层置顶后，你把该颜色设置成随层了，我想说的是图层置顶后，显示图层色还是之前对象的色号，不是把对象的色号改成当前的随层色。比如选择对象是61号，对象置顶后，当前图层显示的色号是61，而不是BYLAYER，不知道你懂我意思了没有。

sncokina

(vl-cmdf "Laycur")?

zilong136

飞雪神光 发表于 2024-2-6 12:52

置为当前图层的对象，能不能不改颜色号？你现在是把置顶图层颜色号变为随层了，我想保持原颜色号。

zilong136

sncokina 发表于 2024-2-6 08:51
(vl-cmdf "Laycur")?

不是这个效果，你这是将对象的图层改为当前一样的图层，我是要把当前的图层变为选择对象的图层。

飞雪神光

zilong136 发表于 2024-2-7 01:40
置为当前图层的对象，能不能不改颜色号？你现在是把置顶图层颜色号变为随层了，我想保持原颜色号。

你标题 将对象的图层置为当前--随对象色 我理解的就是图层随对象颜色

zilong136

wide 发表于 2024-2-7 08:07
把当前的图层变为选择对象的图层

你跟二楼效果一样的，我就不想置为当前的图层色跟选择对象的实体一致，包括线型、线宽等特性完全跟选择对象一样，你们都改成了bylayer

wide

已修改，见上面6楼附件，看看是不是符合你的要求。