[其他]：贴一段以前001的代码

fjw_ok · 发表于 2003-7-2 20:28:25

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

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

×

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META CONTENT="text/html; charset=gb_2312-80" HTTP-EQUIV="Content-Type">
<STYLE TYPE="text/css">

</STYLE>
<TITLE>001论坛系统</TITLE>
</HEAD>
<BODY TOPMARGIN=0 LINK="#00009C" VLINK="#220022" BACKGROUND=tcbg.gif LEFTMARGIN=0 TEXT="#110077">
  
<table border="0" cellspacing="0" width="100%" bgcolor="#000000">
   <tr>
      <td align=left >
<A HREF="http://www.001.com.cn" style="color:red">001论坛群</A>
  

      </td>
      <td align=right> <FONT COLOR=yellow>在线人数：全论坛1194人，本论坛13人</FONT>
<a href="/index.htm" style="COLOR: #ffffff">001论坛系统</a>  
</td>
   </tr>
</table>

  
<table border="0" cellspacing="0" width="100%" bgcolor="#A2CEFB">
      <tr>
      <td width="100%" >

  <a href="/fmmng/hottalk.html"  style="COLOR: #000000"></a>
   </td></tr><tr><td><a href="http://www.chat001.com/forum/xdapply/index.html">返回论坛首页（刷新）</a></td></tr>
</table>

  
  <CENTER><H2>晓东CAD空间－编程申请、CAD开发论坛</H2></CENTER>

  <B>原有信息:</B><BR>
<FONT color=blue>序  号:</FONT>17167<BR>
<FONT color=blue>标  题:</FONT>【解决方案】贴个刚完成的程序，阿斯克朋友看是否可用。另可查找我的CE. (3千字)<BR>
<FONT color=blue>发信人:</FONT>ll_j<BR>
<FONT color=blue>时间:</FONT>2001-8-28 10:27:51<BR>
<FONT color=blue>阅读次数:</FONT>31<BR>
<FONT color=blue>详细信息:</FONT><BR><BLOCKQUOTE>
;ACAD Text文本写入文件
<BR>
<BR>
(defun wr_defun    ()
<BR>
  (defun wr_set    (se)            ;将文本实体选择集转换为含实体名的表
<BR>
    (setq l1   (sslength se)
<BR>
      i    0
<BR>
      set0 nil
<BR>
    )
<BR>
    (repeat l1
<BR>
      (setq e0     (ssname se i)
<BR>
        set0 (cons e0 set0)
<BR>
        i     (1+ i)
<BR>
      )
<BR>
    )
<BR>
  )
<BR>
<BR>
  (defun wr_sorten (se axis)        ;实体按x、y排序
<BR>
    (setq ss   nil
<BR>
      sexy (mapcar
<BR>
         '(lambda (x)
<BR>
            (axis (trans (cdr (assoc 10 (entget x))) 0 1))
<BR>
          )
<BR>
         se
<BR>
           )
<BR>
    )
<BR>
    (repeat (length se)
<BR>
      (setq mc      (eval (cons 'max sexy))
<BR>
        ii      0
<BR>
        i      -1
<BR>
        list1 nil
<BR>
        list0 nil
<BR>
      )
<BR>
      (while (= ii 0)
<BR>
    (setq i      (1+ i)
<BR>
          sei (nth i se)
<BR>
          xy  (axis (trans (cdr (assoc 10 (entget sei))) 0 1))
<BR>
    )
<BR>
    (if (= mc xy)
<BR>
      (setq    ss (cons sei ss)
<BR>
        ii 1
<BR>
      )
<BR>
      (setq    list1 (cons (nth i sexy) list1)
<BR>
        list0 (cons sei list0)
<BR>
      )
<BR>
    )
<BR>
      )
<BR>
      (setq sexy (append (reverse list1) (cdr (member mc sexy)))
<BR>
        se     (append (reverse list0) (cdr (member sei se)))
<BR>
      )
<BR>
    )
<BR>
    (setq ss (reverse ss))
<BR>
  )
<BR>
<BR>
  (defun wr_row    ()            ;将实体分行
<BR>
    (wr_sorten set0 cadr)
<BR>
    (setq row  1
<BR>
      set1 (cons (cons (car ss) row) nil)
<BR>
    )
<BR>
    (mapcar
<BR>
      '(lambda (x)
<BR>
     (if (<    (+ (cadr (trans (cdr (assoc 10 (entget x))) 0 1))
<BR>
           (cdr (assoc 40 (entget x)))
<BR>
        )
<BR>
        (cadr (trans (cdr (assoc 10 (entget (caar set1)))) 0 1))
<BR>
         )
<BR>
       (setq row (1+ row))
<BR>
     )
<BR>
     (setq set1 (cons (cons x row) set1))
<BR>
       )
<BR>
      (cdr ss)
<BR>
    )
<BR>
    (setq set1 (reverse set1))
<BR>
  )
<BR>
<BR>
  (defun wr_col    ()            ;将实体分列
<BR>
    (setq ss (reverse (wr_sorten set0 car)))
<BR>
    (setq col  1
<BR>
      set2 (cons (cons (car ss) col) nil)
<BR>
    )
<BR>
    (mapcar
<BR>
      '(lambda (x)
<BR>
     (setq ym nil)
<BR>
     (mapcar
<BR>
       '(lambda (y)
<BR>
          (if (= (cdr y) col)
<BR>
        (setq tmp (entget (car y))
<BR>
              ym  (cons
<BR>
                (+ (car (trans (cdr (assoc 10 tmp)) 0 1))
<BR>
                   (caadr (textbox tmp))
<BR>
                )
<BR>
                ym
<BR>
              )
<BR>
        )
<BR>
          )
<BR>
        )
<BR>
       set2
<BR>
     )
<BR>
     (if (>    (car (trans (cdr (assoc 10 (entget x))) 0 1))
<BR>
        (eval (cons 'max ym))
<BR>
         )
<BR>
       (setq col (1+ col))
<BR>
     )
<BR>
     (setq set2 (cons (cons x col) set2))
<BR>
       )
<BR>
      (cdr ss)
<BR>
    )
<BR>
    (setq set2 (reverse set2))
<BR>
  )
<BR>
<BR>
  (defun wr_main ()
<BR>
    (while (not fn)
<BR>
      (setq fn (getfiled "File Name" "CADText" "txt" 13))
<BR>
    )
<BR>
    (if    (findfile fn)
<BR>
      (progn
<BR>
    (initget "Add Write")
<BR>
    (setq fs (getkword "\n附加A/<覆盖W>: "))
<BR>
    (if (= fs "Add")
<BR>
      (setq fs (open fn "a"))
<BR>
      (setq fs (open fn "w"))
<BR>
    )
<BR>
      )
<BR>
      (setq fs (open fn "w"))
<BR>
    )
<BR>
    (initget "Normal Tab")
<BR>
    (setq wmode (getkword "\n普通文本N/<制表模式T>: "))
<BR>
    (if (= wmode nil)
<BR>
      (setq wmode "Tab")
<BR>
    )
<BR>
    (wr_set se1)
<BR>
    (wr_row)
<BR>
    (wr_col)
<BR>
    (setq ij 0)
<BR>
    (repeat row
<BR>
      (setq l1 nil
<BR>
        ij (1+ ij)
<BR>
      )
<BR>
      (mapcar
<BR>
    '(lambda (x)
<BR>
       (if (= (cdr x) ij)
<BR>
         (setq l1 (cons (car x) l1))
<BR>
       )
<BR>
     )
<BR>
    set1
<BR>
      )
<BR>
      (setq l1 (reverse (wr_sorten l1 car))
<BR>
        j1 1
<BR>
      )
<BR>
      (mapcar
<BR>
    '(lambda (x)
<BR>
       (setq j2 (cdr (assoc x set2)))
<BR>
       (if (= wmode "Tab")
<BR>
         (progn
<BR>
           (repeat (- j2 j1)
<BR>
         (princ "\t" fs)
<BR>
           )
<BR>
           (princ (cdr (assoc 1 (entget x))) fs)
<BR>
         )
<BR>
         (progn
<BR>
           (repeat (- j2 j1 1)
<BR>
         (princ " " fs)
<BR>
           )
<BR>
           (princ (cdr (assoc 1 (entget x))) fs)
<BR>
         )
<BR>
       )
<BR>
       (setq j1 j2)
<BR>
     )
<BR>
    l1
<BR>
      )
<BR>
      (princ "\n" fs)
<BR>
    )
<BR>
    (close fs)
<BR>
  )
<BR>
)
<BR>
<BR>
(defun c:wr (/         axis    col     e0         fn         fs         i         ii
<BR>
         ij         j1         j2         l1         list0   list1   mc         olderr
<BR>
         oldsnp  oldzin  row     se         set0    set1    set2    ss
<BR>
         text_name         tmp     wmode   x         y         ym         ju_col
<BR>
         wr_main wr_m_pt ju_row  wr_sorten         wr_set
<BR>
        )
<BR>
  (command "color" (getvar "cecolor"))
<BR>
  (princ "\n选取文本: ")
<BR>
  (setq se1 (ssget '((0 . "TEXT"))))
<BR>
  (if se1
<BR>
    (progn
<BR>
      (wr_defun)
<BR>
      (wr_main)
<BR>
    )
<BR>
    (princ "\n空选择集。")
<BR>
  )
<BR>
  (princ)
<BR>
)
</BLOCKQUOTE>
<HR><B>相关信息:</B><BR>
<UL><LI> <IMG SRC="/bbsimg/prime.gif"><A HREF="/forum/xdapply/16009.html" >【编程申请】把AUTOCAD的信息转入EXCEL.... (281字)</A>(<B><A HREF="/fmmng/userstat?name=阿斯克">阿斯克</A></B> <small>8-16 13:31</small> 阅读 108)</LI>
<UL><LI> <A HREF="/forum/xdapply/16013.html" ><IMG SRC="/bbsimg/27.GIF" BORDER=0>请灯火帮助解决。 (空)</A>(<B><A HREF="/fmmng/userstat?name=XDSoft">XDSoft</A></B> <small>8-16 13:40</small> 阅读 3)</LI>
<LI> <A HREF="/forum/xdapply/16021.html" >贴一张表格图看看什么样？ (空)</A>(<B><A HREF="/fmmng/userstat?name=灯火">灯火</A></B> <small>8-16 14:37</small> 阅读 5)</LI>
<LI> <A HREF="/forum/xdapply/16023.html" ><IMG SRC="/bbsimg/6.GIF" BORDER=0>对，阿斯克，把你的DWG图给积雪寄去jixue6@263.net ，他帮你贴到论坛上，最好同时提供个你手工制作的EXCEL... (131字)</A>(<B><A HREF="/fmmng/userstat?name=XDSoft">XDSoft</A></B> <small>8-16 14:42</small> 阅读 15)</LI>
<UL><LI> <A HREF="/forum/xdapply/16026.html" ><IMG SRC="/bbsimg/12.GIF" BORDER=0>传好通知我一声。 (空)</A>(<B><A HREF="/fmmng/userstat?name=积雪">积雪</A></B> <small>8-16 15:08</small> 阅读 5)</LI>
<LI> <A HREF="/forum/xdapply/16029.html" >已经发过去了，注意查收 (空)</A>(<B><A HREF="/fmmng/userstat?name=阿斯克">阿斯克</A></B> <small>8-16 16:12</small> 阅读 5)</LI>
<UL></UL></UL><LI> <A HREF="/forum/xdapply/16048.html" ><IMG SRC="/bbsimg/12.GIF" BORDER=0>图片请看原贴。 (空)</A>(<B><A HREF="/fmmng/userstat?name=积雪">积雪</A></B> <small>8-16 19:52</small> 阅读 10)</LI>
<UL><LI> <A HREF="/forum/xdapply/16069.html" >该页无法显示 (空)</A>(<B><A HREF="/fmmng/userstat?name=灯火">灯火</A></B> <small>8-17 0:11</small> 阅读 5)</LI>
<UL><LI> <A HREF="/forum/xdapply/16070.html" ><IMG SRC="/bbsimg/12.GIF" BORDER=0>Check you e-mail (空)</A>(<B><A HREF="/fmmng/userstat?name=积雪">积雪</A></B> <small>8-17 0:18</small> 阅读 3)</LI>
</UL></UL><LI> <A HREF="/forum/xdapply/16073.html" ><IMG SRC="/bbsimg/6.GIF" BORDER=0>点击里面的连接可以看到DWF图了。 (空)</A>(<B><A HREF="/fmmng/userstat?name=XDSoft">XDSoft</A></B> <small>8-17 1:54</small> 阅读 13)</LI>
<LI> <A HREF="/forum/xdapply/16111.html" >你会ARX吗?我做过类似的工具,是ARX编的。看不到贴图啊? (空)</A>(<B><A HREF="/fmmng/userstat?name=土">土</A></B> <small>8-17 20:09</small> 阅读 6)</LI>
<UL><LI> <A HREF="/forum/xdapply/16112.html" ><IMG SRC="/bbsimg/42.GIF" BORDER=0>把词典实际应用思路的贴子快点放出来。 (空)</A>(<B><A HREF="/fmmng/userstat?name=灯火">灯火</A></B> <small>8-17 20:11</small> 阅读 4)</LI>
<UL><LI> <A HREF="/forum/xdapply/16120.html" >陈兄不是都说过了吗?我只想提一下组词典也是很有用的。 (空)</A>(<B><A HREF="/fmmng/userstat?name=土">土</A></B> <small>8-17 21:56</small> 阅读 3)</LI>
<UL><LI> <A HREF="/forum/xdapply/16121.html" >陈先生的书早已有，要的是具体应用的例子。 (空)</A>(<B><A HREF="/fmmng/userstat?name=灯火">灯火</A></B> <small>8-17 22:18</small> 阅读 2)</LI>
</UL></UL><LI> <A HREF="/forum/xdapply/16177.html" >土老弟编过类似的程序吗？ (空)</A>(<B><A HREF="/fmmng/userstat?name=阿斯克">阿斯克</A></B> <small>8-18 19:10</small> 阅读 2)</LI>
</UL><LI> <A HREF="/forum/xdapply/16181.html" >文本写入文件，文字间加"/t"就可被Excel读出，关键是排序。 (空)</A>(<B><A HREF="/fmmng/userstat?name=ll_j">ll_j</A></B> <small>8-18 19:34</small> 阅读 4)</LI>
<UL><LI> <A HREF="/forum/xdapply/16921.html" >ZDM工具绘图软件3.0版就是通过文本加/t后将表格信息转入EXCEL的，可以在晓东那里下载 (空)</A>(<B><A HREF="/fmmng/userstat?name=hhxh">hhxh</A></B> <small>8-25 15:22</small> 阅读 3)</LI>
<UL><LI> <A HREF="/forum/xdapply/16925.html" ><IMG SRC="/bbsimg/63.GIF" BORDER=0>zdmv3.1其实还有不完善的,比如表格的一行中有多行文字则不行。。 (32字)</A>(<B><A HREF="/fmmng/userstat?name=gzzdm">gzzdm</A></B> <small>8-25 16:05</small> 阅读 7)</LI>
<UL><LI> <A HREF="/forum/xdapply/16944.html" ><IMG SRC="/bbsimg/12.GIF" BORDER=0>您说的很对！！！我也认为在选择集内将字符排序很难... (147字)</A>(<B><A HREF="/fmmng/userstat?name=hhxh">hhxh</A></B> <small>8-26 10:06</small> 阅读 11)</LI>
<UL><LI> <A HREF="/forum/xdapply/17009.html" ><IMG SRC="/bbsimg/2.GIF" BORDER=0>规则明确，排序应该可以解决。即使较复杂，也可以约定为某种简化方式。 (空)</A>(<B><A HREF="/fmmng/userstat?name=CY956">CY956</A></B> <small>8-26 22:24</small> 阅读 2)</LI>
</UL></UL></UL></UL><LI> <IMG SRC="/bbsimg/prime.gif"><A HREF="/forum/xdapply/16191.html" >一点思路。 (276字)</A>(<B><A HREF="/fmmng/userstat?name=灯火">灯火</A></B> <small>8-18 20:11</small> 阅读 26)</LI>
<LI> <A HREF="/forum/xdapply/16724.html" ><IMG SRC="/bbsimg/12.GIF" BORDER=0>寻高人解决！！！ (空)</A>(<B><A HREF="/fmmng/userstat?name=阿斯克">阿斯克</A></B> <small>8-23 9:02</small> 阅读 4)</LI>
<LI> <A HREF="/forum/xdapply/16726.html" >我的看法... (492字)</A>(<B><A HREF="/fmmng/userstat?name=陈伯雄">陈伯雄</A></B> <small>8-23 9:16</small> 阅读 27)</LI>
<UL><LI> <A HREF="/forum/xdapply/16735.html" >我的看法 (182字)</A>(<B><A HREF="/fmmng/userstat?name=阿斯克">阿斯克</A></B> <small>8-23 9:30</small> 阅读 21)</LI>
<UL><LI> <A HREF="/forum/xdapply/16739.html" >我对Excel程序设计不行，只能给您一个概要... 您需要同时熟悉ActiveX下的Excel和VLISP或者VBA，才能完成您... (13千字)</A>(<B><A HREF="/fmmng/userstat?name=陈伯雄">陈伯雄</A></B> <small>8-23 9:42</small> 阅读 22)</LI>
<LI> <A HREF="/forum/xdapply/16748.html" >如同A2必须了解AutoCAD的对象模型，Excel有最为丰富和完美的对象模型，编制Excel应用程序应该对对象模型有... (153字)</A>(<B><A HREF="/fmmng/userstat?name=灯火">灯火</A></B> <small>8-23 11:43</small> 阅读 10)</LI>
<LI> <A HREF="/forum/xdapply/16753.html" >用同一个程序控制excel和autocad不就行了么。 (575字)</A>(<B><A HREF="/fmmng/userstat?name=秋枫哥">秋枫哥</A></B> <small>8-23 12:23</small> 阅读 27)</LI>
<UL><LI> <A HREF="/forum/xdapply/16755.html" >真的简单。不过，您真的这样做过么？不需要顾及两个软件的版本、当前状态、明细表数据规则么？ (空)</A>(<B><A HREF="/fmmng/userstat?name=陈伯雄">陈伯雄</A></B> <small>8-23 13:31</small> 阅读 2)</LI>
<UL><LI> <A HREF="/forum/xdapply/16756.html" >我对AutoCAD这么做过。不熟悉excel的对象模型，见内。 (1千字)</A>(<B><A HREF="/fmmng/userstat?name=秋枫哥">秋枫哥</A></B> <small>8-23 14:05</small> 阅读 26)</LI>
<UL><LI> <A HREF="/forum/xdapply/16908.html" >曾见过如何将EXCEL的数据读入ACAD的文章，其思路可以参考，见下一贴 (空)</A>(<B><A HREF="/fmmng/userstat?name=hhxh">hhxh</A></B> <small>8-25 14:06</small> 阅读 2)</LI>
<LI> <A HREF="/forum/xdapply/16909.html" >利用VBA编程实现从EXCEL表到AUTOCAD表转换(1) (7千字)</A>(<B><A HREF="/fmmng/userstat?name=hhxh">hhxh</A></B> <small>8-25 14:09</small> 阅读 37)</LI>
<LI> <A HREF="/forum/xdapply/16919.html" >利用VBA编程实现从EXCEL表到AUTOCAD表转换(2) (6千字)</A>(<B><A HREF="/fmmng/userstat?name=hhxh">hhxh</A></B> <small>8-25 15:09</small> 阅读 32)</LI>
</UL></UL></UL></UL></UL><LI> <IMG SRC="/bbsimg/current.gif"><IMG SRC="/bbsimg/prime.gif"><A HREF="/forum/xdapply/17167.html" >【解决方案】贴个刚完成的程序，阿斯克朋友看是否可用。另可查找我的CE. (3千字)</A>(<B><A HREF="/fmmng/userstat?name=ll_j">ll_j</A></B> <small>8-28 10:27</small> 阅读 31)</LI>
<UL><LI> <A HREF="/forum/xdapply/17171.html" >对不起，输入法出错。可查ce.lsp，对文本计算。另，晓东请帮我删除多余的帖子，我无法删除。 (空)</A>(<B><A HREF="/fmmng/userstat?name=ll_j">ll_j</A></B> <small>8-28 10:37</small> 阅读 3)</LI>
<UL><LI> <A HREF="/forum/xdapply/17226.html" >我试试，万分感谢！另：ce.lsp是什么东西？ (空)</A>(<B><A HREF="/fmmng/userstat?name=阿斯克">阿斯克</A></B> <small>8-28 21:47</small> 阅读 2)</LI>
<UL><LI> <A HREF="/forum/xdapply/17228.html" >用ce.lsp及ll_j搜索。ce.lsp主要用于文本计算。 (空)</A>(<B><A HREF="/fmmng/userstat?name=ll_j">ll_j</A></B> <small>8-28 22:01</small> 阅读 4)</LI>
</UL></UL></UL></UL></UL><HR><B>发布响应:</B><BR>

    响应信息前,请确认您发表的信息符合中华人民共和国法律法规。
      第一次来的新用户想发言，必须先注册，请点击表格中的"登记用户"。<font color="#FF0000">声明：</font><font color="#008000">本论坛严禁上贴任何政治敏感文章和带有色情成分的文章，否则文章将被删除，对于恶意上贴者本站将及时向公安部门汇报上贴者信息。</font>

<form action="add?pid=17167" METHOD=POST>
   <center>
   <table border=1 height="546" width="535">
   <tr><td height="23" width="59">姓名 </td><td height="23" width="256"><input type=text name="name" size=20 maxlength="15" VALUE="fjw_ok" TITLE="发布信息前必须确认用户名已经登记，并选择和合适的登录方式"><A HREF="/userreg.html">登记用户</A></td>
<td size=10 height="23" width="44">密码</td><td height="23" width="152"><input type=password name="pswd" maxlength=10 size=15 TITLE="请参见登记用户里面关于登录方式的说明"></td></tr>
   <tr><td height="23" width="59">主题 </td><td colspan="3" height="23" width="464"><input type=text name="title" size=60  maxlength="200" TITLE="为了他人便于阅读，请尽量将信息的主旨表达在标题中"></td></tr>
   <TR><TD height="109" width="59">主题图标</TD><TD TITLE="主题图标可以用来表达您的语气和情绪"  colspan="3" height="109" width="464">
      <TABLE><TR>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="28"><IMG SRC="/bbsimg/28.gif" ALT="" WIDTH=15 HEIGHT=15>高兴</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="23"><IMG SRC="/bbsimg/23.gif" ALT="" WIDTH=15 HEIGHT=15>挤眼 </TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="26"><IMG SRC="/bbsimg/26.gif" ALT="" WIDTH=15 HEIGHT=15>恐惧</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="21"><IMG SRC="/bbsimg/21.gif" ALT="" WIDTH=15 HEIGHT=15>有趣</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="24"><IMG SRC="/bbsimg/24.gif" ALT="" WIDTH=15 HEIGHT=15>伤心</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="15"><IMG SRC="/bbsimg/15.gif" ALT="" WIDTH=15 HEIGHT=15>吐舌</TD></TR>
         <tr>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="63"><IMG SRC="/bbsimg/63.gif" ALT="" WIDTH=15 HEIGHT=15>微笑</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="71"><IMG SRC="/bbsimg/71.gif" ALT="" WIDTH=15 HEIGHT=15>狂笑</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="41"><IMG SRC="/bbsimg/41.gif" ALT="" WIDTH=15 HEIGHT=15>傻笑</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="30"><IMG SRC="/bbsimg/30.gif" ALT="" WIDTH=15 HEIGHT=15>奸笑</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="32"><IMG SRC="/bbsimg/32.gif" ALT="" WIDTH=15 HEIGHT=15>眼馋</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="37"><IMG SRC="/bbsimg/37.gif" ALT="" WIDTH=15 HEIGHT=15>鬼脸</TD></TR>
         <tr>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="78"><IMG SRC="/bbsimg/78.gif" ALT="" WIDTH=15 HEIGHT=15>装恨</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="42"><IMG SRC="/bbsimg/42.gif" ALT="" WIDTH=15 HEIGHT=15>发愁</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="35"><IMG SRC="/bbsimg/35.gif" ALT="" WIDTH=15 HEIGHT=15>痛苦</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="75"><IMG SRC="/bbsimg/75.gif" ALT="" WIDTH=15 HEIGHT=15>苦恼</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="9"><IMG SRC="/bbsimg/9.gif" ALT="" WIDTH=15 HEIGHT=15>急死</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="20"><IMG SRC="/bbsimg/20.gif" ALT="" WIDTH=15 HEIGHT=15>大哭</TD></TR>
         <tr>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="81"><IMG SRC="/bbsimg/81.gif" ALT="" WIDTH=15 HEIGHT=15>晕倒</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="34"><IMG SRC="/bbsimg/34.gif" ALT="" WIDTH=15 HEIGHT=15>恶魔</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="31"><IMG SRC="/bbsimg/31.gif" ALT="" WIDTH=15 HEIGHT=15>弱智</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="18"><IMG SRC="/bbsimg/18.gif" ALT="" WIDTH=15 HEIGHT=15>摆谱</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="17"><IMG SRC="/bbsimg/17.gif" ALT="" WIDTH=15 HEIGHT=15>羞涩</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="10"><IMG SRC="/bbsimg/10.gif" ALT="" WIDTH=15 HEIGHT=15>生气</TD></TR>
         <tr>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="13"><IMG SRC="/bbsimg/13.gif" ALT="" WIDTH=15 HEIGHT=15>好奇</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="25"><IMG SRC="/bbsimg/25.gif" ALT="" WIDTH=15 HEIGHT=15>无聊</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="22"><IMG SRC="/bbsimg/22.gif" ALT="" WIDTH=15 HEIGHT=15>疲倦</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="6"><IMG SRC="/bbsimg/6.gif" ALT="" WIDTH=15 HEIGHT=15>赞扬</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="7"><IMG SRC="/bbsimg/7.gif" ALT="" WIDTH=15 HEIGHT=15>反对</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="27"><IMG SRC="/bbsimg/27.gif" ALT="" WIDTH=15 HEIGHT=15>喜欢</TD> </tr>
         <TR>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="2"><IMG SRC="/bbsimg/2.gif" ALT="" WIDTH=15 HEIGHT=15>问题</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="3"><IMG SRC="/bbsimg/3.gif" ALT="" WIDTH=15 HEIGHT=15>请进</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="12"><IMG SRC="/bbsimg/12.gif" ALT="" WIDTH=15 HEIGHT=15>注意</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="4"><IMG SRC="/bbsimg/4.gif" ALT="" WIDTH=15 HEIGHT=15>主意</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="5"><IMG SRC="/bbsimg/5.gif" ALT="" WIDTH=15 HEIGHT=15>你好</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="84"><IMG SRC="/bbsimg/84.gif" ALT="" WIDTH=15 HEIGHT=15>委屈</TD></TR>
      </TR>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="87"><IMG SRC="/bbsimg/87.gif" ALT="" WIDTH=15 HEIGHT=15>我酷</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="64"><IMG SRC="/bbsimg/64.gif" ALT="" WIDTH=14 HEIGHT=14>狞笑</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="58"><IMG SRC="/bbsimg/58.gif" ALT="" WIDTH=15 HEIGHT=15>嚯嚯</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="56"><IMG SRC="/bbsimg/56.gif" ALT="" WIDTH=15 HEIGHT=15>忧郁</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="46"><IMG SRC="/bbsimg/46.gif" ALT="" WIDTH=15 HEIGHT=15>不爽</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="55"><IMG SRC="/bbsimg/55.gif" ALT="" WIDTH=15 HEIGHT=15>我拽</TD>
   </tr>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="51"><IMG SRC="/bbsimg/67.gif" ALT="" WIDTH=15 HEIGHT=15>我冤</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="44"><IMG SRC="/bbsimg/44.gif" ALT="" WIDTH=15 HEIGHT=15>调皮</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="36"><IMG SRC="/bbsimg/36.gif" ALT="" WIDTH=15 HEIGHT=15>天使</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="54"><IMG SRC="/bbsimg/54.gif" ALT="" WIDTH=15 HEIGHT=15>是吗</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="48"><IMG SRC="/bbsimg/48.gif" ALT="" WIDTH=15 HEIGHT=15>怒气</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="43"><IMG SRC="/bbsimg/43.gif" ALT="" WIDTH=15 HEIGHT=15>呼叫</TD>
   </tr>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="115"><IMG SRC="/bbsimg/115.gif" ALT="" WIDTH=18 HEIGHT=18>转贴</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="114"><IMG SRC="/bbsimg/114.gif" ALT="" WIDTH=18 HEIGHT=18>原创</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="89"><IMG SRC="/bbsimg/89.gif" ALT="" WIDTH=15 HEIGHT=15>中意</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="95"><IMG SRC="/bbsimg/95.gif" ALT="" WIDTH=15 HEIGHT=15>悠闲</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="52"><IMG SRC="/bbsimg/66.gif" ALT="" WIDTH=15 HEIGHT=15>上火</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="33"><IMG SRC="/bbsimg/33.gif" ALT="" WIDTH=15 HEIGHT=15>不宜</TD>
   </TR>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="61"><IMG SRC="/bbsimg/61.gif" ALT="" WIDTH=15 HEIGHT=15>愤怒</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="59"><IMG SRC="/bbsimg/74.gif" ALT="" WIDTH=15 HEIGHT=15>害怕</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="57"><IMG SRC="/bbsimg/57.gif" ALT="" WIDTH=15 HEIGHT=15>怪脸</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="49"><IMG SRC="/bbsimg/49.gif" ALT="" WIDTH=15 HEIGHT=15>惊讶</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="40"><IMG SRC="/bbsimg/40.gif" ALT="" WIDTH=15 HEIGHT=15>感叹</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="91"><IMG SRC="/bbsimg/91.gif" ALT="" WIDTH=15 HEIGHT=15>害羞</TD>
   </TR>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="103"><IMG SRC="/bbsimg/103.gif" ALT="" WIDTH=15 HEIGHT=15>停止</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="85"><IMG SRC="/bbsimg/85.gif" ALT="" WIDTH=15 HEIGHT=15>斗鸡</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="82"><IMG SRC="/bbsimg/82.gif" ALT="" WIDTH=15 HEIGHT=15>斜眼</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="117"><IMG SRC="/bbsimg/117.gif" ALT="" WIDTH=15 HEIGHT=15>偷笑</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="94"><IMG SRC="/bbsimg/76.gif" ALT="" WIDTH=15 HEIGHT=15>眼红</TD>
               <TD><INPUT TYPE=RADIO NAME="type" VALUE="92"><IMG SRC="/bbsimg/92.gif" ALT="" WIDTH=15 HEIGHT=15>苦命</TD>
      </TABLE></TD></TR>
   <tr><td height="307" width="59">详细内容</td><td  colspan="3" height="307" width="464"><p align=center>
<font color="#008000" align=center>贴图方法:</font><br>
<font
color="#008000" face="宋体">  </font><font color="#008000"
size="2" face="宋体"><img src="</font><font
color="#FF0000" size="2">图片地址</font><font color="#008000"
size="2" face="宋体">" border=1 height=</font><font
color="#FF0000" size="2" face="宋体">图片高度</font><font
color="#008000" size="2" face="宋体"> width=</font><font
color="#FF0000" size="2" face="宋体">图片宽度</font><font
color="#008000" size="2" face="宋体">></font></p>
<p align=center><font color="#008000">改变字体方法:</font><br>
<font
color="#008000" size="2" face="宋体"><font size=</font><font
color="#FF0000" size="2" face="宋体">n</font><font
color="#008000" size="2" face="宋体"> color=</font><font
color="#FF0000" size="2" face="宋体">color</font><font
color="#008000" size="2" face="宋体"> face=</font><font
color="#FF0000" size="2">字体</font><font color="#008000"
size="2" face="宋体">></font><font color="#FF0000" size="2">信息</font><font
color="#008000" size="2" face="宋体"></font></font><font
color="#008000" face="宋体"> </font></p>
<p align=center><font color="#008000" align=center>加入链接方法:</font><br>
<font
color="#008000" face="宋体">  </font><font color="#008000"
size="2" face="宋体"><a href="http://</font><font
color="#FF0000" size="2">链接地址</font><font color="#008000"
size="2" face="宋体">" target="_blank"></font><font
color="#FF0000" size="2">链接名称</font><font color="#008000"
size="2" face="宋体"></a></font></p><textarea name="comments" rows=15 cols=62 wrap=virtual TITLE="请确认您发表的信息符合中华人民共和国法律法规、本站规定，并符合本论坛的主题"></textarea></td></tr>
   <tr><td height="23" width="59">回应通知</td><td  colspan="3" height="23" width="464">  <SELECT NAME="mailme">
<OPTION VALUE = 0> 有回应信息时不使用EMAIL通知 </OPTION>
<OPTION VALUE = 1> 有直接回应信息时使用EMAIL通知 </OPTION>
<OPTION VALUE = 2> 有直接和间接回应信息时使用EMAIL通知 </OPTION>
</select></td>
   </tr>
   <tr><td colspan="4" align="center" height="25" width="521"><input type=submit value="  完成  " TITLE="写完了，用这个提交到论坛，便于他人访问"><input type=reset value="  重写  "></td></tr>
   </table>
</Center>
</form>


  
  <HR WIDTH="95%" ALIGN="LEFT" >
  <TABLE width=95%><TR><TD>
001论坛软件版权所有:<A HREF="http://www.001.com.cn/" TITLE="欢迎您访问001主页">001.com.cn和world001.com</A>
与本软件有关事项请与<A HREF="mailto:001@001.com.cn" TITLE="001欢迎您的来信">001</A>联系
</TD></TR></TABLE>
</BODY>
</HTML>

aeo · 发表于 2003-7-3 22:56:13

我以前下了001的20多天的内容,500多M,文件夹都打开不了了,瞎死我了,我就赶紧删了:)

cy956 · 发表于 2003-7-4 01:36:11

aeo,你痛失一个发财机会。500m够你刻一个001纪念专辑，
成本1.5元＋刻录机折旧，估计不超5元。定价10元左右，卖
1000张就是5000净收入。（算你用1500元买了3个刻录机，
2000元是请人刻盘的工资。小作坊都赚钱，更别提大批量
委托）。老菜帮你初步广告策划，对xd你可以考虑让他签名
促销，每张提成0.8元；价格相应提到11元；对001老人要
从谈感情出发，突出纪念意义；对新人要讲内涵，保证他
得益多多，受益多多。每张盘刻一个编号，头盘编001号，
网上竞拍（千万不能白送给xd）。盘的技术问题你问问qf，
美工问题你找梦断，节选章节出一本书（定价××元），
书名×××××，可以请cbx老师题题字，xd写个前言，
unknow作序，灯火写编后(这几位都特能说善道，你尽可放
心委托)，铁面在深圳，联系印刷装帧（印刷不可马虎）
。。。。。。。。
现在剩下的是市场调查，到底能吃下多少本？？:))))
然后你就等数钱吧。再把收成告诉xd，谁叫xd他不做！！

fjw_ok · 发表于 2003-7-4 07:14:43

啊，我原来有1G呢。现在都不见了

e2002 · 发表于 2003-7-4 10:25:28

我这里有xd论坛的各时期的帖子,都在n多光盘里

cy956 · 发表于 2003-7-4 23:07:37

有钱人就是多，拿钱都不当钱。

aeo · 发表于 2003-7-5 17:59:23

最初由 cy956 发布
[B]aeo,你痛失一个发财机会。500m够你刻一个001纪念专辑，
成本1.5元＋刻录机折旧，估计不超5元。定价10元左右，卖
1000张就是5000净收入。（算你用1500元买了3个刻录机，
2000元是请人刻盘的工资。小作坊都赚钱，更... [/B]

当时也没注意,况且还是个破机器,
照你这么说,也不要捐款了,要e2002拿出来卖不就行了.

dreamsky · 发表于 2003-7-5 18:29:33

强烈建议xd整理一个001精华专辑,并提供ftp下载 :)

[其他]：贴一段以前001的代码

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

相关帖子

浏览过的版块

账号		自动登录	找回密码
密码			立即注册