cad中lsp编程问题,命令中在excel中输入的enter事件,怎么把这里边的enter改成tab事件啊?高手指点啊。~~

2022-08-01 科技 75阅读
你好,你所需要的题意:写入excel时候不用\n而是用tab对应的表达方式。
成果。
(defun c:Q2()
(setq ffn (getfiled "写出文件" "" "xls" 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 (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ (chr 9) ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n写出文件: " ffn))
(prin1)
)

就是将
(princ "\n" ff)

改为
(princ (chr 9) ff)
或者
(princ “\t” ff)

;;各种chr值详见百度。
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com