yuyu2860 发表于 2017-10-14 06:28:27

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

获取文字坐标及文字内容:lol


evayleung 发表于 2017-10-14 09:33:07

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

水吉空 发表于 2017-10-14 16:49:21

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

xyp1964 发表于 2017-10-14 17:13:40

下面的代码是否更简洁？
(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)
)

寒潮大冬瓜 发表于 2017-12-7 00:43:17

我不需要保存到txt里，只需要复制到粘贴板你就行了！辛苦大侠修改一下？
页: [1]
查看完整版本: 获取文字坐标及文字内容，