to:lxyufo，太乱了，重建一个

meflying

注：此函数只针对PICK函数返回的表，你可根据思路自行修改
(defun outtext(str_list ;pick返回的列表
               f; 文件句柄
               / list2 n i f j)
  (setq i 0)
  (setq list2 (cdr str_list))
  (setq n (length (car list2)))
  (setq i 0)
  (while (< i n)
    (write-line (strcat "序号:" (nth i (nth 0 list2))) f)
    (write-line (strcat "图号:" (nth i (nth 1 list2))) f)
    (write-line (strcat "名称:" (nth i (nth 2 list2))) f)
    (write-line (strcat "数量:" (nth i (nth 3 list2))) f)
    (write-line (strcat "材料:" (nth i (nth 4 list2))) f)
    (write-line (strcat "单重:" (nth i (nth 5 list2))) f)
    (write-line (strcat "总重:" (nth i (nth 6 list2))) f)
    (write-line (strcat "备注:" (nth i (nth 7 list2))) f)
    (write-line "==============================================\n" f)
    (setq i (1+ i))
  )
)

lxyufo

我想是我放的位置不对，请仔细告知！谢谢！这是明细表的代码：

meflying

我记得我后来有给你过新的程序，这个程序有很多的问题，
新的程序是两个文件的，一个是一些函数的文件，一个是主要函数的文件，
其中，PICK函数可以进行一些输入点的修改，即将其做成带参数的。其余部分最好不要修改，
这样返回一个列表，你想做别的事，就对这个列表进行操作，而不是PICK函数。
新的OUTTEXT函数调用时以PICK返回的表为参数，而不是加在什么地方。
注意PICK函数所用的两个点一个明细表的左下角，一个右上角，包括写着“序号  名称  图号...”的那行。
还有你想返回选中的文字对象的字符串，可直接调用我的GETEXT函数，参数为对象名。

meflying

(defun Getext(sname / sinf str str2)
  (setq sinf (entget sname))
  (setq str (cdr (assoc 1 sinf)))
  (setq str (strcase str 0))
  (setq str (vl-string-trim "{}" str))
  (setq str (strcat "|" str))
  (if (= (type (read str)) 'SYM)
    (progn
      (setq str2 (vl-symbol-name (read str)))
      (if (/= (strlen str) (strlen str2))
        (progn
          (setq str2 (strcase str2 0))
          (setq str (vl-string-left-trim str2 str))
          (setq str (vl-string-left-trim ";" str))
        )
      )       
    )
  )
  (vl-string-left-trim "|" str)
)

lxyufo

现在导出到文本之后，文本文件夹里 什么都没有！
  麻烦你了meflying兄！

meflying

lxyufo

我仔细看了你给我的注解，可是明细表的内容还是没取出来。
命令: _DAOCHU
选取文字...选取一点:
标题栏写出文件：C:\Documents and
Settings\Administrator\桌面\48652-1-01.txt输入第二点:
输入类型：(C)自定义/(A)自动<C>:a
参数类型错误: numberp: nil
命令:
出现这种错误。
  我想可能是我做的步骤不对，请您在给看看好吗？？

meflying

你到底是PICK函数没法用还是OUTTEXT函数？

lxyufo

现在就是依你的那个点来选明细表，但是如果第一行中有空时，导出的内容就不对了，例如：第一行中 备注：没有内容，那么导出到文本文件后就是
“ 备注”两个字  而不是  空的 。还有 “单重”项也是如此。
不知这是怎么回事？
  谢谢！！meflying兄

序号:1
图号:48652-1-1
名称:活动底板
数量:2
材料:q235-a
单重:单重
总重:18.6
备注:备  注
==============================================

序号:2
图号:按本图
名称:hw 型钢 150x150 l=3424
数量:4
材料:q235-a
单重:109.2
总重:18.6
备注:两端锁口
==============================================
＃＃＃＃还有就是 Q235-A·f 但导出后却是235-a\f宋体|b0|i0|c134|p0;·f这中形式
而 应该是Q235-A·f。请问有没有办法解决呀？？？

[此贴子已经被作者于2003-4-18 17:48:43编辑过]

[此贴子已经被作者于2003-4-18 18:05:45编辑过]

meflying