明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 6410|回复: 6

[提问] 用lisp调用dcl显示图像的基本程序

[复制链接]
发表于 2014-6-12 00:11:07 | 显示全部楼层 |阅读模式
本帖最后由 荒野孤行 于 2019-12-3 09:55 编辑

以下是WDY工具箱里面调用头像的相关函数,很多是从论坛上收集的,以下代码只可支持AutoCAD部分版本和中望CAD201及以上版本,使用天正CAD的坛友亦希望WDY工具箱可在天正中望CAD里面使用,请大家帮忙优化。

已解决的帖子:http://bbs.mjtd.com/thread-110628-1-1.html

以下红色部分是需要重点修改的:
(defun wdy-make-img2 (key image /)
  (setq version (substr (getvar 'acadver) 1 2))
  (setq version (strcat "AutoCAD.AcCmColor." version))
  (setq colorobj (vlax-create-object version))
  (if (not colorobj)
      (setq colorobj (vlax-create-object "ZWCAD.ZcCmColor"))
  )
  (start_image key)
  (setq        xx (dimx_tile key)
        yy (dimy_tile key)
  )
  (fill_image 0 0 xx yy 61)
  (foreach pt image
    (setq x (car pt))
    (setq y (cadr pt))
    (setq r (nth 2 pt))
    (setq g (nth 3 pt))
    (setq b (nth 4 pt))
    (setq indexcolor (rgb2index colorobj r g b))
    (if        (/= 0 (last pt))
      (fill_image x y 1 1 indexcolor)
    )
  )
  (end_image)
)
(defun rgb2index (colorobj r g b / i)
  (if (and (equal 0 r 10) (equal 0 g 10) (equal 0 b 10))
    -16
    (progn
      (vla-setrgb colorobj r g b)
      (setq i (vla-get-colorindex colorobj))
      (if (= i 7)
        -15
        i
      )
    )
  )
)

本帖子中包含更多资源

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

x

点评

如何实现image的数据?  发表于 2014-6-13 09:00
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2014-6-15 21:11:17 | 显示全部楼层
试一下Li mac的函数
; RGB -> ACI - Lee Mac 2011
;; Args: r,g,b - Red,Green,Blue values

(defun LM:RGB->ACI ( r g b / cObj aci ) (vl-load-com)
  (if
    (and
      (setq cObj
        (vla-getInterfaceObject (vlax-get-acad-object)
          (strcat "AutoCAD.AcCmColor." (substr (getvar 'ACADVER) 1 2))
        )
      )
      (not
        (vl-catch-all-error-p
          (vl-catch-all-apply 'vla-SetRGB (list cObj r g b))
        )
      )
    )
    (setq aci (vla-get-ColorIndex cObj))
  )
  (if cObj (vlax-release-object cObj))
  aci
)
发表于 2015-9-14 06:33:15 来自手机 | 显示全部楼层
楼主太有才了
发表于 2018-7-14 06:59:26 | 显示全部楼层
仰慕版主啊 感谢分享源码!
发表于 2022-5-14 15:55:56 | 显示全部楼层
感谢楼主分享,但不知道为什么我的中望机械版2020的就不行,(setq colorobj (vlax-create-object "ZWCAD.ZcCmColor"))这条没有值,但2022试用版的就没问题
发表于 2022-10-18 16:12:10 | 显示全部楼层
右下角这个图标按钮怎么实现的

本帖子中包含更多资源

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

x
发表于 2024-10-25 15:45:16 | 显示全部楼层
w090212y 发表于 2022-10-18 16:12
右下角这个图标按钮怎么实现的

用的幻灯片按钮
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-23 08:45 , Processed in 0.191953 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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