标注栏里有个坐标标注功能，点一下就能标出你想标的点的坐标。左右挪鼠标找Y点，上下移鼠标找X点。
或者直接用这串代码：
lisp
(defun c:a ()
(getpoint)
(setq a (getpoint 点))
(setq b (strcat (
(rtos (car a) 2 0)
,
(rtos (cadr a) 2 0)
,
(rtos (caddr a) 2 0)
)))
(command -text a b )
)
把上面那段复制到记事本里，存成.lsp格式文件。打开CAD，输入ap，选刚才存的lsp文件加载。回到主界面，在命令行敲a，然后点你想要的坐标点就OK啦！
或者直接用这串代码：
lisp
(defun c:a ()
(getpoint)
(setq a (getpoint 点))
(setq b (strcat (
(rtos (car a) 2 0)
,
(rtos (cadr a) 2 0)
,
(rtos (caddr a) 2 0)
)))
(command -text a b )
)
把上面那段复制到记事本里，存成.lsp格式文件。打开CAD，输入ap，选刚才存的lsp文件加载。回到主界面，在命令行敲a，然后点你想要的坐标点就OK啦！