CAD的表格输出倒EXCEL

wozhengjia · 发表于 2022-10-15 16:30:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如主题，就是输出CAD的表格倒EXCEL，分解的线条可以输出。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:cad输出到excel加强版20140914_new.zip
下载次数:0 文件大小:8.91 KB
下载权限: 不限以上 [免费赚D豆]

另外问下，谁知道有什么编辑器能编辑fas 成为 lsp的，
我记得之前有一个编辑器，可以直接加密LSP成为FAS , 也可以解密FAS变成LSP

wozhengjia · 发表于 2022-10-15 16:38:50

这个很好用，谁能补充一下吗？帮忙修改支持新的版本。现在只是支持倒2010的EXCEL。能不能支持倒高版本的

(defun Current_OFFICE_Profiles_key (/ key $EA_PATH_OFFICE) (vl-remove nil (mapcar '(lambda (x) (vl-registry-read x "PATH") ) '("HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\8.0\\EXCEL\\INSTALLROOT" "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\9.0\\EXCEL\\INSTALLROOT" "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\10.0\\EXCEL\\INSTALLROOT" "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\11.0\\EXCEL\\INSTALLROOT" "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\12.0\\EXCEL\\INSTALLROOT" "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\13.0\\EXCEL\\INSTALLROOT" "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\14.0\\EXCEL\\INSTALLROOT" ;_Office 2010 "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\15.0\\EXCEL\\INSTALLROOT" ;_Office 2013 ) ) ))

wozhengjia · 发表于 2022-10-15 16:52:55

((setq  TLB (FINDFILE (STRCAT PATH "\\Excel8.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel9.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel10.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel11.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel12.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel13.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel14.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel15.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel16.olb" ) )) TLB )
   ((setq  TLB (FINDFILE (STRCAT PATH "\\Excel.exe" ) )) TLB )
   (T (ALERT "本系统内未找到EXCEL97、2000、2002、2003、2010，初始化失败！" ) ) )  )

账号		自动登录	找回密码
密码			立即注册

[工具] CAD的表格输出倒EXCEL

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块