社区 › Auto Lisp › 数据怎么转换

渠辉 发表于 2022-7-12 15:41:00

数据怎么转换

获得这样的数据
#
#
怎么转换为
100
text

baitang36 发表于 2022-7-12 15:58:00

怎么获得的？把程序贴上来。

晨曦CAD 发表于 2022-7-12 16:49:00

(vlax-variant-value #)

渠辉 发表于 2022-7-13 09:39:00

;;(getcell(vlax-get excel 'activesheet) 1 2))
(defun getcell (sht row col)
    (vlax-get-property
      (vlax-get-property sht 'cells)
      'item
      row
      col
    )
)
这个用不了

渠辉 发表于 2022-7-13 09:40:00

;;(setcell(vlax-getexcel 'activesheet)1 2 100)
;; (setcell (vlax-get excel 'activesheet) 1 3 "text")
(defun setcell (sht row col data)
(vlax-put-property
    (vlax-get-property sht 'cells)
    'item
    row
    col
data
)
)
这个能用

foolishzy 发表于 2022-7-13 10:09:00

试试variant-value

渠辉 发表于 2022-7-13 10:30:00

试过不行

自贡黄明儒 发表于 2022-7-13 10:36:00

(vlax-variant-value cell)

渠辉 发表于 2022-7-13 10:56:00

OK！ 已解决

查看完整版本: 数据怎么转换