sjtd 发表于 2008-11-12 10:28:00

[求助][转帖]

<p>如何提取 文本坐标、内容、所属图层！格式：</p><p>内容，X，Y，Z，图层</p><p></p><p>多谢大家给予帮助，万分着急。</p>

ljttjl 发表于 2008-11-12 16:55:00

<p>用程序很容易实现啊,联系ljttjl@ tom.com.发邮箱去掉中间空格.</p>

鬼谷子 发表于 2008-11-12 17:36:00

联系鬼谷子，帮你解决，免费的

mccad 发表于 2008-11-12 18:28:00

本帖最后由 作者 于 2008-11-12 18:28:50 编辑 <br /><br /> <p>现在的人怎么这么自私和无私呢？</p><p>很容易解决，而且还免费，怎么不贴出来，好象很神秘。</p><p></p><p>楼主也神秘，提个问题标题也不写清楚。</p>

carrot1983 发表于 2008-11-13 09:16:00

<p>标题需要改一改。。。</p><p>现在的人发贴都这么乱七八糟的吗？？</p>

carrot1983 发表于 2008-11-13 10:08:00


(defun c:tt (/ e elist fn fna i ss v1 v10 v8 vlist)
(princ "\n文本提取程序 carrot1983 2008/11/13")
(if (and
(setq ss (ssget '((0 . "*TEXT*"))))
(setq fna (getfiled "保存文本提取的信息" "" "txt" 5))
      )
    (progn
      (setq i 0)
      (while (< i (sslength ss))
(setq e (ssname ss i))
(setq elist (entget e))
(setq v1 (cdr (assoc 1 elist)))
(setq v10 (cdr (assoc 10 elist)))
(setq v10 (mapcar 'rtos v10))
(setq v8 (cdr (assoc 8 elist)))
(setq vlist (cons (strcat v1
      ","
      (car v10)
      ","
      (cadr v10)
      ","
      (caddr v10)
      ","
      v8
   )
   vlist
      )
)
(setq i (1+ i))
      )
      (setq fn (open fna "w"))
      (write-line "内容,X,Y,Z,图层" fn)
      (foreach v vlist
(write-line v fn)
      )
      (close fn)
      (startapp "notepad" fna)
    )
)
(princ)
)
页: [1]
查看完整版本: [求助][转帖]