LISP/VLISP程序

eachy · 发表于 2009-1-18 15:16:47

最初由 yecaiping 发布
[B]呵呵，还要配合其他程序太麻烦啦，我只想纯lisp的，不知道如何实现！ [/B]

你会多少？

yoyoho · 发表于 2009-1-18 16:39:42

eachy斑主:
统计文字个数的程序
非常实用,测试非常o.k.

yecaiping · 发表于 2009-1-18 19:45:01

eachy斑主:
其实我对lisp是不太懂的，我只会利用。统计文字个数对于我来说非常重要，因为我经常要统计料单，统计图块的程序我目前用的非常成熟，希望统计文字能够好像以下统计图块这样方便运用，非常感谢！

(defun lststr (str / pos numlst chr len wrd wrdlst)
(setq pos 1)
(setq numlst '())
(setq wrdlst '())
(setq chr (substr str pos 1))
(while (/= chr "")
(if (= chr ",")
(setq numlst (append numlst (list pos)))
)
(setq pos (1+ pos))
(setq chr (substr str pos 1))
);while
(setq numlst (append numlst (list (1+ (strlen str)))))
(setq pos 1)
(setq len (1- (car numlst)))
(setq wrd (substr str pos len))
(while (/= wrd "")
(setq wrdlst (append wrdlst (list wrd)))
(setq pos (1+ (car numlst)))
(if (> (length numlst) 1)
(setq len (1- (- (cadr numlst) (car numlst) )) )
)
(setq numlst (cdr numlst))
(setq wrd (substr str pos len))
)
wrdlst
)
(Defun addsp (strn / scount)
(setq scount (strlen strn))
(repeat (- 10 scount)
(setq strn (strcat strn " "))
)
strn
)
(defun c:blcount (/ record blnme name v1 outfl blklst bllst blist)
(SETVAR "CMDECHO" 0)
(setq blist (STRCASE (getstring "\nEnter name(s) of blocks to count or RETURN for all: ")))
(if (= Blist "")
(setq record (cdr (assoc 2 (tblnext "block" t))))
(setq record (car (setq blist2 (lststr blist))))
)
(setq blklst '())
(princ "\nSearching for blocks... Please wait. ")
(while record
(setq blnme (cons 2 record))
(setq v1 (ssget "x" (list blnme) ))
(if v1
(progn
(setq bllst (strcat (addsp record) "\t" (itoa (sslength v1)) "\n"))
(princ bllst)
(setq blklst (append blklst (list bllst)))
);progn
);if
(if (= Blist "")
(setq record (cdr (assoc 2 (tblnext "block"))))
(progn
(setq blist2 (cdr blist2))
(setq record (car blist2))
)
)
(princ "\nSearching for blocks... Please wait. ")
);while
(princ "\n图块数量已经统计到")(princ "临时")
(setq outfl (open "d:/临时.xls" "w"))
(foreach n blklst (princ n outfl))
(close outfl)
(command "_ai_editcustfile" "d:/临时.xls")
(princ)
)

(defun lststr (str / pos numlst chr len wrd wrdlst) 
(setq pos 1) 
(setq numlst '()) 
(setq wrdlst '()) 
(setq chr (substr str pos 1)) 
 (while (/= chr "") 
    (if (= chr ",") 
       (setq numlst (append numlst (list pos))) 
    ) 
  (setq pos (1+ pos)) 
  (setq chr (substr str pos 1)) 
 );while 
(setq numlst (append numlst (list (1+ (strlen str))))) 
(setq pos 1) 
(setq len (1- (car numlst))) 
(setq wrd (substr str pos len)) 
 (while (/= wrd "") 
  (setq wrdlst (append wrdlst (list wrd))) 
  (setq pos (1+ (car numlst))) 
  (if (> (length numlst) 1) 
    (setq len (1- (- (cadr numlst) (car numlst) )) ) 
  ) 
  (setq numlst (cdr numlst)) 
  (setq wrd (substr str pos len)) 
) 
wrdlst 
) 
 
 
(Defun addsp (strn / scount) 
(setq scount (strlen strn)) 
(repeat (- 10 scount) 
  (setq strn (strcat strn " ")) 
) 
strn 
) 
 
(defun c:blcount (/ record blnme name v1  outfl blklst bllst blist) 
(SETVAR "CMDECHO" 0) 
(setq blist (STRCASE (getstring "\nEnter name(s) of blocks to count or RETURN for all: "))) 
(if (= Blist "") 
  (setq record (cdr (assoc 2 (tblnext "block" t)))) 
  (setq record (car (setq blist2 (lststr blist)))) 
) 
(setq blklst '()) 
(princ "\nSearching for blocks... Please wait.  ") 
 (while record 
   (setq blnme (cons 2 record)) 
   (setq v1 (ssget "x" (list blnme) )) 
     (if v1 
        (progn 
        (setq bllst (strcat (addsp record) "\t" (itoa (sslength v1)) "\n")) 
        (princ bllst) 
        (setq blklst (append blklst (list bllst))) 
        );progn 
     );if 
     (if (= Blist "") 
        (setq record (cdr (assoc 2 (tblnext "block")))) 
        (progn 
          (setq blist2 (cdr blist2)) 
          (setq record (car blist2)) 
        ) 
     ) 
 
(princ "\nSearching for blocks... Please wait.  ") 
 );while 
(princ "\n图块数量已经统计到")(princ "临时") 
(setq outfl (open "d:/临时.xls" "w")) 
(foreach n blklst (princ n outfl)) 
(close outfl) 
(command "_ai_editcustfile" "d:/临时.xls") 
(princ) 
)

mann_ygw · 发表于 2009-1-19 13:59:07

我都希望统计文字能够达到这个效果！呵呵！

yecaiping · 发表于 2009-2-11 23:46:56

这个问题很难吗？高手在哪阿？

five321 · 发表于 2009-2-12 19:32:11

确实truetable 就不错啊

夜精灵 · 发表于 2009-2-18 21:25:42

要是有高手按照那个图块统计的方式改下就好了

yecaiping · 发表于 2009-2-19 22:52:41

期待高手的出现！

dtlin · 发表于 2009-2-26 21:08:59

谁给我个代码，急用，谢谢好心人了

hh2776 · 发表于 2009-3-5 14:35:09

不劳而获的人。你的要求过分了。

yecaiping · 发表于 2009-3-15 15:24:05

我相信很多人都很需要这样的程序！

yws138 · 发表于 2009-3-20 10:34:17

不错

账号		自动登录	找回密码
密码			立即注册