谁来编个开源版的“Visual Lisp 开发小助手“？

yyzhan12 · 发表于 2009-3-9 21:40

本帖最后由作者于 2009-3-13 21:39:47 编辑

近段时用了Visual Lisp 开发小助手，觉得挺实用，但由于程序是编译过的，不能根据个人需要修改，自己编了主要函数，对话框就就地取材，选用“Visual Lisp 开发小助手”的对话框文件，由于个人没有时间，看谁有时间，整理下，编个开源的“Visual Lisp 开发小助手（开源版）”。主要函数已编好，就剩下对话框的处理问题了，主函数文件和对话框文件我先上传。

nonsmall · 发表于 2009-3-9 22:18

顶一下有人关注我还是很高兴的

事后诸葛 · 发表于 2009-3-9 23:45

虽然我不用Lisp 但是见到好的建议还是要顶一下。

liminnet · 发表于 2009-3-10 08:53

提示: 作者被禁止或删除内容自动屏蔽

yyzhan12 · 发表于 2009-3-10 11:28

(defun file-list-text(files / tmplst texts fn)
(setq files(findfile files) tmplst '())
(if files
    (progn
      (setq fn (open files "r"))
      (while (setq texts (read-line fn))
        (setq tmplst (cons texts tmplst))
      )
      (close fn)
      (reverse tmplst)
    )
    nil
)
)

xshrimp · 发表于 2009-3-10 19:30

CAD自带的编辑器有此功能啊.添加监视窗口就可以了.

wenhong_teng · 发表于 2009-3-10 23:59

顶一下有人关注我还是很高兴的

yyzhan12 · 发表于 2009-3-13 21:45

c:\1.JPG

yyzhan12 · 发表于 2009-3-13 21:47

程序初形

894560869 · 发表于 2010-2-20 19:33

路过，顶一下

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

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-3-10 08:53 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

谁来编个开源版的“Visual Lisp 开发小助手“？

本帖子中包含更多资源