cindy_fisher 发表于 2011-11-21 20:01:38

写文字脚本,求修改,谢谢

OPEN "62-100-D-01" LAYER SET 17
STYLE ARIAL ARIAL.TTF 0.1389 0.8 0 NO NO
TEXT S ARIAL J M 30.8418,6.9163 0.1389 YSW
qsave
OPEN "62-100-D-02" LAYER SET 17
STYLE ARIAL ARIAL.TTF 0.1389 0.8 0 NO NO
TEXT S ARIAL J M 30.8833,6.9579 0.1389 YSW
qsave
如上,在每个文件30.8833,6.9579的地方写上YSW的脚本。

遇到如下两个文字:
1.程序不能写在一行上,负责运行到把层设为17就不动了,qsave也会跟着当成要写的文字,因为图纸较多,想用EXcel弄下,然后运行,结果不能写在一行就很麻烦,得敲回车。
2.文字总是不按照上面脚本给出的坐标(x,y)上写,所有的文字具体位置都比程序的Y坐标小了0.25,实际X坐标跟程序中是一样了,不知道原因是什么。

因为不会用lisp写直接开关保存文件的语句,所以只好弄个脚本,请求帮忙修改,谢谢。

dunkel 发表于 2011-11-22 08:49:34

不同的命令,还是独立成一行吧,多敲几个回车,没什么困难吧,毕竟在 Excel 里也只要拖拉下就可以了,不需要每个文件都敲上几次的。
Layer Set 17 这个命令,还没完成吧;再加个 "" 试试呢?
写文字时,Y 坐标有偏移,这个有些奇怪。OSMode 置为 0 再试试?

cindy_fisher 发表于 2011-11-28 22:26:27

dunkel 发表于 2011-11-22 08:49 static/image/common/back.gif
不同的命令,还是独立成一行吧,多敲几个回车,没什么困难吧,毕竟在 Excel 里也只要拖拉下就可以了,不需要 ...

谢谢dunkel大哥,把扑捉关了就好了
写在不同行不用一直敲回车,我把所有的都写一行,然后粘贴到写字板,把要换行的标记替换成回车就行了。
页: [1]
查看完整版本: 写文字脚本,求修改,谢谢