用lisp程序怎么去复制一个excel文件

chenxc11

我自己有一个带宏命令的excel文件（.xlsm文件），我想把这个excel表格做成一个模板（就像cad里面的.dwt文件一样），以后每次用lisp往excel表格里导出数据时，先调用这个模板，然后导出的数据就能用这个宏命令了。。。从lisp往excel文件中导出数据我已经会了，但我不知道如何能在lisp程序下复制一个做好的excel文件？？希望哪位帮我一下，谢谢~~

牢固

Vl-file-copy函数

chenxc11

谢谢啊，我函数学习不够，

chenxc11

牢固 发表于 2014-6-14 23:25
Vl-file-copy函数

牢固你好，
     感谢您的解答，还想问一下你，就是我给三维实体添加扩展属性后，用entmod更新时，总是要好几秒钟才能完成，而且越是复杂的实体（比如若干个实体经由布尔运算组合而成）要的时间越长，有个时候就看命令行框里面三维实体的属性码一直更新好几页，我不知道是我的程序有问题还是三维实体修改扩展数据本来就费时间？

牢固

chenxc11 发表于 2014-6-15 21:51
牢固你好，
     感谢您的解答，还想问一下你，就是我给三维实体添加扩展属性后，用entmod更新时，总是 ...

当然是你的程序有问题！

chenxc11

帮忙看一下，好么？
;================================================================
;把选取的图元添加进隐藏图层中去
;================================================================
(defun c:yctc ( / ss nn index ena ent oldent oldent_ data newent )
    (if (= (tblsearch "layer" "隐藏图层") nil);;;查询本图中是否已经有隐藏图层了，如果没有就新建一个;;;
        (progn
           (command "_layer" "n" "隐藏图层" "");;新建隐藏图层
           (command "_layer" "off" "隐藏图层" "");;把隐藏图层关掉
        )
    )
    (princ "\n选取需要隐藏的图形")
    (setq ss (ssget);;;选择需要加入隐藏图层中去的图元集合
          nn (sslength ss)
          index 0
    )
    (repeat nn
        (setq ena (ssname ss index)  ;找出其中一个图元名
              ent (entget ena)       ;展开图元
              oldent (assoc 8 ent)   ;获取图元的图层
              oldent_ (cdr oldent)   ;获取图元的图层信息
              index (1+ index)       ;递增
        )      
        (if (not (or (assoc -3 (entget ena '("cxc_gjtc"))) (assoc -3 (entget ena '("cxc_tc")))))
            (progn
                (if (= (tblsearch "appid" "cxc_tc") nil) ;如果词典里没有cxc_tc扩展数据名称
                    (regapp "cxc_tc")   ;注册钢筋直径的扩展数据名;
                )
                (setq data (list (append (list -3) (list (list "cxc_tc" (cons 1000 oldent_))))))
                (setq ent (append ent data))
                (entmod ent)
            ) ;progn
        ) ;if
        (setq ent (entget ena)
              newent (cons 8 "隐藏图层")
              ent (subst newent oldent ent)
        )
        (entmod ent)
    ) ;repeat
)

牢固

chenxc11 发表于 2014-6-16 21:26
帮忙看一下，好么？
;================================================================
;把选取的图元 ...

最后一行添加(princ)

chenxc11

咦，真好使了，这是为什么呢~~
你就一个(princ)就化腐朽为神奇了，，，佩服

chenxc11

哦，我明白了，刚才翻了翻autolisp函数，，，谢谢啊