挑战高手！

scorpio

我现在有几千张图纸需要打印，而这几千张图纸只有一个区别，那就是文件名，也就是只需要改一下图框标题栏内的文件名即可


比如我的第一张图标题栏内的文件名是：5377_SHANGLIZHONGXUE


存储在磁盘中的文件名也是5377_SHANGLIZHONGXUE.DWG


第二张图的标题栏内的文件名是：3675_SHANGGAO


存储在磁盘中的文件名就是：3657_SHANGGAO


.


.


.


.


.


这样有很多张，我现在需要用编写一个Auto LISP程序，实现的功能就是：定义一个命令（函数），我打开一张图纸，然后运行该命令，会自动打印一张，然后自动修改文件名，另存为一个图形，然后再把此文件打印出来，然后在修改文件名，另存为……然后再打印，如此循环，直至打印全部结束，这样我就不需要不停的打开文件，在AutoCAD中修改文件名，然后在另存为文件，然后再打印，很麻烦，我希望AUTOCAD能自动执行此过程，不知道ATUOLISP能否实现这样的功能


在这个过程中我遇到了一些问题


比如在调用（command "dtext" ……）


和（command "plot"……）命令的时候不知道如何使用


还有这样的循环程序也不知道如何实现……

cqnj023

看样子，你已经是高手了。我低手觉得你的问题“我打开一张图纸，然后运行该命令，会自动打印一张，然后自动修改文件名，另存为一个图形，然后再把此文件打印出来，然后在修改文件名，另存为……然后再打印，”不知一张图要打几张，难道文件该名后打印出来的就不一样了。如果只打一张，而每张的打印格式都一样的话，交给批打印程序去吧。

myfreemind

dwgname参数为当前文件名,你提取出来以后用saveas方法就可以直接另存了!


如果图全部是一样大的,打印的问题你只要页面设置好了以后直接发送就可以了

scorpio

我就是因为需要编写一个这样的程序才学AUTOLISP的


才看书看了三天，但是任务很紧啊，能不能帮忙写一下具体的程序啊，跪地求救啊·#￥#·


因为我是做无线通信基站的，没个基站有很多数据都是一样的，只是名字很站号是不同的，所以每一张图就是文件名字不同，每一张都是需要打印出来的，万分感谢啊………………6

scorpio

在图纸里面不是有标题栏吗？


标题栏内需要写图名的啊，我所说的就是图名需要改一下，然后就以图名存盘

scorpio

批处理只能把我已经存在的图纸全部打印出来，但是我现在是不想把几千张图都打开，修改，另存……而是用程序来实现这一步骤

efan2000

有点矛盾，既然是几千张图，说明图纸已经有了，为什么还要使用另存为新的图纸？


图纸打印之后另存，根据什么规律来定义图纸的文件名称？标题栏中的文件名称是如何生成的？

scorpio

图当然还没有了啊，但是有每一个基站的数据和信息嘛，我需要的就是把这些信息中需要做图的做出来啊，但是每个基站的信息在图纸上有很多都是相同的


一个图就是一个文件，文件名字就是图纸中标题栏内的名字啊，标题栏中的文件名就是我上面说的比如5377_SHANGLIZHONGXUE,3675_SHANGGAO这些信息都是已经有的啊，然后在图纸里面做好了，保存的文件名称为5377_SHANGLIZHONGXUE.DWG,3675_SHANGGAO.DWG


每张图也就是这个地方不同


比如上面这张图的标题栏内LOCATION：5377_SHANGLIZHONGXUE

scorpio

图当然还没有了啊，但是有每一个基站的数据和信息嘛，我需要的就是把这些信息中需要做图的做出来啊，但是每个基站的信息在图纸上有很多都是相同的



一个图就是一个文件，文件名字就是图纸中标题栏内的名字啊，标题栏中的文件名就是我上面说的比如5377_SHANGLIZHONGXUE,3675_SHANGGAO这些信息都是已经有的啊，然后在图纸里面做好了，保存的文件名称为5377_SHANGLIZHONGXUE.DWG,3675_SHANGGAO.DWG


每张图也就是这个地方不同


比如上面这张图的文件名为5377_SHANGLIZHONGXUE


在图纸的标题栏内LOCATION：5377_SHANGLIZHONGXUE


对了，还有后面的DRAWING NO：SHANGLIZHONGXUE_01


要改成文件名为3675_SHANGGAO


LOCATION：3675_SHANGGAO


DRAWING NO：SHANGGAO_01

Ea

简单点：先用命令处理一张图，把你的操作过程改成Lisp表达