[LISP]关于cad中点输出到文件的问题

无痕

2. (defun c:tt (/ ffn ff txt pt st)
3.    (setvar "cmdecho" 0)
4.    (princ "\n----------<<坐标点输出到文件 >>------------")
5.    (setq ffn (getfiled "写出文件" "" "txt" 1))
6.    (setq ff (open ffn "a"))
7.    (setvar "pdmode" 34)
8.    (setq i (getint "\n起始编号:"))
9.    (while (setq pt (getpoint "\n节点位置: "))
10.        (setq st (list (strcat "n" (itoa i)) " " (car pt) " "(cadr pt) "\n")
11.      i   (1+ i))
12.        (mapcar '(lambda(x)(princ x ff)) st)
13.    )
14.    (princ (strcat "\n写出文件: " ffn))
15.    (close ff)
16.    (prin1)
17. )

(defun c:tt (/ ffn ff txt pt st)    (setvar "cmdecho" 0)    (princ "\n----------<<坐标点输出到文件 >>------------")    (setq ffn (getfiled "写出文件" "" "txt" 1))    (setq ff (open ffn "a"))    (setvar "pdmode" 34)    (setq i (getint "\n起始编号:"))    (while (setq pt (getpoint "\n节点位置: "))        (setq st (list (strcat "n" (itoa i)) " " (car pt) " "(cadr pt) "\n")      i   (1+ i))        (mapcar '(lambda(x)(princ x ff)) st)    )    (princ (strcat "\n写出文件: " ffn))    (close ff)    (prin1) )

north911

高手，还没有想过用无名函数，努力

meflying

哈哈,要想使用精简函数,找无痕就对了,,,不过要弄懂他的函数,就需要努力了......

无痕

．．．．别


别找我，我错了．．．

maomao2004

请无痕大哥授教了