LSP格式化

QiaoCheng

1、用了太多的append
2、测试了两个，好像没问题，但我知道肯定有bug或者思路不对(水平低)
3、想用mapcar、lambda来写 写不出来啊{:soso_e113:}
4、暂时先放上来，等高手指点几招
[pcode=lisp,true]
(defun c:qq ( / alst diff file i laststr line linelst nfile nfn ofn pos str1 str2 strlst t0 v with x)
  (if (setq file (getfiled "选择lsp文件" (getvar "dwgprefix") "lsp" 0))
    (progn
      (setq t0 (car (_VL-TIMES)))
      (setq nfile
        (strcat (vl-filename-directory file) "\\" (vl-filename-base file) "tmpFormat.lsp")
      )
      (setq ofn (open file "r"))
      (setq nfn (open nfile "w"))
      (setq i 0 linelst nil)
      (while (setq line (read-line ofn))
        (setq line (vl-string-trim " " line))
        (setq line (vl-string-translate "( )" "{ }" line))
        (cond
          ((= (substr line 1 2) ";|")
            (while (and line (not (vl-string-search "|;" line)))
              (setq line (read-line file))
              (setq alst (append alst line))
            )
            (setq linelst (append linelst (list alst)))
          )
          ((or (= (substr line 1 1) ";") (wcmatch line "*defun*") (wcmatch line "*DEFUN*"))
            (setq linelst (append linelst (list line)))
          )
          ((and (not (wcmatch line "*defun*")) (not (wcmatch line "*DEFUN*"))
                 (/= (substr line 1 1) ";") (/= (substr line 1 2) ";|")
           )
            (setq laststr (last linelst))
            (cond
              ((= i 0) (setq Diff (XL:CalDiff line)))
              ((and (>= i 1) (= Diff 0)) (setq Diff (XL:CalDiff laststr)))
              ((and (>= i 1) (/= Diff 0)) (setq Diff (XL:CalDiff line)))
            )
            (setq pos (vl-string-search ";" laststr))
            (cond
              ((/= Diff 0)
                 (setq str1 (substr laststr 1 (vl-string-search ";" laststr))
                       str2 (substr laststr (1+ (vl-string-search ";" laststr))) ;注释
                 )
                 (setq with (strlen (strcat str1 line)))
                 (cond
                   ((<= with 120) ;控制行宽
                      (setq line (strcat str1 line str2))
                      (setq linelst (vl-remove laststr linelst))
                      (setq linelst (append linelst (list line)))
                   )
                   ((> with 120)
                      (setq line (strcat str1 line str2))
                      (setq linelst (vl-remove laststr linelst))
                      (setq strlst (XL:strformat line))
                      (foreach v strlst
                        (setq linelst (append linelst (list (strcat "  " v))))
                      )
                   )
                 )
              )
              ((= diff 0) ;"{" "}"相等
                 (setq linelst (append linelst (list (strcat "  " line))))
              )
            )
            (setq i (1+ i))
          )
        )
      )
      (mapcar
        (function
          (lambda (x)
            (setq x (vl-string-translate "{ }" "( )" x))
            (if (/= (vl-string-trim " " x) "")
              (progn (princ x nfn) (princ "\n" nfn))
            )
          )
        )
        linelst
      )
      (close ofn) (close nfn)
      ;(vl-file-delete File)
      ;(vl-file-rename nfile File)
      (princ (strcat "\n用时" (rtos (* 0.001 (- (car (_VL-TIMES)) t0)) 2 4) "秒"))
      (princ)
    )
  )
)
;;(XL:CalDiff "{setq pickcircle " "{list '" "{0 . \"CIRCLE\"} '" "{8 . \"0\"} ;End_setq")
(defun XL:CalDiff (line / lcnt pos rcnt)
  (setq lcnt 0)
  (setq Pos -1)
  (while (setq Pos (vl-string-search "{" line (1+ Pos)))
     (setq lcnt (1+ lcnt))
  )
  (setq Pos -1)
  (setq rCnt 0)
  (while (setq Pos (vl-string-search "}" line (1+ Pos)))
    (setq rCnt (1+ rCnt))
  )
  (- lcnt rCnt)
)
;;(XL:strformat "{setq pickcircle {list '{0 . \"CIRCLE\"} '{8 . \"0\"} {append {list 10} pnt} '{40 . 1000}}} ;End_setq")
(defun XL:strformat (str / i lst m n slst strT strZ strW x)
  (defun XL:lstSplit (n m slst)
    (setq i 0)
    (vl-remove-if 'not
      (mapcar '(lambda (x) (setq i (1+ i)) (if (and (>= i n) (<= i m)) (setq x x))) slst)
    )
  )
  (setq str (vl-string-trim " " str))
  (setq lst (vl-string->list str))
  ;;头部
  (setq n (vl-position 123 (cdr lst)))
  (setq strT (list (vl-list->string (XL:lstSplit 0 n lst))))
  ;尾部
  (setq m (vl-position 125 (reverse lst)))
  (setq strW (list (vl-list->string (reverse (XL:lstSplit 0 m (reverse lst))))))
  ;中部 ;这里使用vl-string-trim为何不对?
  (setq strZ (list (vl-list->string (XL:lstSplit (1+ n) (- (length lst) m) lst))))
  (append strT strZ strW)
)
[/pcode]

jiucheng01

LISP格式化，以前有看到过一个。不知道这，是不是类似的

429014673

支持一下,这个程序实用

Lispboy

做这种东西，我觉得应该用递归，楼主用没？

QiaoCheng

控制行宽那还没处理好，弄了一天头晕了，不弄咯
主要是看到电脑上这也有lsp那也有，所以想汇聚做一个CHM的

递归还没学会呐{:soso_e140:}

QiaoCheng

jiucheng01 发表于 2013-6-2 17:51
LISP格式化，以前有看到过一个。不知道这，是不是类似的

在那里见过？能贴上来不

ll_j

楼主到底想要干什么呢？格式化的问题交给acad的VLISP（或VLIDE）编辑器完成不好么？

sicky111

格式化的意思是把LISP中的内容清空吗？我执行后命令行出现：QQ ; 错误: 参数类型错误: numberp: nil，并得到一个0KB的*tmpFormat.lsp文件。

jiucheng01

QiaoCheng 发表于 2013-6-2 18:16
在那里见过？能贴上来不

没有源码，只有编译的。

cy956

dos年代就有啊，你去搜Delisp.exe
现在用vlide或者其他编辑器，还不够用吗？

QiaoCheng

我晕，如果是编译的或是.exe。。。。
能不能像地板一样给点建议

eachy

QiaoCheng 发表于 2013-6-9 23:56
我晕，如果是编译的或是.exe。。。。
能不能像地板一样给点建议

精神值得鼓励，需要格式化的大都是网页拷贝的或着其他途径得到的程序，在 Vlide或着 Lisplink 中手动格式化的过程也就是一个学习过程，当然把这个写成自动化想必楼主对这个过程会有更深的理解，以后遇到需要格式化的程序也未必用这个自动格式化。

wowan1314

正好需要这个东西。