设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：各位大哥,班竹求救!帮我看一段材料表的代码! ...
返回列表 发新帖
查看: 687|回复: 6

[求助] [求助]：各位大哥,班竹求救!帮我看一段材料表的代码!

[复制链接]
bjs0448
发表于 2006-6-23 09:06:05 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
代码如下:文本插入可以实现,但是不能分出列来,就只有一列,插入的都是空格,程序要求插入列,且列与列之间没有空格,现在只有行,没有列,且程序写入的全是空格,哪位好心的大哥帮我看一看,在此小弟谢恩了!

  3.   [FONT=courier new]
  4. (defun c:BB()
  5. (setvar "cmdecho" 0)
  6. (setq ffn (getfiled "选择文件"  "bbb" "txt" 2))
  7. (setq pt (getpoint "\n选取文字插入点: "))
  8. (setq hh (getint "\n字高<5>: "))
  9.   (if (= hh nil)  (setq hh 5))
  10. (setq ff (open ffn "r"))
  11.   ;(str2lst)
  12. (setq data (read-line ff))

  14. (command "text" pt 0 data)
  15. (setq data (read-line ff))
  16. (while data
  17. (command "text" "" data)
  18. (setq data (read-line ff))
  19. )
  20. (close ff)
  21. (princ "材料表输入完毕")
  22. )

  24. (defun str2lst (str / ff str1);用空格区分列
  25.   (setq        ff 0
  26.         str1 ""
  27.   )
  28.   (while (/= "" (setq s (substr str (setq ff (1+ ff)) 1)))
  29.     (setq str1 (strcat str1
  30.                        (if (= " " s)
  31.                          "" ""
  32.                          s
  33.                        )
  34.                )
  35.     )
  36.   )
  37.   (read (strcat "("" str1 "")"))
  38. )
  39.   [/FONT]


相应的文件文件.TXT:
规格      长度     数量     单重      合重      备注
-10        8000     1      1250.0    1250.0     主杆

-14        7050     1      2213.0    2213.0     主杆

-5x510     510      1      15.6      15.6       顶板

-8x80      224      2      5.6       5.6        接地

-6x80      224      15     3.2      3.2         爬梯脚

-28x1130   1130     1      156.3    156.3       法兰

-12x180    220      16     12.5     12.5        加劲板

-10x750    750      1      12.6     12.6        加劲圈

-22x100    120      4      75.2     75.2        拉手

D48x3.5    1750     1      15.6     15.6        爬梯
      
D48x3.5    1250     4      8.5      8.5         爬梯
   
D48x3.5    2500     2      15.3     15.3        爬梯

800        4        2      4.5      4.5         横担
  
900        2        4      78.5     78.5        横担
  
6.8J    M24x60/16   36     0.35     0.35        横担螺栓

4.8J    M16x100/50  12     0.2      0.2         爬梯螺栓
爬梯, setq, 空格

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

wuzz
发表于 2006-6-24 08:45:45 | 显示全部楼层
关键在于读出每行后如何分割，下面提供你一个函数（以，分割串str后赋值给7个变量，类似CGI的split()函数）：

  3. (defun split(str)
  4.        (setq pos 1)(setq start 2)(setq item 1)
  5.        (setq len (strlen str))
  6.        (while(and (< pos len) (/= item 8))
  7.                (if(and (= (substr str pos 1) """) (= (substr str (1+ pos) 1) ","))
  8.                       (PROGN
  9.                                      (setq len1 (- pos start))
  10.                                      (cond ((= item 1) (setq MCC (substr str start len1)))
  11.                                                ((= item 2) (setq GGG (substr str start len1)))
  12.                                                ((= item 3) (setq DWW (substr str start len1)))
  13.                                                ((= item 4) (setq SLL (substr str start len1)))
  14.                                                ((= item 5) (setq CLL (substr str start len1)))
  15.                                                ((= item 6) (setq DZZ (substr str start len1)))
  16.                                                ((= item 7) (setq ZZZ (substr str start len1)))
  17.                                      )
  18.                                      (setq item (1+ item))
  19.                                      (setq pos (+ 2 pos)) (setq start (1+ pos))
  20.                       )
  21.                       (setq pos (1+ pos))
  22.                 )
  23.        )
  24.        (setq len1 (- len start))
  25.        (setq BZZ (substr str start len1))
  26. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2006-6-24 15:34:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
对比下，注意TXT文件不要有空行，否则要处理

  3. (defun c:tt (/ fn fl pt vy vx hh str strl p0 p1)
  4.   (setvar "cmdecho" 0)
  5.   (if (and (setq fn (getfiled "选择文件" "bbb" "txt" 2))
  6.            (setq pt (getpoint "\n选取文字插入点: "))
  7.            (setq vy (getdist pt "\n行距: ")) ;_填表用
  8.            (setq vx (getdist pt "\n列宽: "))
  9.       )
  10.     (progn
  11.       (setq
  12.         hh (getdist pt (strcat "\n字高<" (getvar "textsize") ">: "))
  13.       )
  14.       (if (= hh nil)
  15.         (setq hh (getvar "textsize"))
  16.       )
  17.       (setq fl (open fn "r"))
  18.       (while (setq str (read-line fl))
  19.         (setq strl (cons str strl))
  20.       )
  21.       (close fl)
  22.       (setq strl
  23.              (reverse (mapcar '(lambda (x) ([URL=http://p4.xdcad.net/forum/showthread.php?s=&threadid=456222][color=blue][U]xdl-str-parse[/u][/color][/URL]  x " ")) strl))
  24.             p0 pt
  25.       )
  26.       (mapcar '(lambda (x)
  27.                  (setq p1 p0)
  28.                  (mapcar '(lambda (s)
  29.                             (command ".text" p1 hh 0. s) ;_注意字体定义了固定高度参数会不一样
  30.                             (setq p1 (polar p1 0. vx))
  31.                           )
  32.                          x
  33.                  )
  34.                  (setq p0 (polar p0 (/ pi -2.) vy))
  35.                )
  36.               strl
  37.       )
  38.     )
  39.   )
  40.   (princ)
  41. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-6-24 17:57:02 | 显示全部楼层
TXT数据按行、空格在CAD中建行列式表格
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-6-24 17:59:18 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
效果：
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fsxm

已领礼包: 6个

财富等级: 恭喜发财
发表于 2006-6-25 14:30:01 | 显示全部楼层
给个通用的文件读取函数：以后的事自己解决吧！

  3. ;;读字符串成表:
  4. ;;x为分隔符可为多个字符空格用" "or"\s"
  5. (defun str->lst        (str x / xlen n lis str)
  6.   (setq xlen (strlen x))
  7.   (while (setq n (vl-string-search x str))
  8.     (setq lis (cons (substr str 1 n) lis))
  9.     (setq str (substr str (+ 1 xlen n)))
  10.   )
  11.   (reverse (cons str lis))
  12. )
  13. ;;读文件成表
  14. (defun file->lst (fn / str lst)
  15.   (setq fn (open fn "r"))
  16.   (while (setq str (read-line fn))
  17.     (setq lst (cons str lst))
  18.   )
  19.   (close fn)
  20.   (reverse lst)
  21. )
  22. ;;读文件成双层表
  23. (defun file->lst2 (fn x)
  24.   (mapcar '(lambda (str) (str->lst str x)) (file->lst fn))
  25. )

有了这个关键部分就出来了！以后的 [画表格线写入文本(推荐插属性块)]
不用再说了吧自己写罗！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

bjs0448
 楼主| 发表于 2006-6-28 23:12:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
班竹xyp1964 大哥,你的程序很好,正合我的意思,你能不能给我一段源码,我想自己再修改一下,以便理完善.谢谢BJS0448@163.com
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-18 19:32 , Processed in 0.301282 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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