[求助]：怎样从图形中用鼠标获得点击点的坐标?

lzj511 · 发表于 2006-11-10 16:32:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在屏幕上连续点击,使点击点的坐标输入到一个文本文件中?怎样实现?请高手帮忙!!!小弟先谢了!

carrot1983 · 发表于 2006-11-10 18:12:48

http://www.xdcad.net/forum/showthread.php?s=&threadid=602196

zhynt · 发表于 2006-11-10 23:01:41

[PHP]
(defun c:outpt (/ FN F PT PTX PTY)
  (setq fn (getfiled "选择输出文件" "" "TXT" 1))
  (setq f (open fn "w"))
  (WHILE (setq pt (getpoint "\n请在屏幕上取点，右键结束:"))
(setq ptx (car pt)
   pty (cadr pt)
)
(setq ptxyt (strcat (rtos ptx 2 4) "," (rtos pty 2 4)))
(write-line ptxyt f)
  )
  (CLOSE F)
)
[/PHP]

kkk3kkk · 发表于 2006-11-14 20:08:41

(SETQ PT (GETPOINT "\n请从需标注轴网中任选一根轴线的交点 <退出>:"))
(setq point (cdr pt ))

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：怎样从图形中用鼠标获得点击点的坐标?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子