如何在CAD2010中以注记形式显示所有点坐标？

Question

我CAD2010中有一个平面多边形，多边形共有56个顶点，我可以以注记的形式，一下子把这些点的坐标全部显示出来吗？怎么做？或者有工具吗？

Answer 1

(defun C:MJL2 ( / #os &kw L h hh i &kw1 n x y @p)
 (setvar "cmdecho" 0)                                             ;;关闭变量
 (setvar "blipmode" 0)                                            ;;关闭控制点
 (setq #os (getvar "osmode"))                                     ;;保存捕捉设置
 (princ "\n请选择多段线")
 (setq &kw (ssget (list (cons 0 "LWPOLYLINE"))))                  ;;选择多段线
 (if (/= &kw nil)                                                 ;;如果有多段线
  (progn                                                          ;;那么继续
   (setq L 0)                                                     ;;设置记录点数值
   (if (null h) (setq h (getvar "textsize")) )                    ;;提取文字高度
   (setq hh (getdist (strcat "\n请输入文字高度<" (rtos h 2) ">")));;要求输入文字高度
   (if (null hh) (setq hh h) (setq h hh) )                        ;;如果没有输入保持默认
   (setq i 0 )                                                    ;;
   (setvar "osmode" 0)                                            ;;关闭捕捉
   (setvar "pdmode" 33)                                           ;;进入点显示模式
   (repeat (sslength &kw)                                         ;;如果有多条多段线
    (setq &kw1 (ssname &kw i))                                    ;;那么从第一个开始
    (setq &kw1 (entget &kw1))                                     ;;得到这条多段线的列表
    (setq n 0)                                                    ;;
    (repeat (length &kw1)                                         ;;分析列表
     (setq @p (nth n &kw1))                                       ;;提取列表的数据
     (if (= (car @p) 10)                                          ;;如果是点
      (progn                                                      ;;那么
       (setq x (cadr @p))                                         ;;提取x
       (setq y (caddr @p))                                        ;;提取y
       (setq @p (list x y))                                       ;;得到点坐标
       (command "text" @p hh 0 (strcat (rtos x 2 2) "," (rtos y 2 2)))
   ;;写入文字，最后的那个2可修改为0，这样写入的坐标为整数
       (setq L (+ L 1))                                           ;;
      )                                                           ;;
     )                                                            ;;
     (setq n (+ n 1))                                             ;;
    )                                                             ;;
    (setq i (+ i 1))                                              ;;
   )                                                              ;;
  )
 )
 (setvar "osmode" #os)
 (princ "\n一共有《") (princ L) (princ "》个顶点")
 (prin1)
)
;;以上粘贴到记事本，以《MJL2.lsp》命名，AutoCAD加载了这个AUTOLISP,就可以使用了

 è¿™ä¸ªæ–‡ä»¶ä½¿ä½ æ¡†é€‰äº†å¤šæ®µçº¿ï¼Œé‚£ä¹ˆå¯ä»¥åæ ‡ç‚¹ä»¥æ–‡å­—的形式显示在坐标点上面了

Answer 2

CAD工具栏你面有一个查询 点击查询里面的列表显示命令 然后框选所有点按回车 然后按F2就可以了