如何分解用多重插入块加密的CAD图纸
答案:2 悬赏:0
解决时间 2021-02-14 10:21
- 提问者网友：斯文败类
- 2021-02-14 01:53
如何分解用多重插入块加密的CAD图纸
最佳答案
- 二级知识专家网友：伤口狠精致
- 2021-02-14 03:02
M insert你用“.x ”试一下
全部回答
- 1楼网友：安稳不如野
- 2021-02-14 04:13
把下列字符复制到记事本中，保存为：分解多重快.lsp，在cad中加载它，命令：exm
或直接粘贴到cad命令行也行（一次性的）
(defun c:exm ()
(setvar "cmdecho" 0)
(setq stm (car (entsel " 点取多重块")))
(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 r_dist_zm44 (assoc 44 e))
(setq c_dist_zm45 (assoc 45 e))
(setq e (subst (cons 44 0) r_dist_zm44 e))
(setq e (subst (cons 45 0) c_dist_zm45 e))
(setq e (subst (cons 70 0) r_zm70 e))
(setq e (subst (cons 71 0) c_zm71 e))
(setq e (subst (list 100"acdbblockreference") (list 100"acdbminsertblock") e))
(entmake e)
(entdel stm)
))
(setq stm (car (entsel " 点取下一多重块")))
)
(setvar "cmdecho" 1)
)
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯