[编程申请]：求教：如何更简洁的将选中的部分做成块，又不改变位置。

luran

各位大虾，本人遇到棘手问题，需要将大量的图纸中的设备外形
做成图块，而ctrl+c会改变安装的位置而且麻烦，能否有更简洁程序
请帮忙。

eachy

CAD2002下测试（里面不要含属性）:

2. 
   
3. (defun c:test (/ ss)
   
4.   (setq ss (ssget))
   
5.   (command ".copybase" (getvar "viewctr") ss "")
   
6.   (command ".erase" ss "")
   
7.   (command ".pasteblock" (getvar "viewctr"))
   
8.   (princ)
   
9. )

<br /> (defun c:test (/ ss)<br />   (setq ss (ssget))<br />   (command ".copybase" (getvar "viewctr") ss "")<br />   (command ".erase" ss "")<br />   (command ".pasteblock" (getvar "viewctr"))<br />   (princ)<br /> )

aeo

其实ctrl+c时,cad自动把boundingbox的x.y最小点作为插入点.

luran

斑竹写的程序没有属性啊，很多软件的扩充都是需要属性的。麻烦斑竹给写个带属性的拷贝可以吗？[F]
:6