求助：帮忙分析是什么意思？？？

zxfzxf

请教大侠：

            能否对mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val))语句说明一下，多谢了

meflying

语句不全,

zxfzxf

(defun hy_GetXData (vlaObj AppID / xType XData);;;;取得图元扩展数据并列表
(cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))
((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))
(t (setq olderror *error*)))
(vla-getxdata vlaObj AppID 'xType 'xData)
(mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))(vlax-safearray->list xType)
(vlax-safearray->list xData)
)
)