[求助]：怎样用LISP在DCL对话框内显示指定图形的预览

lgh930

怎样用LISP在DCL对话框内显示指定图形的预览

XDSoft

DCL没有办法做。

试试用ObjectDCL吧。

杨少

DCL是可以实现的，不过要第三方程序支持，我这里提供一个，见附件。
该程序可以将DWG文件的预览图像转换为SLD文件，而SLD文件就可以给DCL对话框调用。

在程序中的用法：
(setq fname (substr filename 1 (- (strlen filename) 4)));不带后缀的文件名
(start_image img_name)
(fill_image 0 0 x2 y2 -2)
(startapp (strcat "linnet.exe \"" filepath filename "\" \"" (getvar "tempprefix") fname ".sld" "\""))
(slide_image 0 0 x2 y2 (strcat (getvar "tempprefix") fname ".sld"))
(end_image)

SLD文件放在windows的temp目录下,程序的最后需加上
(dos_delete (strcat (getvar "tempprefix") "*.sld"))
删除临时幻灯片.(调用 doslib 函数)
该程序在 R14 及 R2002 中均运行通过.

前生

其实doslib直接有相应的函数

杨少

最初由 前生 发布
[B]其实doslib直接有相应的函数 [/B]

你满足于 dos_dwgpreview 的功能吗?

hqd9639

不知为什么用linnet转换成的SLD都是空的

杨少

最初由 hqd9639 发布
[B]不知为什么用linnet转换成的SLD都是空的 [/B]

linnet 不能转换 R12 及以下版本的图, R14 以后版本需在保存选项中设置了 "保存缩微预览图像(Save thumbnail preview image)" (该项默认为选中),才能转换出图形的预览幻灯片.

daziran

我也很关心这个问题，ACAD二次开发ActiveX控件集可以用吗？我不懂lisp和ActiveX的关系。
    我在R13版曾经使用一个专用函数（网上下载），可以用在lisp函数内，直接预览DWG图形，
不需要生成SLD。可惜高版本的没有了。
那位高手找一个来？




试用了这个程序，可以使用。但是分辨率太低，几乎无用。
杨少再来呀。