dd131028 发表于 2020-6-19 17:19:15

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

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

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

mikewolf2k 发表于 2020-6-20 16:22:52

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

e2002 发表于 2020-6-21 09:03:03

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

原地踏步 发表于 2020-6-23 20:52:39

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

friendship 发表于 2020-6-24 21:36:32

谢谢楼主，谢谢
页: [1]
查看完整版本: 请问各位大神有没有办法一次性将普通块变成多重块N次