entmake生成块的问题

wharan

从论坛里借用大侠的程序，想把中间中间用entmake生成的很多实体组成块，结果只有一部分实体做成了块，不知道是怎么回事，求大侠指点

• (defun emkblk (pt name)
•   (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))
•   ；中间用entmake生成了很多实体
•   (entmake '((0 . "ENDBLK")))
•   (command "_.erase" ss "")
•   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
• )
  

wharan

这是我的一个应用，供参考。

2. ;;以下生成块
   
3. (defun emkunameblk (ss pt / i name)
   
4.   (entmake
   
5.     (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))
   
6.   )
   
7.   (repeat (setq i (sslength ss))
   
8.     (entmake (cdr (entget (ssname ss (setq i (1- i))))))
   
9.   )
   
10.   (setq name (entmake '((0 . "ENDBLK"))))
    
11.   (command "_.erase" ss "")
    
12.   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
    
13.   name
    
14. )

;;以下生成块<br /> (defun emkunameblk (ss pt / i name)<br />   (entmake<br />     (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))<br />   )<br />   (repeat (setq i (sslength ss))<br />     (entmake (cdr (entget (ssname ss (setq i (1- i))))))<br />   )<br />   (setq name (entmake '((0 . "ENDBLK"))))<br />   (command "_.erase" ss "")<br />   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))<br />   name<br /> )

hubeiwdlue

谢谢楼主分享经验。