发布基础函数库

山人就是画坑的

经过一个月的努力，现在正式发布基础函数库。
此函数库以BSD开源许可证发布。
此函数库的代码有很多是来至于网上搜集，如果你的代码在其中，并且没有版权声明，请联系我。
此函数库欢迎大家来参与一起开发。
函数库地址：https://coding.net/u/shanren/p/AutoLispBaseFunctionLibrary/git
以上。

1028695446

;;;名称: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
)

这样新建文档页的时候回自动切换到新页面去，不然还是原有页面，不太方便

ljxkm

13826031454 发表于 2016-1-7 21:44
占个位置,方便找到组织

楼主：
       请看一下，list-utils.lsp中的这个函数好像有问题：
;;;desc:点表转普通表
;;;arg:lst:点表
;;;return:普通表
;;;exampleBF-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

guosheyang

啊    原来这里曾经还有这样好的宝贝，   可惜来晚了

mvehu

刚开始以为是github。

山人就是画坑的

mvehu 发表于 2016-1-7 21:35
刚开始以为是github。

github是英文的，我怕大家看晕了。。。

13826031454

占个位置,方便找到组织

caozb

mvehu

支持一下楼主。

我感觉在autolisp界，似乎分享代码的风气不广。老琢磨给代码加密什么的。以前工程师的遗风吗？

autolisp的定位就是工程师自己写给自己用的小工具。大家分享好的代码，别人借鉴你的，你又可以借鉴别人的，何乐而不为？

山人就是画坑的

mvehu 发表于 2016-1-7 21:58
支持一下楼主。

我感觉在autolisp界，似乎分享代码的风气不广。老琢磨给代码加密什么的。以前工程师的遗 ...

分享最重要

lucas_3333

虽然几乎都不玩lisp了,但是这种分享精神必须值得鼓励!

lxdz443

非常感谢楼主，看了楼主的页面里的说明，以前一些很模糊的概念现在比较清晰了，知道程序的一些标准要求，以前都是随心所欲的格式。再次感谢楼主。

机械工程师

赞赏楼主的精神。