我刚学会的，献给和我一样想学习LISP的萌新

独爱卿

1. ;;;数字复制递增源码
   
2. (defun c:TEST ();TEST位程序名称，请随意更改
   
3.   (setvar "cmdecho" 0);隐藏命令显示
   
4.   (setq ss (ssadd));建立空选择集PS因为复制图元仅支持选择集
   
5.   (ssadd (car (entsel "\n点选文字")) ss);选择要复制的数字图元，仅支持点选
   
6.   (setq p1 (getpoint "\n指定基点"));指定复制的基点P1
   
7.   (setq m 0);设置一个开关，用来判断是否首次复制
   
8.   (while (> 1 0);开始循环
   
9.     (setq p2 (getpoint "\n下一点:" p1));指定要复制到的点P2
   
10.     (command "copy" ss "" p1 p2);复制从P1到P2
    
11.     (setq txt (entlast));取得已复制的图元
    
12.     (setq txtdata (entget txt));取得图元联合属性
    
13.     (setq oldr (assoc 1 txtdata));取得原有数字项
    
14.     (if        (= m 0);当首次执行
    
15.       (progn
    
16.         (setq n (atoi (cdr oldr)));取得原有数字
    
17.         (setq i (strlen (cdr oldr)));取得原有数字的位数如008则i=3
    
18.       ) ;_ 结束progn
    
19.     ) ;_ 结束if
    
20. 
    
21.     (if        (= m 1);当不是首次执行
    
22.       (setq n (1+ n));数字+1
    
23.     ) ;_ 结束if
    
24.     (setq str (itoa (1+ n)));设定要替换上去的数字
    
25.     (setq i1 (strlen str));取得要替换数字的位数，如原来009，现在变成010了，i1=2
    
26.     (while (> (- i i1) 0);当要替换的数字位数小于原有的位数
    
27.       (setq str (strcat "0" str));往前补0，让10变010，或者2变02
    
28.       (setq i1 (1+ i1));补一个0则减少一次循环
    
29.     ) ;_ 结束while
    
30.     (setq newr (cons 1 str));设定新的数字项
    
31.     (setq txtdata (subst newr oldr txtdata));执行替换
    
32.     (entmod txtdata);更新图元
    
33.     (setq m 1) ;程序运行到这里已经算是结束；
    
34.     ;m的值设定1 是为了下一次循环识别不是第一次导致错误赋值
    
35.   ) ;_ 结束while
    

;;;数字复制递增源码<br /> (defun c:TEST ();TEST位程序名称，请随意更改<br />   (setvar "cmdecho" 0);隐藏命令显示<br />   (setq ss (ssadd));建立空选择集PS因为复制图元仅支持选择集<br />   (ssadd (car (entsel "\n点选文字")) ss);选择要复制的数字图元，仅支持点选<br />   (setq p1 (getpoint "\n指定基点"));指定复制的基点P1<br />   (setq m 0);设置一个开关，用来判断是否首次复制<br />   (while (> 1 0);开始循环<br />     (setq p2 (getpoint "\n下一点:" p1));指定要复制到的点P2<br />     (command "copy" ss "" p1 p2);复制从P1到P2<br />     (setq txt (entlast));取得已复制的图元<br />     (setq txtdata (entget txt));取得图元联合属性<br />     (setq oldr (assoc 1 txtdata));取得原有数字项<br />     (if        (= m 0);当首次执行<br />       (progn<br />         (setq n (atoi (cdr oldr)));取得原有数字<br />         (setq i (strlen (cdr oldr)));取得原有数字的位数如008则i=3<br />       ) ;_ 结束progn<br />     ) ;_ 结束if<br /> <br />     (if        (= m 1);当不是首次执行<br />       (setq n (1+ n));数字+1<br />     ) ;_ 结束if<br />     (setq str (itoa (1+ n)));设定要替换上去的数字<br />     (setq i1 (strlen str));取得要替换数字的位数，如原来009，现在变成010了，i1=2<br />     (while (> (- i i1) 0);当要替换的数字位数小于原有的位数<br />       (setq str (strcat "0" str));往前补0，让10变010，或者2变02<br />       (setq i1 (1+ i1));补一个0则减少一次循环<br />     ) ;_ 结束while<br />     (setq newr (cons 1 str));设定新的数字项<br />     (setq txtdata (subst newr oldr txtdata));执行替换<br />     (entmod txtdata);更新图元<br />     (setq m 1) ;程序运行到这里已经算是结束；<br />     ;m的值设定1 是为了下一次循环识别不是第一次导致错误赋值<br />   ) ;_ 结束while<br />

LoveArx

自己写的吗？ 注释的挺漂亮的。你这个做什么的，介绍下啊。

fl502

如果这样写注释，比编程还累/还费时间。

sicky111

学习精神值得鼓励！

石井鱼

解释的很到位

marting

fl502 发表于 2018-2-2 09:12

只有好处，没有坏处啊，要说坏处，就是自己辛苦些，但时间长了绝对受益。