还是文字读写的问题

CADghost

怎么样才能在原文本文件的下一行追加记录呢？我试过以“A”打开好像不好使！


还有怎么样才能任意删除第N行数据呢？

alin

;;任意删除第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)
)

怎么样才能在原文本文件的下一行追加记录呢？我试过以“A”打开好像不好使！

怎么不好使？

CADghost

就覆盖了呗!

精灵王

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

CADghost

哦，对不起，我从来没有按过“是”，真的是在最后一行添加了！


可是怎么把这该死的对话框去掉呢？就是如果没有这个文件直接新建一个，不用弹出对话框。也不用询问是否覆盖。


还有，怎么新建一个文件夹呢？

meflying

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

CADghost

那个程序在家里，我明天带来，老版先看看这个，我刚学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<CADghost R1.0> for AutoCAD2004 Chs ---- 螺旋线")
(princ)
)

CADghost

单运行LISP程序没问题，可是加在一起，就死机！

aaddff

“(dcl_dia)” 在哪里？没看到啊

meflying

要截取程序部分，也应该截取完整的，，，，，自己先试了再贴上来，不要随便复制一块就往上贴


还有，你接的帖子是否跟我问的有关，还是新的问题？