快速作块（源码）..

r6831800

没有贱人不贱人，支持下  不错啊。、学习。。

asd19400

以时间为快名，精确到秒，就没有那个问题了，还有就是建议楼主改进下，块的插入点默认为左下角，最外围物体线的交点，

raimo

非常需要。。多谢楼主了

davide888

不错的程序，可以控制创建的块是否允许分解不？

清风明月名字

谢谢楼主的奉献！

yaokui25

今天就能用到楼主的此程序，在这里先谢谢了

thalon

支持一下

paulpipi

学习了，，谢谢

渠辉

2. (defun emkunameblk (ss pt / i name)
   
3.   (entmake (list '(0 . "block")
   
4.                  '(2 . "*u")
   
5.                  '(70 . 1)
   
6.                  (cons 10 pt)
   
7.            )
   
8.   )
   
9.   (repeat (setq i (sslength ss))
   
10.     (entmake (cdr (entget (ssname ss (setq i (1- i))))))
    
11.   )
    
12.   (setq name (entmake '((0 . "endblk"))))
    
13.   (command "_.erase" ss "")
    
14.   (entmake (list '(0 . "insert") (cons 2 name) (cons 10 pt)))
    
15.   name
    
16. )
    
17. (defun emkblk (ss pt name / i)
    
18.   (entmake (list '(0 . "block")
    
19.                  (cons 2 bname)
    
20.                  '(70 . 0)
    
21.                  (cons 10 bpoint)
    
22.            )
    
23.   )
    
24.   (repeat (setq i (sslength ss))
    
25.     (entmake (cdr (entget (ssname ss (setq i (1- i))))))
    
26.   )
    
27.   (entmake '((0 . "endblk")))
    
28.   (command "_.erase" ss "")
    
29.   (entmake (list '(0 . "insert") (cons 2 name) (cons 10 pt)))
    
30. )

(defun emkunameblk (ss pt / i name)<br />   (entmake (list '(0 . "block")<br />                  '(2 . "*u")<br />                  '(70 . 1)<br />                  (cons 10 pt)<br />            )<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 /> )<br /> (defun emkblk (ss pt name / i)<br />   (entmake (list '(0 . "block")<br />                  (cons 2 bname)<br />                  '(70 . 0)<br />                  (cons 10 bpoint)<br />            )<br />   )<br />   (repeat (setq i (sslength ss))<br />     (entmake (cdr (entget (ssname ss (setq i (1- i))))))<br />   )<br />   (entmake '((0 . "endblk")))<br />   (command "_.erase" ss "")<br />   (entmake (list '(0 . "insert") (cons 2 name) (cons 10 pt)))<br /> )

xvjiex

不错，收藏学习！