[讨论]：你对 001论坛 的感情还有多少？

雪晴

哇，原来论坛还有这么一段历史，多谢前辈栽树，让我们后来人乘凉。

fjw_ok

晓东CAD空间－编程申请、CAD开发论坛
原有信息:
序 号:21202
标 题:【解决方案】“修改实体的Z坐标到0”... (620字)
发信人:XDSoft
时 间:2001-11-7 1:24:07
阅读次数:45
详细信息:

;|
  命令：modify_z
  功能：修改实体的Z坐标为0
  
  配合xdrx_api使用
|;
(defun c:modify_z (/ #m_z ss i)
  (defun #m_z (/ n p)
    (foreach n '(10 11 12 13 14 15 16 17 18 19)
      (if (setq p (xdrx_getentdxf n))
    (xdrx_modent n (trans (list (car p) (cadr p) 0.0) 0 1))
      )
    )
  )
  (prompt "\n请选取要修正Z坐标的实体<全选>:")
  (if (not (setq ss (ssget)))
    (setq ss (ssget "x"))
  )
  (xdrx_setsstodb ss 0)
  (xdrx_pbarbegin "\n处理中..." (sslength ss))
  (setq i 0)
  (while (xdrx_getentdata 0)
    (xdrx_pbarsetpos (setq i (1+ i)))
    (#m_z)
  )
  (xdrx_pbarend)
  (princ)
)

f.f

原来的论坛规模是比较小的，那时001还是个免费的BBS，要收费后XD决定要自立门户，将晓东CAD空间办为以论坛为主的网站，记得当时要易址时很多人都有点恋恋不舍，这可以从论坛早期的贴子里看到。因此晓东和各版主对所有的记录都有所备份和整理。在我的结构版块中搜索“001经典”可以看到一些整理过的有关结构的贴子。今天看看老贴子，回头想想，论坛的渐渐成长真是从小到大点滴积累的过程，是大家共同努力的结果。

YueFeng

与以前的001相比，现在的XDCAD实在是太大了。新帖子看都看不过来。以前的001论坛上的帖子，不算多。但是水帖真是好少。大部分都有用极了。还是在001论坛上，得到各位老大的指导，才开始学习LISP的。
现在后悔的是当初没有用FlashGet将以前的帖子都下载下来，不过据我听晓东说，他可是全部都下载保存了。建议晓东可以将其刻盘公开拍卖了!呵呵

fjw_ok

强烈支持、要求，是否过分？

wowoaicad

借古人诗记事
胜日寻芳泗水滨
无边光景处处新
等闲识得东风面
万紫千红总是春