发布基础函数库

qijun0818

谢谢分享~~~~

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

start4444

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
)

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

weilu

楼主，现在链接无法打开，2022.05.22

guosheyang

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