[求助][LISP]怎样实现对不同文件的操作????

xialiang

DBX是什么?

我真是想学学!!能给介绍以下这方面的参考资料吗?

leizi_y

(defun c:pppp ()
  (setq ff (getfiled "请输入要打印的dwg文件列表名:" "C:/" "txt" 2));;;;;选择需要提前做好的txt文件（主要是修改信息）
  (setq kf (open ff "r"))  ;;;;打开txt文件
  (setq kh (read-line kf));读取txt文件的行
  (command "qsave")
  (;;;;;;;;)这需要补充处理txt的一行内容，得到每张图中要修改的具体内容！！！！
)

(defun S::STARTUP ()
  (P1);;;1为自己编写的每张图纸中修改具体内容的程序
  (command "qsave")
  (open1)
)

(defun open1 ()
  (setq kh (read-line Kf))
  (if (/= kh nil);;;;txt文件没有结束
    (progn
      (command "open" kh)
    )
  )
  (if (= kh nil);;;;txt文件没有结束
    (progn
     )    ;;;;;;   txt文件处理完毕，可以写完成提示等
    (defun S::STARTUP ()   ;;重定义STARTUP()
      (Princ)
    )
   )
  )
)

(defun p1()
;;;;;;;这里为每张图纸的具体处理内容
)

leizi_y

txt文件中

包含  ：dwg文件的  绝对路径，修改内容等等，

比如我的一个例子：

E:/立面/立面1.dwg,SN,SN:003,15,194,3,270,1

我的这个例子是将立面1.dwg中的  文字  SN  全部删除， 在  相对坐标(15,194)的地方插入文本SN:003,角度270，高度3  ，红色（1）

这里还有一个关键是    上面例子中的

txt文件中

包含  ：dwg文件的  绝对路径，修改内容等等，

比如我的一个例子：

E:/立面/立面1.dwg,SN,SN:003,15,194,3,270,1

我的这个例子是将立面1.dwg中的  文字  SN  全部删除， 在  相对坐标(15,194)的地方插入文本SN:003,角度270，高度3  ，红色（1）

这里还有一个关键是    上面例子中的E:/立面/立面1.dwg,SN,SN:003,15,194,3,270,1

按照逗号分成几个数据。

S::STARTUP()程序是每次打开文件都会执行的程序，所以我用来作为循环调用的

另外  必须保证  tools->compatibility:Reload Autolisp between drawings  选项不被选中才能自动批量执行。。。。

（以上都是r14中试验的。  别的版本没有做过）

 

leizi_y

当然，这个程序的实质是    顺序打开每一个文件，分别然后进行处理。这样可能会占用系统资源。 

但是现在机器都快，   让他自己去处理得了。。

完全可以不管他

无痕

继续努力！好好学习！

xiabin68

高后，，，这种都还没有进入的，，、