AutoLISP将外部文件中的文字写入图形,代码如下。
(defun c:test()
(setvar "cmdecho" 0)
(setq ffn (getfiled "选择文件" "" "txt" 2))
(setq pt (getpoint "\n选取文字插入点:"))
(setq hh (getdist pt "\n字高:"))
(setq ff (open ffn "r"))
(setq data (read-line ff))
(command "text" pt hh 0 data)
(setq data (read-line ff))
(while data
(command "text" "" data)
(setq data (read-line ff))
)
(close ff)
(prin1)
)
代码完。