打散线条lisp_cad打散多重插入块的方法

cad

打散多重插入块的方法

一个自编的

LISP

文件

,

把以下红色部分文字复制在记事本

,

然后另存为后缀名为

.LSP

格式的

文件

.

然后在

CAD

中

,APPLOAD

加载这个小程式后

--

命令行键入

EXM123.

按命令行提示

,

然后就能用

REFEDIT

和

EXPLODE

命令了

(DEFUN C:exm123 ()

(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 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 "\n

点取下一多重块

")))

)

(setvar "cmdecho" 1)

)

打开

cad

输入

APPLOAD

加载编辑好的

lsp

文件即可，

有的计算机系统可能会丢失元素，

打散后须与原图比对一下，最好使用新版

cad