保护版权，将图加密成多重定义块，批量实现

rdhhb

实现代码：

(defun c:jiam (/ aa)
  (alert "\n加密前要备份原有图文件！！")
(setq aa (getvar "DWGNAME"))
(vl-cmdf "_.minsert" aa "1000,1000,0" "1" "1" 0 5 5 0 0)
(alert "\n加密成功，请删除原有图后用pu命令清空图层、线型等数据！！")
  )


该贴已经同步到 rdhhb的微博

kwok

加密，那解呢?

ㄘ丶转裑ㄧ灬

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

(DEFUN C:exm ()<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 r_dist_zm44 (assoc 44 e))<br /> (setq c_dist_zm45 (assoc 45 e))<br /> (setq e (subst (cons 44 0) r_dist_zm44 e))<br /> (setq e (subst (cons 45 0) c_dist_zm45 e))<br /> (setq e (subst (cons 70 0) r_zm70 e))<br /> (setq e (subst (cons 71 0) c_zm71 e))<br /> (setq e (subst (list 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") e))<br /> (entmake e)<br /> (entdel stm)<br /> ))<br /> (SETQ STM (car (ENTSEL "\n点取下一多重块")))<br /> )<br /> (setvar "cmdecho" 1))

rdhhb

楼上替我回答了。

paulpipi

正需要，谢谢

sunny_8848

可以加密，解密不成功，2010版

专用车研发

不行啊，插入块然后勾选分解，原始图纸又回来了