【已解决】【求助】请问一下，数字复制粘贴到其他位置后图层改变这个功能如何实现呀

yangchao2005090

比如三个数字11.2  12.3   15.6在图纸中A图层选择用co命令复制后粘贴到其他位置，此时三个数字11.2  12.3   15.6在图纸中B图层
继续粘贴到其他位置后，此时三个数字11.2  12.3   15.6在图纸中C图层
图纸详见附件

lostbalance

复制可以用原生命令(command "copy" .....)实现
可以参考下我的快速切换图层，先copy，然后选中copy后的对象，修改图层

yangchao2005090

lostbalance 发表于 2019-5-27 11:35
复制可以用原生命令(command "copy" .....)实现
可以参考下我的快速切换图层，先copy，然后选中copy后的对 ...

看的不是很懂，不知道怎么改

lostbalance

缺少的函数在我发布的函数库里找找
我做成了通用函数，可以直接改成c函数，也可以将我发布的切换图层函数中的执行函数替换，做成可定制版。

2. ;|= 复制并切换图层
   
3. @== (_copySwitchLay lay)
   
4. #== return: nil
   
5. par:
   
6.     lay: [str] new lay's name
   
7. sample:
   
8.     (_copySwitchLay "0")
   
9. ver:
   
10.     [1.0] by woyb 20190530
    
11. ====================|;
    
12. (defun _copySwitchLay (lay / ss ent ln )
    
13.     (while (setq ss (ssget)) ;;选取对象
    
14.         (setq ent (entlast)) ;;获取最后的对象，定位用
    
15.         (command "._copy" ss "") ;;调用copy命令
    
16.         (while (= (getvar "CMDACTIVE") 1) ;;手动输入copy指令
    
17.             (command pause)
    
18.         )
    
19.         (setq ss (wyb-get-lastent ent)) ;;根据定位获取copy生成的所有对象
    
20.         (repeat (setq ln (sslength ss)) ;;切换图层
    
21.             (setq ent (entget (ssname ss (setq ln (1- ln)))))
    
22.             (wyb-substmod ent 8 lay)
    
23.         )
    
24.         (setq ss nil) ;;清空选择集
    
25.     )
    
26.     (princ)
    
27. )

;|= 复制并切换图层<br /> @== (_copySwitchLay lay)<br /> #== return: nil<br /> par: <br />     lay: [str] new lay's name<br /> sample: <br />     (_copySwitchLay "0")<br /> ver: <br />     [1.0] by woyb 20190530<br /> ====================|;<br /> (defun _copySwitchLay (lay / ss ent ln )<br />     (while (setq ss (ssget)) ;;选取对象<br />         (setq ent (entlast)) ;;获取最后的对象，定位用<br />         (command "._copy" ss "") ;;调用copy命令<br />         (while (= (getvar "CMDACTIVE") 1) ;;手动输入copy指令<br />             (command pause)<br />         )<br />         (setq ss (wyb-get-lastent ent)) ;;根据定位获取copy生成的所有对象<br />         (repeat (setq ln (sslength ss)) ;;切换图层<br />             (setq ent (entget (ssname ss (setq ln (1- ln)))))<br />             (wyb-substmod ent 8 lay)<br />         )<br />         (setq ss nil) ;;清空选择集<br />     )<br />     (princ)<br /> )