一段代码，请大神解读

行雲

是个文本求和的工具。
求和完成后，它对原文本执行了编辑动作？还是删除原文本，并在原文本定位点上重新书写？
如是后者，请问它求取文本定位点的代码，是哪些？
这种高级代码实在看不懂，，，

 (defun c:rt()
  (foreach a  (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*TEXT"))))))
      (setq ed (entget a)
      txt (cdr (assoc  1 ed)))
    (entmod (subst (cons 1 (strcat "和"(vl-princ-to-string (strDecompress txt)))) (assoc 1 ed) ed))
)
 )
(defun strDecompress (string / result temp lst)
  (setq string (vl-string->list string) del ":")
  (foreach a string
     (if (or (< 47 a 58)(= 46 a))
           (setq result (cons a  result))
     (if result (setq lst (cons  result lst) result nil))
           ))
  (if result (setq lst (cons  result lst)))
  (setq aaa (apply '* (mapcar'(lambda (a) (atof (vl-list->string (reverse a)))) (reverse lst))))
  )

newer

你一定要先学会怎么贴代码

把你的代码放到
{pre}
{/pre}
之间， 用的时候 花括号替换成 中括号[ ]

你编辑下自己的帖子，用VLISP编辑器格式化代码后，修改下代码。

行雲

原来如此，，多谢版主newer

newer

行雲 发表于 2017-2-24 22:35

你把代码格式化下，不会的话，执行VLIDE，进入编辑器，粘贴好你的代码，
1、CTRL+A，全选
2、按 CTRL+ALT+F

行雲

newer 发表于 2017-2-24 22:26

请教版主，简单易用的lsp编辑器有哪些？我此前都是用记事本编辑的

newer

行雲 发表于 2017-2-24 22:38

CAD命令行 输入 VLIDE 回车

行雲

newer 发表于 2017-2-24 22:38

学了一些基本功，不胜感激
照做了，代码版面，段落格局并未发什变更，，可能，该程序版式原本就是这样的
关于帖子主题，，，请版主指点一下可否

newer

行雲 发表于 2017-2-24 22:51

CTRL+A全选上你的代码，看图



点那两个菜单，然后你代码就好看了

行雲

newer 发表于 2017-2-24 22:58

版主帮忙解读一下如何？

newer

行雲 发表于 2017-2-24 23:50

代码美化，是读程序的重要基础，格式化后的代码才能看清逻辑。
代码格式化后，再谈其他的事情吧。

行雲

newer 发表于 2017-2-24 23:59

确实几经编辑了，，，不知为何，我这编辑界面与你贴图那都不一样

newer

行雲 发表于 2017-2-25 00:15

你把代码粘错地方了，你粘的是控制台，你点 文件 菜单，新建文件， 进入编辑器里面粘贴代码，就有了。

行雲

newer 发表于 2017-2-25 00:28

这样确实清爽多了，，多谢指点，，

(defun c:rt ()
  (foreach a (vl-remove-if
        'listp
        (mapcar 'cadr (ssnamex (ssget '((0 . "*TEXT")))))
      )
    (setq ed  (entget a)
   txt (cdr (assoc 1 ed))
    )
    (entmod
      (subst (cons 1
     (strcat "和" (vl-princ-to-string (strDecompress txt)))
      )
      (assoc 1 ed)
      ed
      )
    )
  )
)
(defun strDecompress (string / result temp lst)
  (setq string (vl-string->list string)
 del    ":"
  )
  (foreach a string
    (if (or (< 47 a 58) (= 46 a))
      (setq result (cons a result))
      (if result
 (setq lst    (cons result lst)
       result nil
 )
      )
    )
  )
  (if result
    (setq lst (cons result lst))
  )
  (setq aaa
  (apply '*
  (mapcar '(lambda (a) (atof (vl-list->string (reverse a))))
   (reverse lst)
  )
  )
  )
)

330774521lhq

确实是难得好帖啊，顶先

newer

[C++] 纯文本查看 复制代码

(defun c:rt ()
  (foreach a (vl-remove-if 'listp (mapcar
                                    'cadr
                                    (ssnamex (ssget '((0 . "*TEXT"))))
                                  )
             )
    (setq ed (entget a)
          txt (cdr (assoc 1 ed))
    )
    (entmod (subst
              (cons 1 (strcat "和" (vl-princ-to-string
                                                       (strdecompress txt)
                                   )
                      )
              )
              (assoc 1 ed)
              ed
            )
    )
  )
)
(defun strdecompress (string / result temp lst)
  (setq string (vl-string->list string)
        del ":"
  )
  (foreach a string
    (if (or
          (< 47 a 58)
          (= 46 a)
        )
      (setq result (cons a result))
      (if result
        (setq lst (cons result lst)
              result nil
        )
      )
    )
  )
  (if result
    (setq lst (cons result lst))
  )
  (setq aaa (apply
              '*
              (mapcar
                '(lambda (a)
                   (atof (vl-list->string (reverse a)))
                 )
                (reverse lst)
              )
            )
  )
)

这个是用LISPLINK编辑器格式化的代码，看着感觉比VLISP的要好些，我平时常用这个，你搜索下论坛，用 LISPLINK ，下载下，这些基础的东西学扎实了要重要的多。

格式化的代码不仅仅是好看， 更重要的是能看清括号的配对情况，容易看明白前后的逻辑。 每一对括号都有个返回值给上层括号做参数。