lisp 建块怎么建啊

https://tieba.baidu.com/p/6225849946?share=9105&fr=share&see_lz=0&sfc=copy&client_type=2&client_version=10.3.8.19&st=1573231009&unique=BD3255C31770F7EAEA0D1783456FD517

;返回选集合并成匿名块(insert_blcok 选集 图块基点 插入点)
(defun insert_block (ss pt pt_ins / i)
(entmake
(list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))
)
(setq i 0)
(repeat (sslength ss)
(entmake (cdr (entget (ssname ss i))))
(entdel (ssname ss i))
(setq i (1+ i))
)
(setq block_m (entmake '((0 . "endblk"))))
(entmake (list '(0 . "INSERT")
(cons 2 block_m)
(cons 10 pt_ins)
)
)
(entlast)
)