发布基础函数库
经过一个月的努力，现在正式发布基础函数库。
此函数库以BSD开源许可证发布。
此函数库的代码有很多是来至于网上搜集，如果你的代码在其中，并且没有版权声明，请联系我。
此函数库欢迎大家来参与一起开发。
函数库地址：https://coding.net/u/shanren/p/AutoLispBaseFunctionLibrary/git
以上。 本帖最后由 1028695446 于 2019-10-3 10:33 编辑
;;;名称:BF-Excel-New
;;;说明:新建Excel工作簿
;;;参数:ishide:是否可见，t为可见，nil为不可见
;;;返回:一个表示Excel工作簿的vla对象
;;;示例:(BF-Excel-New t)
(Defun BF-Excel-New (ishide / Rtn)
(if (setq Rtn (vlax-get-or-create-object "Excel.Application"))
(progn
(vlax-invoke
(vlax-get-property Rtn 'WorkBooks)
'Add
)
(if ishide
(vla-put-visible Rtn 1)
(vla-put-visible Rtn 0)
)
)
)
Rtn
)
建议调换下语句，如下：
(Defun BF-Excel-New (ishide / Rtn)
(if (setq Rtn (vlax-get-or-create-object "Excel.Application"))
(progn
(if ishide
(vla-put-visible Rtn 1)
(vla-put-visible Rtn 0)
)
(vlax-invoke
(vlax-get-property Rtn 'WorkBooks)
'Add
)
)
)
Rtn
)
这样新建文档页的时候回自动切换到新页面去，不然还是原有页面，不太方便
13826031454 发表于 2016-1-7 21:44
占个位置,方便找到组织
楼主：
请看一下，list-utils.lsp中的这个函数好像有问题：
;;;desc:点表转普通表
;;;arg:lst:点表
;;;return:普通表
;;;example:(BF-dot->list '(1 2 3 . 4))
(defun BF-dot->list (lst)
(if (BF-listp lst)
lst
(cond
((and lst (listp lst))
(cons (car lst) (BF-dot->list (cdr lst)))
)
((and lst (not (listp lst)))
(cons lst (BF-dot->list nil))
)
(t nil)
)
)
)
; (BF-dot->list '(1 2 3 . 4))
; 错误: no function definition: BF-LISTP
啊 原来这里曾经还有这样好的宝贝， 可惜来晚了 刚开始以为是github。 mvehu 发表于 2016-1-7 21:35 static/image/common/back.gif
刚开始以为是github。
github是英文的，我怕大家看晕了。。。 占个位置,方便找到组织 支持一下楼主。
我感觉在autolisp界，似乎分享代码的风气不广。老琢磨给代码加密什么的。以前工程师的遗风吗？
autolisp的定位就是工程师自己写给自己用的小工具。大家分享好的代码，别人借鉴你的，你又可以借鉴别人的，何乐而不为？ mvehu 发表于 2016-1-7 21:58 static/image/common/back.gif
支持一下楼主。
我感觉在autolisp界，似乎分享代码的风气不广。老琢磨给代码加密什么的。以前工程师的遗 ...
分享最重要 虽然几乎都不玩lisp了,但是这种分享精神必须值得鼓励! 非常感谢楼主，看了楼主的页面里的说明，以前一些很模糊的概念现在比较清晰了，知道程序的一些标准要求，以前都是随心所欲的格式。再次感谢楼主。 赞赏楼主的精神。