- 帖子
- 1
- 主題
- 0
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- x64
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2017-2-6
- 最後登錄
- 2017-3-26
|
3#
發表於 2017-2-9 22:54
| 只看該作者
(defun c:TEXTEX()
(setq ffn (getfiled "寫出檔案" "" "" 1))
(princ "\n選取文字...")
(setq ss (ssget))
(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)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n寫出檔案: " ffn))
(prin1)
) |
|
