获取文字坐标及文字内容，

yuyu2860

获取文字坐标及文字内容

evayleung

无图无真相。。。。。。。还要1个币

水吉空

有点基础的都能写出来，还收1个币。

xyp1964

下面的代码是否更简洁？
(defun c:tt ()
  (setq i 0)
  (princ "\n选择需输出坐标的文字: ")
  (if (and (setq ss (ssget '((0 . "text"))))
           (setq ff (open (getfiled "文件保存为" "d:/" "txt" 1) "w")) ;保存路径
      )
    (repeat (sslength ss)
      (setq en (entget (ssname ss i))
            sn (itoa (+ i 1))
            pt (cdr (assoc 10 en))
            x  (rtos (cadr pt) 2 3)
            y  (rtos (car pt) 2 3)
            z  (cdr (assoc 1 en))
            i  (1+ i)
      )
      (write-line (strcat sn "," y "," x "," z) ff)
    )
  )
  (princ)
)

寒潮大冬瓜

我不需要保存到txt里，只需要复制到粘贴板你就行了！辛苦大侠修改一下？