dong20030432 发表于 2018-3-7 17:10:19

【求助】请教如何用VBA分解多重插入块和循环嵌套块？

如题，请各位高手赐教！！！{:1_1:}

dong20030432 发表于 2018-3-7 17:25:49

下面是网上找到的用LSP写的破解多重插入块的代码，看不懂，哪位高手有空帮忙翻译成VBA也行，非常感谢！
(defun c:unlk (/ en ent)
(setq en (entsel "\n请选择被加密的图形:"))
(if en
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
"INSERT"
)
(progn
(setq ent (entmakex
(list '(0 . "INSERT")
(assoc 2 ent)
(assoc 10 ent)
)
)
)
(command "_.explode" (entlast))
(entdel en)
)
)
)
(princ "\nOK，解密成功。")
(princ)
)
页: [1]
查看完整版本: 【求助】请教如何用VBA分解多重插入块和循环嵌套块？