我经常用ACAD画表格, 原因我不大会玩EXCEL和WORD, 上次领导同时安排一个玩EXCEL的和我做一个工程进度表, 结果我先做出来了, 他没做出来, 我也用ACAD写过图文报告, 我用ACAD2005不用变背景, 进入WORD是白底的. 下面是我编的一个LISP, 可以一次输入一列:
(DEFUN C:WF( / R S H P0 FI F SK W)
(setvar "highlight" 0)
(setvar "cmdecho" 0)
(SETQ FI (GETSTRING "n文件名:"))
(SETQ F (OPEN FI "r"))
(IF F (PROGN
(SETQ H (GETREAL "n文字高度:"))
(if (null K) (SETQ SK (GETREAL "n绘图比例:")) (setq SK K))
(SETQ R (GETINT "n行数:"))
(SETQ W (GETREAL "n行间距:"))
(SETQ P0 (GETPOINT "n文本插入点:"))
(REPEAT R
(SETQ S (READ-LINE F))
(COMMAND "TEXT" P0 (* H SK) 0 S )
(SETQ P0 (LIST (CAR P0) (-(CADR P0) (* sk w))))
)
(CLOSE F)
)
(PROGN
(PRINC "07n文件 ")
(PRINC FI)
(PRINC " 没有找到!!!")
)
)
(setvar "highlight" 1)
(setvar "cmdecho" 1)
(princ)
) |