不再为材料表输入发愁!!!!!

ljcgq

也许你经常为材料表的输入发愁,因为大多都是通过编辑文本来修改复制到材料表里的文本,这样容易出错,或者通过EXCEL转入,多了很多手续!!现在给大家一个小程序希望能减轻材料表的输入!! 具体操作--加载BL.LSP后输入BL ;=================================================
;本程序是写入数据的程序。 ;"+"重复上一格的文本 ;需要空行时回车即可,空一行回一次车.依次类推...
;编程 ljc 2003.5.27
;=================================================
(defun c:bl()
(setq p1 (getpoint "请选择行左上角点:"))
(setq p2 (getpoint "请选择行右下角点:"))
(setq osmode(getvar "osmode"))
(setq tc(getvar "clayer" )) (setq p1y (cadr p1))
(setq p1x (car p1))
(setq p2y (cadr p2))
(setq bg(- p1y p2y))
(setq zg (* (- p1y p2y) 0.6))
(setq p3y(/ ( + p1y p2y) 2))
(setq p3x(+ (car p1) (/ zg 2)))
(setq p3(list p3x p3y)) (setq p1y (- p1y bg))
(setq p1 (list p1x p1y 0.0))
(setq p2y (- p2y bg))
(setq p22x (+ p1x (* bg 22)))
(setq p22(list p22x p2y))
(COMMAND "ZOOM" "W" P1 P22)

(setq shuzhi(getstring "请输入字符:"))
(while shuzhi
(if (/= shuzhi "+")
(progn
(setq shuzhip shuzhi)
(command "layer" "s" "text" \n) (SETVAR "OSMODE" 0)
(command "text" "j" "ml" p3 zg 0 shuzhi "")
(SETVAR "OSMODE" osmode)
(setvar "clayer" tc)
(setq p1y (- p1y bg))
(setq p1 (list p1x p1y 0.0))
(setq p2y (- p2y bg))
(setq p22x (+ p1x (* bg 22)))
(setq p22(list p22x p2y))
(COMMAND "ZOOM" "W" P1 P22) (setq p3y(- p3y bg))
(setq p3(list p3x p3y))
(setq shuzhi(getstring "请输入字符:"))
)
(progn
(command "layer" "s" "text" \n) (SETVAR "OSMODE" 0)
(command "text" "j" "ml" p3 zg 0 shuzhip "")
(SETVAR "OSMODE" osmode)
(setvar "clayer" tc)
(setq p1y (- p1y bg))
(setq p1 (list p1x p1y 0.0))
(setq p2y (- p2y bg))
(setq p22x (+ p1x (* bg 22)))
(setq p22(list p22x p2y))
(COMMAND "ZOOM" "W" P1 P22)

(setq p3y(- p3y bg))
(setq p3(list p3x p3y))
(setq shuzhi(getstring "请输入字符:")) )

)
)

)

kaixin119

选了左上右下完了输入内容,怎么输不上去啊

ljcgq

因为你没有建立一个“TEXT "名的层 你可以在(setq tc(getvar "clayer" ))后的空行加上一行 (command "layer" "s" "text" \n) 以后就行这样你输入的文本都在"text"层上了

chfeng

如果一数据或文本（需在同一表格单元中）中有空格，除了加“”外，还有没有别的方法？

ljcgq

不用你只要回车就可以生成空格,接着向下输入就可以了.

amychen

看不懂啊.能不能说得清楚点.我太笨了

CADghost

ljcgq兄是想模仿ＥＸＣＥＬ呀

ljcgq

欢迎大家使用!!

tianyuan

ljcgq兄：

为啥输入的内容全都变成了数字“0”？？？？？

ljcgq

因为你的当前的字体高度设置成了固定高度,把当前字体的高度设置为0,即可!