(vlax-put-property range 'value (vlax-make-variant "字符串2"))为什么错

namezg

(defun c:test (/ Excel wbooks wbook sheet cells range)
        ;(setq Excel (vlax-create-object "excel.application"))
        (setq Excel (vlax-get-or-create-object "excel.application"))
        (vla-put-Visible Excel :vlax-true)
        (setq wbooks (vlax-get-property Excel 'workbooks))
        (setq wbook (vlax-invoke-method wbooks 'add))
        (setq sheets (vlax-get-property wbook 'sheets))
        (setq sheet (vlax-get-property sheets 'item 1))
        (setq cells (vlax-get-property sheet 'cells))
        (setq range (vlax-get-property cells 'range "A1"))
        (vlax-put range 'value "字符串1");此处为什么不能用(vlax-put-property range 'value (vlax-make-variant "字符串2"))代替
        (alert (vlax-get range 'value));(alert (vlax-variant-value (vlax-get-property range 'value)))
        (princ)
)

(vlax-put-property range 'value (vlax-make-variant "字符串2"))为什么错，而(vlax-put range 'value "字符串1")则正确。

namezg

高手们关注一下！！

自贡黄明儒

会不会后者是早期的，前者是后期的，AutoCAD开倒车？