[求助]：急！哪位老师可以帮忙？（输出坐标到文本文件）

jove_yang

我是个cad新手，有个问题想请教：
我想通过鼠标在三维空间图上捕捉点，cad自动输出坐标到文本文件里。可以实现吗？如果可以该如何实现呢？
很急的！
谢谢！！

zxq0220

2. 
   
3. (DEFUN C:PT-TO-FILE ()
   
4. (SETQ NMM (IF (/= NMM nil) NMM ""))
   
5. (SETQ NMM (GETFILED "File Name :" NMM "txt" 9))
   
6. (IF (> (STRLEN NMM) 0) (PROGN
   
7. (SETQ F (OPEN NMM "w"))
   
8. (WHILE (SETQ PT (GETPOINT "\n坐标点 :"))
   
9.   (PRINC PT F) (PRINC "\n")
   
10. )
    
11. (CLOSE F)
    
12. ))
    
13. )
    

<br /> (DEFUN C:PT-TO-FILE ()<br /> (SETQ NMM (IF (/= NMM nil) NMM ""))<br /> (SETQ NMM (GETFILED "File Name :" NMM "txt" 9))<br /> (IF (> (STRLEN NMM) 0) (PROGN<br /> (SETQ F (OPEN NMM "w"))<br /> (WHILE (SETQ PT (GETPOINT "\n坐标点 :"))<br />   (PRINC PT F) (PRINC "\n")<br /> )<br /> (CLOSE F)<br /> ))<br /> )<br />

陈立龙

没试过,有这样的办法吗?不过倒有把CAD复制到WROD,

ErlKing

我不懂lisp,平时也经常用到解坐标，我用.net和vba都写过。思路是用多段线（你应该用三维多段线，我一般都是用二维的）把你要解的点连接起来，这就变成求多段线的节点坐标了啊。之所以用多段线，是因为我经常点错点，用了多段线非常便于编辑，求多段线的节点坐标在autocad的帮助中有。

jsrlb

　　　　俺试啦一下二楼的小程序，是不错，可以将点坐标输出到文本文件中去，
　　不过其文本中的坐标数据全部为一行，看着不方便，能不能想办法让文本文件
　　中的每点坐标值单独为一行。

xyp1964

[php]
(DEFUN C:test (/ NMM F PT)
  (IF (SETQ NMM (GETFILED "文件名称 : " ""  "txt" 9))
    (PROGN
      (SETQ F (OPEN NMM "w"))
      (WHILE (SETQ PT (GETPOINT "\n坐标点<退出> : "))
        (PRINC PT F)
        (PRINC "\n\r" F)
      )
      (CLOSE F)
    )
  )
  (princ)
)
[/php]
效果：
(77450.7 1942.21 0.0)
(99609.1 23000.2 0.0)
(109607.0 -11286.6 0.0)
(115552.0 36769.0 0.0)
(134468.0 -6966.97 0.0)
(165003.0 44058.3 0.0)
(157978.0 1942.21 0.0)

[php]
(DEFUN C:test (/ NMM F PT)
  (IF (SETQ NMM (GETFILED "文件名称 : " "" "txt" 9))
    (PROGN
      (SETQ F (OPEN NMM "w"))
      (WHILE (SETQ PT (GETPOINT "\n坐标点<退出> : "))
        (write-line
          (strcat (rtos (car pt) 2)
                  ","
                  (rtos (cadr pt) 2)
                  ","
                  (rtos (caddr pt) 2)
          )
          F
        )
      )
      (CLOSE F)
    )
  )
  (princ)
)
[/php]
效果：
69614.23,18140.70,0.00
95285.53,48377.89,0.00
113660.77,10311.43,0.00
130144.45,62956.53,0.00
137980.95,11661.30,0.00
116633.24,47297.99,0.00
105283.82,4911.93,0.00
142844.99,14361.05,0.00
60426.60,5451.88,0.00
147438.80,-5347.12,0.00
160409.56,-757.54,0.00
145006.78,24080.15,0.00

binggege1

谢谢，很好用的

jsrlb

谢谢　xyp1964 　啊，非常好用，俺喜欢第三种格式，那是俺需要的。

qiaqiadeng

很好用，也学了一招，高手是多啊。

SGP007

能不能直接选取多段线输出坐标呢？不用一个一个去点了