这个快速建块程序是根据网友要求编写，要求如下“怎么才能把你写的程序 取消插入点位置提示 而默认是选择对象的左下角了，做为插入点”。
原先的快速建块程序只需要选择块要包含的实体并提供一个插入点即可完成建块过程，而现在这个程序只需选中块要包含的实体即可，插入点默认为实体的左下角，个人认为这样不是很好，但这或许会满足部分朋友的需求所以在此公布。
以前的快速建块源代码如下
;;建块cb
;;制作:李文 liwen@znwl.com
(defun c:cb ()
(princ "\nMade by liwen Email:liwen@znwl.com\n")
(setvar "cmdecho" 0)
(setq oldosmode (getvar "osmode"))
(Setvar "osmode" 16383)
(princ "\nSelect Objects:")
(setq ss (ssget)
pt (getpoint "\nSelect Insert Point:") （取消这个提示，默认插入点是选择对象的左下角）
block_name (rtos (* (getvar "cdate") 1000000) 2 0)
block_name (strcat "B" block_name)
)
(command "_block" block_name pt ss "")
(command "_insert" block_name pt "" "" "")
(setvar "osmode" oldosmode)
(princ "\n")(princ (strcat "ok! block name: " block_name))
(prin1)
)
取消插入点提示的程序: