还是文字读写的问题

CADghost · 发表于 2004-6-27 09:14:00

怎么样才能在原文本文件的下一行追加记录呢？我试过以“A”打开好像不好使！
还有怎么样才能任意删除第N行数据呢？

alin · 发表于 2004-6-27 10:19:00

;;任意删除第N行数据
(defun DelLine (file NumberOfLine / cnt line lst f )
   (setq lst '() cnt 0)
   (setq f (open file "r"))
   (while (setq line (read-line f))
   (setq cnt (1+ cnt))
   (if (/= cnt NumberOfLine)
   (setq lst (append lst (list line)))))
   (close f)
   (setq f (open file "w"))
   (foreach atm lst (write-line atm f))
   (close f)
)
怎么不好使？

CADghost · 发表于 2004-6-27 16:29:00

就覆盖了呗!

精灵王 · 发表于 2004-6-27 19:24:00

先移动到文件结尾，然后再开始添加，应该就没有问题了

CADghost · 发表于 2004-6-28 09:07:00

哦，对不起，我从来没有按过“是”，真的是在最后一行添加了！
可是怎么把这该死的对话框去掉呢？就是如果没有这个文件直接新建一个，不用弹出对话框。也不用询问是否覆盖。
还有，怎么新建一个文件夹呢？

meflying · 发表于 2004-6-28 09:21:00

哪里要按是？？？？你的程序呢？

CADghost · 发表于 2004-6-28 14:39:00

那个程序在家里，我明天带来，老版先看看这个，我刚学DCL，我哪里错了呢？
dia:dialog{
   label="AutoCAD螺旋线:";
   :edit_box{
   label="请输入螺旋线转角";
   key="edit_a";
   edit_width=6;
   }
   :edit_box{
   label="请输入螺旋线底部半径";
   key="edit_r";
   edit_width=6;
   }
   :edit_box{
   label="请输入螺旋线底顶部半径";
   key="edit_d";
   edit_width=6;
   }
   :edit_box{
   label="请输入螺旋线高度";
   key="edit_h";
   edit_width=6;
   }
   ok_cancel;
   }

LISP
(defun c:lx ()
   (setvar "cmdecho" 0)    ;关闭回显
   (initget 1)
   (setq b1 (getpoint "\n请输入插入点(螺旋线圆心):"))
   (dcl_dia)
   )
   ;|(initget 1)
   (setq ang0 (getreal "\n请输入螺旋线的转角:"))
   (initget 1)
   (setq a (getreal "\n请输入螺旋线底部的半径:"))
   (initget 1)
   (setq b (getreal "\n请输入螺旋线顶部的半径:"))
   (initget 1)
   (setq h (getreal "\n请输入螺旋线的高度:"))|;
(defun ok_dia()
   (setq ang0 (atof (get_tile "edit_a")))
   (setq a (atof (get_tile "edit_r")))
   (setq b (atof (get_tile "edit_d")))
   (setq h (atof (get_tile "edit_h")))
   (setq n (fix h))
   (setq delt (/ (* (/ ang0 180) pi) n))
   (setq j (/ h n))
   (Setq ang 0)
   (Setq jj 0)
   (command "ucsicon" "or")
   (command "ucs" "o" b1)
   (command "3dpoly" (list a 0 0))
   (repeat n
   (setq jj (+ jj 1))
   (Setq j1 (+ 0 (* jj j)))
   (setq ang (+ delt ang))
   (setq r (- a (/ (* j1 (- a b)) h)))
   (setq pt2 (list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))
   (command pt2)
   )
   (command "")
   (command "_view" "o" "F")
   (princ "\n for AutoCAD2004 Chs ---- 螺旋线")
   (princ)
   )