峰峰兒 发表于 2016-5-11 19:34:51

jltx123456 发表于 2016-5-11 19:41:38

你可是老会员了．．．

nzl1116 发表于 2016-5-12 00:18:30

(open "ffn" "w") 加了多余的双引号

zhongys 发表于 2016-5-12 01:15:41

(ssget'((0 . "*TEXT,ATTDEF")))

峰峰兒 发表于 2016-5-12 07:41:51

ZZXXQQ 发表于 2016-5-12 09:15:55

错误百出(defun C:lsp46 ()
(setq ffn (getfiled "寫出檔案" "" "txt" 1))
(princ "\n選取圖面文字........")
(setq ss (ssget '((0 . "TEXT"))))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
    (princ(strcat(cdr(assoc 1 (entget(ssname ss i)))) "\n") ff)
    (setq i (1+ i))
)
(close ff)
(princ (strcat "\n 寫出檔案:" ffn))
(prin1)
)
页: [1]
查看完整版本: 请帮我看看哪里错误 LISP