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

north911

我想把图中n1～n4各点的坐标输出到文件中，不知道怎么实现，文件格式：


n1         x坐标         y坐标


n2         x坐标         y坐标

meflying

查看帮助文件中open、write-line函数

jans

(


        write-line "I fuck CAD!"


        (open "d:/x.txt" "w")


)

north911

(defun c:cadtofile ()
(setvar "cmdecho" 0)
(princ "\n----------<<坐标点输出到文件 >>------------")
(setq ffn (getfiled "写出文件" "" "txt" 1))
(setvar "pdmode" 34)
(setq ff (open ffn "w"))
(close ff)
(setq txt (entsel "\n选择节点号： "))
(setq txt (entget (car txt)))
(setq txt (assoc 1 txt))
(setq txt (cdr txt))
(setq pt (getpoint "\n节点位置: "))
(while (/= pt nil)
(setq ff (open ffn "a"))
(princ txt ff)
(princ " " ff)
(princ (car pt) ff)
(princ " " ff)
(princ (cadr pt) ff)
(princ " " ff)
;;(princ (caddr pt) ff)
(princ "\n" ff)
(close ff)
(setq txt (entsel "\n选择节点号： "))
(setq txt (entget (car txt)))
(setq txt (assoc 1 txt))
(setq txt (cdr txt))
(setq pt (getpoint "\n节点位置: "))
)
(princ (strcat "\n写出文件: " ffn))
(prin1)
) 这段代码可以实现这个功能了，再问一个小问题，比如上面那个图，我想在选完四个节点后退出程序（用右键或者空格键，不用esc键），不知道怎么弄

meflying

你的这个右键就可以退出啊

north911

出现了这个提示：; 错误: 参数类型错误: lentityp nil


虽然不影响输出的结果，但看着不舒服，怎么搞掉它

meflying

原来你在选择节点号那里就要退出了,这是一个十分简单的程序结构问题,你不应该写不出来啊,,,,给你稍微改了一下:

2. (defun c:cadtofile ()
3.    (setvar "cmdecho" 0)
4.    (princ "\n----------<<坐标点输出到文件 >>------------")
5.    (setq ffn (getfiled "写出文件" "" "txt" 1))
6.    (setvar "pdmode" 34)
7.    (setq ff (open ffn "w"))
8.    (close ff)
9.    (while (setq txt (entsel "\n选择节点号： "))
10.        (setq txt (entget (car txt)))
11.        (setq txt (assoc 1 txt))
12.        (setq txt (cdr txt))
13.        (setq pt (getpoint "\n节点位置: "))   
14.        (setq ff (open ffn "a"))
15.        (princ txt ff)
16.        (princ " " ff)
17.        (princ (car pt) ff)
18.        (princ " " ff)
19.        (princ (cadr pt) ff)
20.        (princ " " ff)
21.        ;;(princ (caddr pt) ff)
22.        (princ "\n" ff)
23.        (close ff)
24.    )
25.    (princ (strcat "\n写出文件: " ffn))
26.    (prin1)
27. )

(defun c:cadtofile ()    (setvar "cmdecho" 0)    (princ "\n----------<<坐标点输出到文件 >>------------")    (setq ffn (getfiled "写出文件" "" "txt" 1))    (setvar "pdmode" 34)    (setq ff (open ffn "w"))    (close ff)    (while (setq txt (entsel "\n选择节点号： "))        (setq txt (entget (car txt)))        (setq txt (assoc 1 txt))        (setq txt (cdr txt))        (setq pt (getpoint "\n节点位置: "))           (setq ff (open ffn "a"))        (princ txt ff)        (princ " " ff)        (princ (car pt) ff)        (princ " " ff)        (princ (cadr pt) ff)        (princ " " ff)        ;;(princ (caddr pt) ff)        (princ "\n" ff)        (close ff)    )    (princ (strcat "\n写出文件: " ffn))    (prin1) )

north911

受教了

无痕

meflying 是高手阿，佩服

jans

在这儿能学到的东西很多是不能在书本上学到的,非常感谢那些无私奉献自己知识的人!有你们中国的明天会跟美好!