求快速做块，块名不重要，插入点为原点

panliang9

大家谁有空帮我弄一个快速做块程序，块名不重要，插入点为原点。

我现在的一些图里有很多对象要快速变为外部引用，我想用定块的办法统统写出去，然后再统一插进来，但是没有一个快速做块，而且插入点为原点的程序，大家谁有空，帮帮我，我这里先谢谢大家了！

【KAIXIN】

论坛有此源码，自行找找

Gu_xl

1. (defun c:mblk (/ ss os cmdecho)
   
2.   (setq os (getvar 'osmode))
   
3.   (setq cmdecho (getvar 'cmdecho))
   
4.   (setvar 'osmode 0)
   
5.   (setvar 'cmdecho 0)
   
6.   (princ "\n选择要做块实体:")
   
7.   (while (setq ss (ssget))
   
8.     ;;时间为块名
   
9.     (setq name (rtos (getvar 'cdate) 2 8))
   
10.     (command "block" name  "0,0,0" ss "")
    
11.     (command "insert" name "0,0,0" 1 1 0)
    
12.     (princ "\n回车结束<继续做块>:")
    
13.     )
    
14.     (setvar 'osmode os)
    
15.   (setvar 'cmdecho cmdecho)
    
16. (princ)
    
17.   )
    

(defun c:mblk (/ ss os cmdecho)<br />   (setq os (getvar 'osmode))<br />   (setq cmdecho (getvar 'cmdecho))<br />   (setvar 'osmode 0)<br />   (setvar 'cmdecho 0)<br />   (princ "\n选择要做块实体:")<br />   (while (setq ss (ssget))<br />     ;;时间为块名<br />     (setq name (rtos (getvar 'cdate) 2 8))<br />     (command "block" name  "0,0,0" ss "")<br />     (command "insert" name "0,0,0" 1 1 0)<br />     (princ "\n回车结束<继续做块>:")<br />     )<br />     (setvar 'osmode os)<br />   (setvar 'cmdecho cmdecho)<br /> (princ)<br />   )<br />

panliang9

版主大人：

非常谢谢你的程序，能不能继续帮我改一下，我想要插入点全部为“0，0，0“点，即座标原点，不用自己选点，因为待会我要将块全部写出去，然后再全部插进来，到时候就不会乱了。

谢谢！

这一屋里的同事都不懂lisp，只有求你们帮忙了！

Gu_xl

上述程序原点就是0,0,你表述问题不清楚，不知你到底想干什么！

panliang9

惭愧！

就是不需要选点，直接用座标原点就可以了！

GamIng

不要定点的话，其实用ACAD自带的ctrl+shift+c和ctrl+shift+v就ok了。