关于entmake生成普通块的问题

qinleilei

在网上找了一段代码，用entmake生成普通块。但是发现了一个问题，生成的块用块编辑时块的位置跳动，用这个块做出的最大包围框位置也跑掉了，求高手优化，代码作者不详，还是很感谢原作者提供的代码

1. (defun emkblk (ss pt name / i)
   
2.   (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))
   
3.   (repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )
   
4.   (entmake '((0 . "ENDBLK")))
   
5.   (command "_.erase" ss "")
   
6.   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
   
7. )

(defun emkblk (ss pt name / i)<br />   (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))<br />   (repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )<br />   (entmake '((0 . "ENDBLK")))<br />   (command "_.erase" ss "")<br />   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))<br /> )

zhongys

加一句(command "ucs" "w")

Linhay

你说的这种问题我在手动建块的时候也遇到过，不知道是什么原因

edata

只能证明和这段代码关系不大。。
传dwg
传获取包围框的lsp

USER2128

需在原点制块，即：PT = '(0 0 0)
其它的，需自己思索