※ 引述《what8013 (.................)》之铭言： : 我现再遇到一个问题 : 就是我必须靠AutoLISP读取多个文字档帮我画图 : 光是读取一个文字档进来画这是没问题 : 现在问题是 我需要读取好几个文字档内的DATA : 每一个文字档内都是一些座标点 用来画聚合线的 : 我想用回圈写 这样只要一次执行 就可以全部画完 : 不用一个一个档案慢慢画 : 而那些文字档的档名 我会把它排成等差数列 : 如:abc1.txt abc2.txt abc3.txt ..... : 现在就是卡在LISP指令不知道该怎麽写 : (setq Fop (open "F:/Eximer Laser/LISP/abc",i,".txt" "r"))) : 上面程式是错的 我不知道open指令後面要怎麽同时加入字串与数字 : 上面的i就是我文字档名中的数字 我有做累加的动作 : 现再只差这一步把所有档案吃进来 就可以执行了 : 请LISP高手指点一下 这边该怎麽修改 谢谢！！ 我不是,我不是高手 不过我想到的是 你得会另一套语言做转译程式 作用是把你的资料档直接做成.lsp (甚至或者是 script :脚本档) 然後再让cad 去自动作图 至於 VBA for CAD 我就不甚了了 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 61.59.125.217