2013-05-24 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch

真爱一生(848758009)于2013-05-24 09-30-35：
我是学电子，但现在做数控编程

CCarch

蘇(34591503)于2013-05-24 09-32-03：
[face14.gif]

CCarch

〇。(871008605)于2013-05-24 09-32-44：
单片机?

haibinpro

陈海彬(258498815)于2013-05-24 09-36-50：
签到

cswswq2009

风中的承诺也许会随风飘去(181314507)于2013-05-24 09-41-17：
签到

CCarch

淋雨的天空(859270266)于2013-05-24 09-41-31：
签到

ysq101

平凡  淡定(120389613)于2013-05-24 10-04-45：
签到

CCarch

睿竹(349194802)于2013-05-24 10-53-11：
签到

CCarch

對自己狠點(282541334)于2013-05-24 10-53-25：
签到

zhuquanmao

关中往事(13425218)于2013-05-24 10-54-52：
词典是什么东东 没用过 谁帮提示一下 然后我自己查查看

CCarch

真爱一生(848758009)于2013-05-24 10-55-45：
(defun c:wtext ()
  (setq ffn (getfiled "writfil" "" "TXT" 1))
  (princ "\nselect text:")
  (if (setq ss (ssget))
    (progn
      (setq ff (open ffn "W"))
      (setq i 0)
      (repeat (sslength ss)
        (setq ssn (ssname ss i))
        (setq ssdata (entget ssn))
        (setq sstyp (cdr (assoc 0 ssdata)))
        (if (= sstyp "TEXT")
          (progn
            (setq txt (cdr (assoc 1 ssdata)))
            (WRITE-LINE txt ff)
          )
        )
        (setq i (1+ i))
      )
      (close ff)
      (princ (strcat "\n写入文档路径:" ffn))
    )
    (alert "你没有选择任何图元!")
  )
  (princ)
)

CCarch

真爱一生(848758009)于2013-05-24 10-56-17：
希望这个可以帮到你

eachy

eachy(124471899)于2013-05-24 11-06-10：
if 的条件用and把getfiled也加上

CCarch

→→→醒(16193171)于2013-05-24 11-10-35：
签到

CCarch

真爱一生(848758009)于2013-05-24 11-16-50：
嗯