请问各位大神有没有办法一次性将普通块变成多重块N次

dd131028

请教各位大神有没有办法一次性将普通块变成多重块N次，现在这个代码是来自网上，普通块变成多重块，点一下加一次(变成N次的目的是为了别人在把多重块变成普通块时要破解N次，来增加外发图纸防更改的相对安全性)

1. ;普通块转多重块（lockb）
   
2. (DEFUN C:lockb ()
   
3. (setvar "cmdecho" 0)
   
4. (SETQ STM (car (ENTSEL "\n点取块")))
   
5. (while stm
   
6. (setq e (entget stm))
   
7. (setq stlx (cdr (assoc 0 e)))
   
8. (if (= stlx "INSERT")
   
9. (PROGN
   
10. (setq r_zm70 (assoc 70 e))
    
11. (setq c_zm71 (assoc 71 e))
    
12. (setq e (subst (cons 70 1) r_zm70 e))
    
13. (setq e (subst (cons 71 1) c_zm71 e))
    
14. (setq e (subst (list 100 "AcDbMInsertBlock") (list 100 "AcDbBlockReference") e))
    
15. (entmake e)
    
16. (entdel stm)
    
17. ))
    
18. (SETQ STM (car (ENTSEL "\n点取下一块")))
    
19. )
    
20. (setvar "cmdecho" 1)
    
21. )
    

;普通块转多重块（lockb）<br /> (DEFUN C:lockb ()<br /> (setvar "cmdecho" 0)<br /> (SETQ STM (car (ENTSEL "\n点取块")))<br /> (while stm<br /> (setq e (entget stm))<br /> (setq stlx (cdr (assoc 0 e)))<br /> (if (= stlx "INSERT")<br /> (PROGN<br /> (setq r_zm70 (assoc 70 e))<br /> (setq c_zm71 (assoc 71 e))<br /> (setq e (subst (cons 70 1) r_zm70 e))<br /> (setq e (subst (cons 71 1) c_zm71 e))<br /> (setq e (subst (list 100 "AcDbMInsertBlock") (list 100 "AcDbBlockReference") e))<br /> (entmake e)<br /> (entdel stm)<br /> ))<br /> (SETQ STM (car (ENTSEL "\n点取下一块")))<br /> )<br /> (setvar "cmdecho" 1)<br /> )<br />

mikewolf2k

下一个帖子已经起好标题了：
请问各位大神有没有办法一次性将多重块N次变成普通块

e2002

精力用这上面没意义，没用的，破这种太容易了。

原地踏步

做成PDF吧，既可防更改又还方便打印。

friendship

谢谢楼主，谢谢