A. jpg格式转dwg格式转换器 我有一张jpg格式的照片怎么才能转换成dwg格式的,
jpg格式转换为dwg格式的步骤如下:
1、首先安装AlgoLabPhoto Vector这个软件。网络"AlgoLab"就可以搜索到这个软件,下载并安装。
这样就解决了“将jpg格式图片转换为dwg格式”的问题。
B. 如何把图片存储到dbf
如何将通用型字段中的照片保存成文件
提取.DBF中通用字段中的一个图片或文件(.BMP,.DOC,.GIF或.JPG文件)
*----------------------------------------------------------------
*--复制 .DBF 通用字段内容到一个.BMP,.DOC,.GIF 或 .JPG 文件,
*--切去由 APPEND GENERAL 命令添加的所有的头和尾部信息.
*--调用方法 =gentofil(字段名,表名)
&& parameters lcfieldname,lcfilename
*****************************************************************************
******************************************************************************
*-- 要运行该示例,将 VFP 示例表 employee.dbf, employee.fpt, employee.cdx
*-- 复制到该文件所在目录, 并将该目录设置为默认目录. 然后在命令窗口打入:
*-- do gentofil
*-- 这样,该示例程序将根据通用字段内容的属性.把在当前 employee 表中第一条记录的通用字段 photo 中的内容
*-- 复制到一个 employee.bmp/employee.doc/employee.jpg/employee.gif 文件中。
******************************************************************************
******************************************************************************
lcfieldname = "photo"
lcfilename = "employee"
SET DEFA TO c:\gen
LOCAL lccompatible,lcextension,liendoffset,;
lctempfile,lihandelin,lihandleout,lisize,llsuccess
lccompatible=SET("COMPATIBLE") && 保存 "Compatible" 设置
SET COMPATIBLE ON && 这样 FSIZE 函数返回文件大小, 而不是字段大小
IF "." $ lcfilename
lcfilename=LEFT(lcfilename,AT(".",lcfilename))
ENDIF
lctempfile=SYS(3) && 指定临时文件名
COPY TO (lctempfile) FIELDS (lcfieldname) NEXT 1 && 复制通用字段的内容到临时文件中
lihandlein=FOPEN(lctempfile+".FPT") && 打开它的 .FPT
*--考查 .FPT 内容以决定嵌入文档的类型
DO CASE
CASE FSEEK(lihandlein,590)>0 .AND. FREAD(lihandlein,2)="BM"
lcextension="BMP"
liendoffset=FSEEK(lihandlein,590)+83
*-- 注: 在源代码中 以上代码行中的 590 为 599
CASE FSEEK(lihandlein,610)>0 .AND. ASC(FREAD(lihandlein,1))=208 .AND. ASC(FREAD(lihandlein,1))=207 .AND. ASC(FREAD(lihandlein,1))=17
lcextension="DOC"
liendoffset=FSEEK(lihandlein,610)+16798
CASE FSEEK(lihandlein,669)>0 .AND. ASC(FREAD(lihandlein,1))=255 .AND. ASC(FREAD(lihandlein,1))=216 .AND. ASC(FREAD(lihandlein,1))=255
lcextension="JPG"
liendoffset=FSEEK(lihandlein,648)+3779
*-- 注: 在源代码中 以上代码行中的 669 为 648
CASE FSEEK(lihandlein,666)>0 .AND. FREAD(lihandlein,3)="GIF"
lcextension="GIF"
liendoffset=FSEEK(lihandlein,666)+3780
*-- 注: 在源代码中 以上代码行中的 666 为 663
OTHERWISE
lcextension=""
ENDCASE
IF .NOT. EMPTY(lcextension)
lisize=FSIZE(lctempfile+".FPT")-liendoffset && 决定数据大小
lihandleout=FCREATE(lcfilename+"."+lcextension) && 创建输出文件
=FWRITE(lihandleout,FREAD(lihandlein,lisize)) && 复制数据到它
=FCLOSE(lihandlein) && 关闭临时 .FPT..
=FCLOSE(lihandleout) && ...和输出文件
ENDIF
IF EMPTY(lcextension)
MESSAGEBOX("未找到该类型的通用字段",0,"注意")
SET COMPATIBLE &lccompatible && 恢复 "Compatible"
RETURN .F.
ENDIF
lctempfile=lctempfile+".*" && 删除临时 .DBF/.FPT
ERASE (m.lctempfile)
SET COMPATIBLE &lccompatible && 恢复 "Compatible"
IF FILE(lcfilename+"."+lcextension)
llsuccess=.T.
ENDIF
RETURN llsuccess
C. CorelDRAW里如何将图片转换成单线条图形(只要图形轮廓)
1、首先导入图片,点击菜单栏“位图”—“轮廓描摹”—“线条图”。