明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 910|回复: 4

[提问] lsp有什么函数可以读取照片的像素吗

[复制链接]
发表于 2018-6-8 19:57 | 显示全部楼层 |阅读模式

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-6-9 12:54 | 显示全部楼层
  1. ;;(test "d:\\DJI_0002.JPG")
  2. ;;返回图片的宽度、高度、水平分辨率、数值分辨率
  3. (defun test(p)
  4. (setq oba (vlax-get-or-create-object "WIA.ImageFile"))
  5. (vlax-invoke-method oba 'LoadFile p)
  6. (mapcar '(lambda(x)(vlax-get-property oba x))
  7.   (list 'Width 'Height 'HorizontalResolution 'VerticalResolution)
  8. ))
回复 支持 2 反对 0

使用道具 举报

发表于 2018-6-9 21:59 | 显示全部楼层

太厉害了,刚好也是我需要的。
稍微修改了一下,获取相片的拍摄日期

;;(ZA:GetPicDTDigitized "d:\\1.JPG")
(defun ZA:GetPicDTDigitized (fn / DATE LL NAME VLA METHOD)
;;;  (setq fn "d:\\123.jpg")
  (setq Vla (vlax-get-or-create-object "WIA.ImageFile"))
  (setq method (vl-catch-all-apply 'vlax-invoke-method (list Vla 'LoadFile fn)))
  (cond
    ((Not (vl-catch-all-error-p method))
     ;;;  (setq Lst (list 'Width 'Height 'HorizontalResolution 'VerticalResolution))
     ;;;  (mapcar '(lambda(x) (vlax-get-property Vla x)) Lst)
     (setq LL (vlax-get-property Vla 'properties))
     ;;;  (vlax-for i LL (setq Lst2 (cons i Lst2)))
     (vlax-for item LL
       ;;;    (setq item (nth 26 Lst2))
       (setq Name (vlax-get-property item 'name))
       (cond
         ((= Name "ExifDTDigitized")
          (setq Date (vlax-variant-value (vlax-get-property item 'value))))
         (t nil)))
     (vlax-release-object Vla)
     Date
     )
    (t nil)
    )
  )
发表于 2022-10-14 13:59 | 显示全部楼层

大佬能不能出一个提取gps经纬度的呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 18:58 , Processed in 0.218233 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表