本帖最后由 xsso 于 2022-11-14 15:19 编辑
- (defun getDeta (/ nn ls)
- (setq nn 0)
- (repeat 60
- (setq ls
- (cons
- (vlax-invoke-method
- (vlax-invoke-method
- (vlax-get-or-create-object "Shell.Application") 'NameSpace "E:\\Program Files\\CAD 2004\\CAD图"
- )
- 'GetDetailsOf "11.dwg" nn
- )
- ls)
-
- )
- (setq nn(1+ nn))
- )
- (reverse ls)
- )
- (getDeta)
我想请教一下为什么得出的时“名称”不是值
‘("名称" "大小" "项目类型" "修改日期" "创建日期" "访问日期" "属性" "脱机状态" "可用性" "假设的类型" "所有者" "种类" "拍摄日期" "参与创作的艺术家" "唱片集" "年" "流派" "指挥者" "标记" "分级" "作者" "标题" "主题" "类别" "备注" "版权" "#" "时长" "比特率" "保护")
搞了几天都搞不个所以然,想求值要怎么写
|