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、首先導入圖片,點擊菜單欄「點陣圖」—「輪廓描摹」—「線條圖」。