阅读下一篇
怎样在工作期间利用网络赚钱如何利用网络赚钱(附收款图) 2005年5月份我在网上查资料，无意间发现了一批网上免费挣钱贴子，有冲浪类赚钱，也有调查类赚钱，出于好奇心，我先后几个网站都注册去试一下，反正不花钱，对我也没有任何损失，到现在，我已经使用了好长一段时间了，果然让我发现，这其中有真的，也有假的，冲浪赚钱只有NewsBar和OKTE超级搜索是真的，其它的都是些骗子，调查类也有好几家，不过骗子很少，大多数网站都能赚到钱，现在我把这几个网站分别介绍如下，贴子虽然有点长，但确很详细，希望你们能耐心的看完，相信会对你有所帮助。
回帖成功
经验值 +10
全部回复（6 ）
只看楼主 我来说两句-
yijuntao
沙发
谢了!!!!!!!
2006-12-22 15:27:22
赞同0
-
ladesinger
板凳
(defun c:test(/ n ss total ss en elist spt ept dis )
2006-12-21 18:24:21
赞同0
加载更多回复 举报
(princ "\n请选取要累加长度(+600)的直线<退出>:")
(if (setq ss(ssget ’((0 . "line")))
(progn
(setq n 0 total 0.0)
(repeat (sslength ss)
(setq en(ssname ss n)
elist(entget en)
spt(cdr(assoc 10 elist))
ept(cdr(assoc 11 elist))
dis(distance spt ept)
total(+ total dis 600)
n(1+ n)
)
)
(princ (strcat "\n选取了" (itoa n) "条直线,计算结果是: " (rtos total 2 3)))
)
)
(princ)
)
用法:以上内容另存为 test.lsp, "工具" "加载应用程序" 加载后命令行里键入 TEST即可运行。
回复 举报