我来看MM的 发表于 2014-5-17 20:58:45

很强大！帮了大忙了！

恕放之生命 发表于 2014-7-11 10:17:24

这东西太好了！十分感谢！

changyiran 发表于 2014-11-22 12:27:56

太牛逼了，准备学习！

dujunhu2008 发表于 2014-12-29 21:38:18

留个脚印先，看了几遍 感觉看出点门道来了...

panda0203 发表于 2015-3-6 17:08:02

十分感谢秋枫大侠！向你致敬！

zjh2785 发表于 2017-10-12 19:44:59

这个碰到个BUG，

(defun StrParse (Str Delimiter / SearchStr StringLen return n char)
      (setq SearchStr Str)
      (setq StringLen (strlen SearchStr))
      (setq return '())
      (while (> StringLen 0)
        (setq n 1)
        (setq char (substr SearchStr 1 1))
        (while (and (/= char Delimiter) (/= char ""))
          (setq n (1+ n))
          (setq char (substr SearchStr n 1))
        )
        (setq return (cons (substr SearchStr 1 (1- n)) return))
        (setq SearchStr (substr SearchStr (1+ n) StringLen))
        (setq StringLen (strlen SearchStr))
      )
      (reverse return)
    )


这个函数如果碰到中文目录，就无法正常去除，因为每次取一个字节，二中文占有2个字节，

鑫诚科技 发表于 2023-9-8 21:34:43

向大神致敬~~:handshake

fayadetudou 发表于 2023-10-25 11:18:53

这个程序就是用这个东东做的安装程序： http://quelea.w3.zccn.net/blogview.asp?logID=41 你可以试一下。
页: 1 2 [3]
查看完整版本: [原创]AutoLISP程序的安装制作教程（二）