画门立面图

尘缘一生

提取改写段代码，越弄越觉得没意思，不准备继续了。有兴趣的继续完善吧。它的意义就在于，这种开发的方式、方法，值得掌握。

本坛原帖子链接没找到，是一个外国软件，只支持英文、日语的，提出来画门立面，搞了半天，觉得，这个画门立面作用不大。






补充上幻灯函数

;图形预览对话框处理;==DCL控件写幻灯===================(一级)======================================
;;语法 (SL-Lib-ImageFill img_key slide cobak)
;;img_key 图像控件关键字
;;slide 幻灯片名字
;;cobak 图像控件底色
;;功能：对话框图像初始化
(defun SL-Lib-ImageFill (imgkey slide cobak / x1 y1)
(setq x1(dimx_tile imgkey))
(setq y1(dimy_tile imgkey))
(start_image imgkey)
(fill_image 0 0 x1 y1 cobak)
(slide_image 0 -2 x1 y1 slide)
(end_image)
)


补上幻灯片：

panliang9

谢谢楼主，好贴标记！

maiko

还有幻灯片文件没上传

maiko

其实我觉得没必要这样弄,每个工地用的门款不一样,我的方法是做个动态块

尘缘一生

maiko 发表于 2019-12-31 16:12
其实我觉得没必要这样弄,每个工地用的门款不一样,我的方法是做个动态块

动态块当然好，本坛的完整动态块程序代码在哪？这个没那么高级，但是完整的！