[原创][免币！！]信·DCL编辑器 (公布源程序！)

shijianyy

不错的资料 多谢楼主分享

go998

djjeson

新手正在研究怎么做界面，感谢楼主

未来的迷茫

如果要给按钮。或字体加个颜色可以做到吗？

bccmm001

感谢楼主，爱你！

GSD

谢谢！麻烦说下 “保存图像为文本” 什么用？怎么再回转回来？

elitefish

GSD 发表于 2022-5-15 09:54
谢谢！麻烦说下 “保存图像为文本” 什么用？怎么再回转回来？

更多内容可以看 EF_Lib 源码中的 Image.lsp 文件
EF_ToText 可以将选定的CAD图元转为矢量格式并保存到文本文件，编译VLX时将文本作为资源文件编译进VLX，程序可以通过 EF:Image-Vector 或 EF:Image-FormResource 函数将这个资源文本绘制到DCL中指定的 Image 或 image_button 中。

2. ;将资源文件中存储的TXT图像 绘制到 幻灯片 中
   
3. (defun EF:Image-Vector (sImage        ; VLX 中保存的 资源文件 名
   
4.                         minX minY fWideth fHeight        ;绘图范围 最小 X Y值 及宽度 高度
   
5.                         coReplace ;颜色替换
   
6.                         /
   
7.                         )
   
8.   ;(setq sImage (vl-get-resource sImage))        ;取得资源文件名
   
9.   (EF:Image-imgList->Slide
   
10.     minX minY fWideth fHeight
    
11.     (EF:Image-StringList->imgList (EF:String->List (vl-get-resource sImage) "\r\n"))
    
12.     coReplace
    
13.     )
    
14.   )
    
15. 
    
16. ;将资源文件 满布到幻灯片中
    
17. (defun EF:Image-FormResource (dclTile        ;图像名
    
18.                               iBGColor        ;背景色
    
19.                               fScale        ;填充比例
    
20.                               sResource        ;资源名
    
21.                               coReplace ;颜色替换
    
22.                               / X Y
    
23.                               )
    
24.   (start_image dclTile)
    
25.   (fill_image 0 0 (dimx_tile dclTile) (dimy_tile dclTile) iBGColor)        ;清空背景
    
26.   (setq X (dimx_tile dclTile)
    
27.         Y (dimy_tile dclTile)
    
28.         )
    
29.   (EF:Image-Vector
    
30.     sResource
    
31.     (fix (/ (* (- 1 fScale) (dimx_tile dclTile)) 2))
    
32.     (fix (/ (* (- 1 fScale) (dimy_tile dclTile)) 2))
    
33.     (fix (* fScale (dimx_tile dclTile)))
    
34.     (fix (* fScale (dimy_tile dclTile)))
    
35.     coReplace
    
36.     )
    
37.   (end_image)
    
38.   )

;将资源文件中存储的TXT图像 绘制到 幻灯片 中<br /> (defun EF:Image-Vector (sImage        ; VLX 中保存的 资源文件 名<br />                         minX minY fWideth fHeight        ;绘图范围 最小 X Y值 及宽度 高度<br />                         coReplace ;颜色替换<br />                         /<br />                         )<br />   ;(setq sImage (vl-get-resource sImage))        ;取得资源文件名<br />   (EF:Image-imgList->Slide<br />     minX minY fWideth fHeight<br />     (EF:Image-StringList->imgList (EF:String->List (vl-get-resource sImage) "\r\n"))<br />     coReplace<br />     )<br />   )<br /> <br /> ;将资源文件 满布到幻灯片中<br /> (defun EF:Image-FormResource (dclTile        ;图像名<br />                               iBGColor        ;背景色<br />                               fScale        ;填充比例<br />                               sResource        ;资源名<br />                               coReplace ;颜色替换<br />                               / X Y<br />                               )<br />   (start_image dclTile)<br />   (fill_image 0 0 (dimx_tile dclTile) (dimy_tile dclTile) iBGColor)        ;清空背景<br />   (setq X (dimx_tile dclTile)<br />         Y (dimy_tile dclTile)<br />         )<br />   (EF:Image-Vector<br />     sResource<br />     (fix (/ (* (- 1 fScale) (dimx_tile dclTile)) 2))<br />     (fix (/ (* (- 1 fScale) (dimy_tile dclTile)) 2))<br />     (fix (* fScale (dimx_tile dclTile)))<br />     (fix (* fScale (dimy_tile dclTile)))<br />     coReplace<br />     )<br />   (end_image)<br />   )

GSD

elitefish 发表于 2022-5-16 16:53
更多内容可以看 EF_Lib 源码中的 Image.lsp 文件
EF_ToText 可以将选定的CAD图元转为矢量格式并保存到文 ...

感谢回复！！太高级慢慢学！！！！！！

墨陨

感谢楼主，研究研究

黄翔

学习一下！厉害