快速作块（源码）..

preone

图片只演示了选择文本（单行或多行）作块名的方式，作无名块只需在选择文本时直接空格跳过即可..
由于第一次发帖，程序难免粗糙，还请多多指正..
另外，此程序作块部分的子程序，均源自 langjs 版主 的分享，多谢 langjs 版主 ~

---

---

;以下为程序部分，命令为bb。

(defun c:bb (/  bent bpoint bname tmp)
  (prompt "\n选择作块对象:")
  (setq bent (ssget))
  (if (null (setq bpoint (getpoint "\n选择块基点<0,0,0>:")))
    (setq bpoint '(0 0 0))
  )
  (prompt "\n选择文本作块名:")
  (setq tmp (ssget '((0 . "*text"))))
  (if
    (null tmp)
     (emkunameblk bent bpoint)
     (progn
       (setq bname (cdr (assoc 1 (entget (ssname tmp 0)))))
       (emkblk bent bpoint bname)
     )
  )
(princ)
)

;以下是作块子程序
(defun emkblk (ss pt name / i)
  (entmake (list '(0 . "block")
   (cons 2 bname)
   '(70 . 0)
   (cons 10 bpoint)
    )
  )
  (repeat (setq i (sslength ss))
    (entmake (cdr (entget (ssname ss (setq i (1- i))))))
  )
  (entmake '((0 . "endblk")))
  (command "_.erase" ss "")
  (entmake (list '(0 . "insert") (cons 2 name) (cons 10 pt)))
)
(defun emkunameblk (ss pt / i name)
  (entmake
    (list '(0 . "block") '(2 . "*u") '(70 . 1) (cons 10 pt))
  )
  (repeat (setq i (sslength ss))
    (entmake (cdr (entget (ssname ss (setq i (1- i))))))
  )
  (setq name (entmake '((0 . "endblk"))))
  (command "_.erase" ss "")
  (entmake (list '(0 . "insert") (cons 2 name) (cons 10 pt)))
  name
)
;end

希望对有需要的同学有一点点帮助~~

渠辉

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 /> )

illcyt

这个快名是时间吗？和贱人工具箱那个一样？

xujinhua

学习了，，谢谢

preone

illcyt 发表于 2012-7-28 00:27
这个快名是时间吗？和贱人工具箱那个一样？

没有用过贱人工具箱，所以不清楚你说的是什么功能~
我附加一个演示图片 你看看是不是需要的~

preone

xujinhua 发表于 2012-7-28 07:42
学习了，，谢谢

多谢鼓励~~

仲文玉

支持下

preone

仲文玉 发表于 2012-7-28 10:02
支持下

谢谢版主鼓励~

461045462

谢谢楼主的分享！
先下载收藏看看，学习学习。
谢谢

preone

461045462 发表于 2012-7-28 11:06
谢谢楼主的分享！
先下载收藏看看，学习学习。
谢谢

illcyt

preone 发表于 2012-7-28 09:23
没有用过贱人工具箱，所以不清楚你说的是什么功能~
我附加一个演示图片 你看看是不是需要的~

思路不错，但是整个做起来的话和block差不多时间啊，不过还是支持下