[编程申请]：坐标输出问题

lida

能否编一个在CAD里鼠标点一下，该点坐标能自动输出至文本文件或EXCELE。

daib

可以。
utitlty.getpoint()可以获得CAD绝对坐标系下的坐标。
然后用file.write()的方式写入就可以。
我给你发一个坐标定位的程序。里面的VBA程序可以把你想定位的坐标点输出到CAD屏幕上。你可以参考一下。
程序的名字是ZB

lsjjm

请参考:
(defun c:test ()
  (setq fname "c:/coord1.txt")
  (setq fn (open fname "w"))
  (write-line "Point X and Y Coordinates" fn)
  (write-line "******************************" fn)
  (write-line  " X-Value    Y-Value" fn)
  (while (setq p (getpoint "\nPick Point: "))
    (setq x (rtos (car p))
          y (rtos (cadr p)))
    (write-line (strcat x "     " y) fn)
  )
  (write-line "-----------------------------" fn)
)

daib

三楼的老兄，你所获得的坐标是绝对坐标吧!也就是说，无论UCS怎么变，其坐标的值却不会变。我以前就吃过这样的亏。

lsjjm

最初由 daib 发布
[B]三楼的老兄，你所获得的坐标是绝对坐标吧!..[B]

1楼说: "能否编一个在CAD里鼠标点一下，该点坐标能自动输出至文本文件或EXCELE。"
没提额外要求呀!