caoyin
发表于 2009-4-26 21:05:00
<p>称你高手是当之无愧的，</p><p>我是从包括你在内的很多明经高手的程序学习LISP的</p><p>俺水平太烂，整天在论坛上混都有点不好意思。</p>
liminnet
发表于 2009-5-8 16:59:00
fsxm发表于2009-4-26 19:36:00static/image/common/back.gifcaoyin老大,\"高手\"两字不敢当啊~!潜水多年了,Lisp也忘记的差不多了!只能多拿出点以前的老本,给老大你捧场哈!;;建立目录.支持嵌套目录名.(递归的简单运用)(defun fsxm-mkdir (dir / dir2)&nbs
<p></p><p>命令: (ko-mkdir "e:\\1\\2\\3\\4\\5\\6\\7\\8\\9")<br/>T</p><p>命令: (ko-mkdir "e:\\1\\2\\3\\4\\5\\6\\7\\8\\9\\")<br/>("." "..")</p><p>命令: (ko-mkdir "e:\\1\\2\\3\\4\\5\\6\\7\\8\\9\\10\\")<br/>nil</p><p>命令: (ko-mkdir "e:\\1\\2\\3\\4\\5\\6\\7\\8\\9\\10")<br/>("." "..")</p><p>命令: (ko-mkdir "e:\\1\\2\\3\\4\\5\\6")<br/>("." ".." "7")</p><p></p><p>怎么会返回表的呀，？？？？？？？？？？？？？</p>
caoyin
发表于 2009-5-9 08:39:00
<p>是因为你把 fsxm 改成了 ko</p><p>...</p><p></p><p></p><p></p><p>开个玩笑</p><p>返回什么跟 vl-mkdir 函数有关</p>
liminnet
发表于 2009-5-11 16:42:00
<p>生我者父母，知我者caoyin啊</p>
fpc_design
发表于 2009-5-12 11:40:00
good
yjtdkj
发表于 2009-5-12 14:10:00
太牛了，向<font face="Verdana" color="#da2549"><strong>caoyin版主</strong><font color="#000000">学习致敬！！！！！！！！！！！！</font></font>
zfsaaa
发表于 2009-7-1 19:09:00
lidejun_55发表于2008-12-6 22:52:00static/image/common/back.gif记得原来帮过别人改了一个“自动编号”的程序，自己感觉还算有点用，不过这种程序网络上太多：功能：自动编号，可以加前缀、后缀，自定增加减少的序数（不关闭cad前提下可记忆前后缀） (d
<p>为啥自动编号不能用,提示有错？</p>
xjking007
发表于 2009-11-7 09:57:00
<p>你们不好意思,那我不要打地洞,</p><p>我你们写的都看不懂呀,刚搞了本书来看,</p><p>现在,在看大伙的程序中学习.</p>
yewuqiang
发表于 2009-12-4 11:08:00
caoyin发表于2009-2-8 9:58:00static/image/common/back.gif;;我在不同版本使用是发现了一些问题，修改了一下(defun C:NCOPY (/ OS CM QA EM SS NEN $LT-ENTSEL$ EN ES EP P1 ELST TYP EN1 PP P2 SC DOC BLKS BLK) ;;----------
<p>这个程序在选择复制点时两个基点如果一样的话就不能复制出来</p>
tangdeyu
发表于 2009-12-30 22:52:00
请帮忙吧
<p>各位老大，我着急呀，将问题放在这里了：</p><p>如下的文本文件：</p><p>A B C D E F<br/>A1 1 1 2 55 2.58 <br/>A2 2 2 3 55 2.58 <br/>A3 3 3 5 41.8 1.96 <br/>A4 13 5 6 16.45 0.87 <br/>A5 11 6 24 40.1 3.13 <br/>A6 29 24 25 19.65 1.17 </p><p><br/>将其转成表为：</p><p>( (A1 1 1 2 55 2.58) ( A2 2 2 3 55 2.58) ( A3 3 3 5 41.8 1.96) (A4 13 5 6 16.45 0.87 ) (A5 11 6 24 40.1 3.13 ) (A6 29 24 25 19.65 1.17 )----这个转换我已经成功，只是顺序不是如此。要排列的顺序是这样的。<br/><br/>当然，实际的顺序是相当乱的，并且有上千行，只是文本文件中的c列d列存在交叉一一对应关系，如果将一行中的C、D列看成一行的首末端的话，可以看出如下规律：1-2 2-3 3-5 5-6 6-24 24-25</p><p>问题是：实际排列中不是我上边文本的顺序，A列的名称也无规律，如何排序才能达到我上边所列的结果呢？</p><p>研究了一个星期了，想学会，但还是不成，还望帮助。</p><p>再次致谢！！！</p>
页:
1
2
3
4
5
6
7
8
[9]
10
11
12
13
14
15