shijianyy 发表于 2021-6-13 23:20:58

不错的资料 多谢楼主分享

go998 发表于 2021-8-4 15:49:05

djjeson 发表于 2021-8-6 13:32:56

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

未来的迷茫 发表于 2021-9-16 15:36:53

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

bccmm001 发表于 2021-9-22 16:21:15

感谢楼主，爱你！

GSD 发表于 2022-5-15 09:54:15

本帖最后由 GSD 于 2022-5-15 09:56 编辑

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

elitefish 发表于 2022-5-16 16:53:08

本帖最后由 elitefish 于 2022-5-16 17:02 编辑

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 中。
;将资源文件中存储的TXT图像 绘制到 幻灯片 中
(defun EF:Image-Vector (sImage      ; VLX 中保存的 资源文件 名
                        minX minY fWideth fHeight      ;绘图范围 最小 X Y值 及宽度 高度
                        coReplace ;颜色替换
                        /
                        )
;(setq sImage (vl-get-resource sImage))      ;取得资源文件名
(EF:Image-imgList->Slide
    minX minY fWideth fHeight
    (EF:Image-StringList->imgList (EF:String->List (vl-get-resource sImage) "\r\n"))
    coReplace
    )
)

;将资源文件 满布到幻灯片中
(defun EF:Image-FormResource (dclTile      ;图像名
                              iBGColor      ;背景色
                              fScale      ;填充比例
                              sResource      ;资源名
                              coReplace ;颜色替换
                              / X Y
                              )
(start_image dclTile)
(fill_image 0 0 (dimx_tile dclTile) (dimy_tile dclTile) iBGColor)      ;清空背景
(setq X (dimx_tile dclTile)
      Y (dimy_tile dclTile)
      )
(EF:Image-Vector
    sResource
    (fix (/ (* (- 1 fScale) (dimx_tile dclTile)) 2))
    (fix (/ (* (- 1 fScale) (dimy_tile dclTile)) 2))
    (fix (* fScale (dimx_tile dclTile)))
    (fix (* fScale (dimy_tile dclTile)))
    coReplace
    )
(end_image)
)

GSD 发表于 2022-5-16 17:29:10

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

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

墨陨 发表于 2022-6-16 14:52:17

感谢楼主，研究研究

黄翔 发表于 2022-6-16 16:26:31

学习一下！厉害
页: 7 8 9 10 11 12 13 14 15 16 [17] 18
查看完整版本: [原创][免币！！]信·DCL编辑器 (公布源程序！)