LISP写的Excel导入ArcGIS的程序

Lisphk · 发表于 2016-8-29 23:01:22

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

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

×

LISP程序 excel里的数据导入arcgis

里面有很好的大量的LISP操作EXCEL的代码，贴几个：

;|
Examples:
(vlxls-app-kill T) è nil
Excel Application Session Progress Function
Name
(vlxls-app-autofit ExcelSessionVLA-OBJECT)
Usage
Autofit the column width of all Excel session used ranges.
Input
VLOBJ
Excel session vla-object
RetVal
True
Variant
T
Fail
BOOLEAN
NIL
|;
(Defun vlxls-app-autofit (xlapp / sh act Rtn)
(setq act (vlxls-Sheet-Get-Active xlapp))
(foreach sh (append (vl-remove act (vlxls-sheet-get-all Xlapp))
(list act)
)
(setq Rtn (variant-value
(msxl-autofit
(msxl-get-columns
(msxl-get-Cells
(vlxls-sheet-get-usedrange xlapp sh)
)
)
)
)
)
)
(equal Rtn :vlax-true)
)

;| 
Examples: 
 
(vlxls-app-kill T) è nil 
Excel Application Session Progress Function 
Name 
 (vlxls-app-autofit ExcelSessionVLA-OBJECT)   
Usage 
 Autofit the column width of all Excel session used ranges. 
Input 
 VLOBJ 
 Excel session vla-object 
RetVal 
 True 
 Variant 
 T 
Fail 
 BOOLEAN 
 NIL 
 |; 
(Defun vlxls-app-autofit (xlapp / sh act Rtn) 
  (setq act (vlxls-Sheet-Get-Active xlapp)) 
  (foreach sh (append (vl-remove act (vlxls-sheet-get-all Xlapp)) 
                      (list act) 
              ) 
    (setq Rtn (variant-value 
                (msxl-autofit 
                  (msxl-get-columns 
                    (msxl-get-Cells 
                      (vlxls-sheet-get-usedrange xlapp sh) 
                    ) 
                  ) 
                ) 
              ) 
    ) 
  ) 
  (equal Rtn :vlax-true) 
)

[it618postdisplay>0][sell]

请点击此处下载

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

您的用户组是：游客

文件名称:vlxls-excel-arcgis.rar
下载次数:56 文件大小:13.54 KB
下载权限: 不限以上 [免费赚D豆]

[/sell][/it618postdisplay]

冰心 · 发表于 2016-8-29 23:18:01

看看，excel相互操作。。。

HLCAD · 发表于 2016-8-30 08:09:18

LISP操作EXCEL的代码值得学习

dycla2001 · 发表于 2016-8-31 07:04:10

学习》》》》》》》》》》》》

shuaier · 发表于 2016-9-1 09:32:44

这都可以，感谢分享！

yjch · 发表于 2016-9-2 09:41:02

好好好，十分值得学习

yoyoho · 发表于 2016-9-2 14:33:08

学习，excel相互操作!!!!

lhdlgmz · 发表于 2017-1-9 21:41:13

看看，谢谢楼主分享

cq_qg68 · 发表于 2017-1-12 11:00:23

arcgis不知道是啊，看看如何操控excel

pengfei2010 · 发表于 2017-2-12 17:39:05

学习一下这个叼

QQ84603709 · 发表于 2017-2-12 19:20:01

支持~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

lhd244 · 发表于 2017-4-21 14:57:01

好好学习下。。顶

sujia · 发表于 2017-4-21 21:50:44

多好的东西啊

砧板鱿鱼 · 发表于 2017-4-25 01:59:21

感谢分享。。。。。。。

XDnpu349 · 发表于 2017-4-27 09:51:20

好东西，谢谢。

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

[每日一码] LISP写的Excel导入ArcGIS的程序

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