vlax-get-property 得到的结果如何转换成lisp结果

守仁格竹GM

Examples:
[pcode=lisp,true]
(vlxls-sheet-get-usedrange *xlapp* "Sheet1")  ==>  "A1:AW35"
(vlxls-sheet-get-usedrange *xlapp* "NewSheet")  ==>  "A1:AW35"
|;
;0·获取指定页面的使用区域
(defun vlxls-sheet-get-UsedRange (xlapp Name / sh Rtn)
   (if (null Name)
      (setq Name (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'Name))
   )
   (vlax-for sh (vlax-get-property Xlapp "sheets" )
      (if (= (vlax-get-property sh "Name" ) Name)
         (setq Rtn (vlax-get-property sh "UsedRange" ))
      )
   )
   Rtn
)
[/pcode]
现在用这个函数取得的结果不知道如何转换 例子中的结果不是实际的结果

实际结果是这样的：#<VLA-OBJECT Range 06d84714>

炫翔

;将VLA对象 转换为 AutoLISP类型的对象名
(defun  XX-O2E (oname)
(vlax-vla-object->ename oname)
)

守仁格竹GM

结果不行 转换不过来

守仁格竹GM

Rtn 为结果值是：#<VLA-OBJECT Range 06d84714>
(vlax-vla-object->ename Rtn) 结果返回nil

守仁格竹GM

自己解决了 原来做过自己都忘了
vlxls-range-getID 这个就行了

XDSoft

守仁格竹GM 发表于 2013-5-11 10:54

                               
登录/注册后可看大图

自己解决了 原来做过自己都忘了
vlxls-range-getID 这个就行了

把完整可用的代码贴上来吧。

守仁格竹GM

XDSoft 发表于 2013-5-11 13:09

                               
登录/注册后可看大图

把完整可用的代码贴上来吧。

(defun vlxls-range-getID (range / str col row dx dy)
   (if (equal (vlxls-get-property range "mergecells" ) :vlax-true)
      (setq str "MergeArea." )
      (setq str "" )
   )
   (setq dx (vlxls-get-property range (strcat str "Rows.Count" ))
         dy (vlxls-get-property range (strcat str "Columns.Count" ))
         row (vlxls-get-property range (strcat str "Row" ))
         col (vlxls-get-property range (strcat str "Column" ))
   )
   (strcat (vlxls-rangeid (list col row)) ":" (vlxls-rangeid (list (1- (+ col dy)) (1- (+ row dx)))))
)

贴出来了

守仁格竹GM

论坛里下载xls操作函数帮助文件吧 都有