求制作一个lisp 能把当前布局复制并移动到最后

xj6019

        画图的时候 必须用到布局的复制并移动到最后，每次用鼠标挨个的点，可不可以做一个lisp实现呢，要求1.当前布局的情况下，输入命令，把当前布局复制并移动到最后，我布局起名一般情况是有规律的都是1.2.3.4.5.........这样一直往后起名，要求移动到最后读取上一次的布局名称，并将复制并移动后的布局名称自动改为对应的下一个号。 打个比方，现在一共有15个布局，我选择在7号布局，输入命令后，自动把7号布局移动并复制到最后，然后起名为16.就这么个功能

拜托了！

ssdsfg

xj6019 发表于 2019-12-26 11:26
您好，可否先把代码传上来我试试呀？谢谢

2. (defun c:fb()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq bjj (layoutlist))
   
5.   (setq i (length bjj))
   
6.   (setq text (itoa (1+ i)))
   
7.   (command "layout" "c" "" text)
   
8.   )

(defun c:fb()<br />   (setvar "cmdecho" 0)<br />   (setq bjj (layoutlist))<br />   (setq i (length bjj))<br />   (setq text (itoa (1+ i)))<br />   (command "layout" "c" "" text)<br />   )

你试试！

xj6019

有知道的吗 ，求解，就是不能自动编号也行啊，只实现能复制并移动到最后就行！

xj6019

有人可以帮忙做一个吗，拜托了！！！！

start4444

这种布局操作很少人用到的，查不到相关命令资料，搞不了

xj6019

start4444 发表于 2019-12-19 14:09
这种布局操作很少人用到的，查不到相关命令资料，搞不了

怪不得没人回复，我画图的时候一个布局放一张图纸，最后打印的时候用发布，我个人觉得这样很方便

xj6019

start4444 发表于 2019-12-19 14:09
这种布局操作很少人用到的，查不到相关命令资料，搞不了

电脑试过秋风走不动啊，加载不了（非中文系统）没法用，cad自带的发布我觉得还好吧，只要设置好第一个，往后的都是复制下去的，发布的时候一键确定生成PDF合成的文件，啥都不用调整，秋枫没用过，打印之后也是所有PDF文件按照编号自动合成吗？
我现在算是不得劲的也就是复制布局的时候，鼠标点好几下，如果能自动复制一个就最好了，不行也没法，就这样用吧，反正也习惯了，这几年都是这么干的。

start4444

没搞清楚你要什么的操作

xj6019

start4444 发表于 2019-12-24 13:31
没搞清楚你要什么的操作

1.双击激活视口调好比例后运行命令，直接在模型空间做一个1:1的矩形，对象画到0图层    后期我自己改到自己需要的图层就行
2.双击激活视口以后，运行命令，自动对齐上次的注释性比例，如图其实就是想把这个功能做一个快捷键.

ssdsfg

我支持你画图的这种方法，你想要的命令我可以试试。