乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 114|回复: 9

有没有办法将没有幻灯片的dwg文件,显示到图像控件上?

[复制链接]

76

主题

595

帖子

10

银币

中流砥柱

Rank: 25

铜币
899
发表于 2003-6-26 10:12:00 | 显示全部楼层 |阅读模式
我们会发现,在cad的打开对话框里,可以预览到要打开的文件的图像。
我们能不能也不用做一个文件的幻灯片,也让这个文件在对话框的图像控件中显示出来?不用其它的软件,只用lisp来实现。
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-26 10:32:00 | 显示全部楼层
完全可以,具体查看VLISP帮助文件中IMAGE,IMAGE_BUTTON控件的设计及控制,有详细介绍
回复

使用道具 举报

76

主题

595

帖子

10

银币

中流砥柱

Rank: 25

铜币
899
发表于 2003-6-26 11:19:00 | 显示全部楼层
没有呀,只提供vector_image  fill_image和slide_image 三个函数呀。能不能把你的具体方法给我讲一下,谢谢!
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-26 11:59:00 | 显示全部楼层
首先你得会LISP,会控制对话框,在(new_dialog...)之后加上如下语句
;图象控件显示幻灯片
  (setq width (dimx_tile "image1")
          height (dimy_tile "image1"))
  (start_image "image1")
  (slide_image 0 0 width height "sldname");显示幻灯片,sldname——幻灯片名
  (end_image)
回复

使用道具 举报

22

主题

248

帖子

10

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
336
发表于 2003-6-26 12:19:00 | 显示全部楼层
在VLISP中做不到,不能提取DWG文件的这段数据...
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-26 14:08:00 | 显示全部楼层
不好意思,我没看清楚问题
回复

使用道具 举报

76

主题

595

帖子

10

银币

中流砥柱

Rank: 25

铜币
899
发表于 2003-6-26 14:18:00 | 显示全部楼层
是吗?我还真的去查了一些命令,结果,还是找不到。哈哈!没关系,大家一起切磋嘛。我们还真的发现了lisp的一些毛病。
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-26 14:39:00 | 显示全部楼层
其实LISP一般是对当前图进行操作,一个没打开的图反正无法操作,看了也没什么实际用处,如果想打开一个文件进行操作,打开前想进行预览,可以用getfiled函数,在默认扩展名为DWG时,对话框会增加一个预览控件的
回复

使用道具 举报

4

主题

17

帖子

5

银币

初来乍到

Rank: 1

铜币
33
发表于 2003-6-26 21:35:00 | 显示全部楼层
还是用vba吧:
在vba中用volo view控件,可以实现对dwg文件全功能的浏览,包括放大、缩小、控制层的显示等等。voloview express是免费的。
回复

使用道具 举报

76

主题

595

帖子

10

银币

中流砥柱

Rank: 25

铜币
899
发表于 2003-6-27 08:35:00 | 显示全部楼层
真的再没有lisp的办法了吗?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-3 17:50 , Processed in 1.185017 second(s), 74 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表