明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3593|回复: 10

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

[复制链接]
发表于 2004-2-6 20:50:00 | 显示全部楼层 |阅读模式
也许你经常为材料表的输入发愁,因为大多都是通过编辑文本来修改复制到材料表里的文本,这样容易出错,或者通过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 "请输入字符:")) )

)
)

)
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2004-2-6 21:27:00 | 显示全部楼层

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

选了左上右下完了输入内容,怎么输不上去啊
 楼主| 发表于 2004-2-6 22:33:00 | 显示全部楼层
因为你没有建立一个“TEXT "名的层 你可以在(setq tc(getvar "clayer" ))后的空行加上一行 (command "layer" "s" "text" \n) 以后就行这样你输入的文本都在"text"层上了
发表于 2004-2-10 18:02:00 | 显示全部楼层
如果一数据或文本(需在同一表格单元中)中有空格,除了加“”外,还有没有别的方法?
 楼主| 发表于 2004-2-10 20:02:00 | 显示全部楼层
不用你只要回车就可以生成空格,接着向下输入就可以了.
发表于 2005-9-4 22:27:00 | 显示全部楼层

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

发表于 2005-9-5 10:57:00 | 显示全部楼层
ljcgq兄是想模仿EXCEL呀
 楼主| 发表于 2006-3-14 21:01:00 | 显示全部楼层
欢迎大家使用!!
发表于 2006-3-15 16:20:00 | 显示全部楼层

ljcgq兄:

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

 楼主| 发表于 2006-3-15 21:29:00 | 显示全部楼层
因为你的当前的字体高度设置成了固定高度,把当前字体的高度设置为0,即可!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-29 00:02 , Processed in 0.174145 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表