明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 7725|回复: 35

[函数] 发布基础函数库

    [复制链接]
发表于 2016-1-7 21:04 | 显示全部楼层 |阅读模式

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

评分

参与人数 7明经币 +8 金钱 +70 收起 理由
xshrimp + 2 + 30 很给力!
自贡黄明儒 + 1 赞一个!
xyccf + 10 赞一个!
Gu_xl + 2 赞一个!
USER2128 + 1 很给力!
lucas_3333 + 1 + 20 分享的都是好同志!
mvehu + 1 + 10 很给力!

查看全部评分

发表于 2019-10-3 10:31 | 显示全部楼层
本帖最后由 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
)

这样新建文档页的时候回自动切换到新页面去,不然还是原有页面,不太方便
发表于 2018-4-16 09:04 | 显示全部楼层
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
发表于 2022-5-22 09:48 | 显示全部楼层
啊    原来这里曾经还有这样好的宝贝,   可惜来晚了
发表于 2016-1-7 21:35 | 显示全部楼层
刚开始以为是github。
 楼主| 发表于 2016-1-7 21:40 | 显示全部楼层
mvehu 发表于 2016-1-7 21:35
刚开始以为是github。

github是英文的,我怕大家看晕了。。。
发表于 2016-1-7 21:44 | 显示全部楼层
占个位置,方便找到组织
发表于 2016-1-7 21:55 | 显示全部楼层
发表于 2016-1-7 21:58 | 显示全部楼层
支持一下楼主。

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

autolisp的定位就是工程师自己写给自己用的小工具。大家分享好的代码,别人借鉴你的,你又可以借鉴别人的,何乐而不为?
 楼主| 发表于 2016-1-7 22:43 | 显示全部楼层
mvehu 发表于 2016-1-7 21:58
支持一下楼主。

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

分享最重要
发表于 2016-1-7 23:16 | 显示全部楼层
虽然几乎都不玩lisp了,但是这种分享精神必须值得鼓励!

点评

专业看大片。嘿嘿!  发表于 2016-1-8 10:53
发表于 2016-1-8 07:08 | 显示全部楼层
非常感谢楼主,看了楼主的页面里的说明,以前一些很模糊的概念现在比较清晰了,知道程序的一些标准要求,以前都是随心所欲的格式。再次感谢楼主。
发表于 2016-1-8 08:25 | 显示全部楼层
赞赏楼主的精神。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 14:47 , Processed in 0.228287 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表