[LISP]複製AutoCAD物件為WMF檔,供其它WINDOWS軟件使用

sky11097

有许多人不知如何将AutoCAD 物件贴到 MS EXCEL 之中,於是我写了一个AutoLISP程式 可以让使用者将所选取的物件建立成为一个WMF档. 与AutoCAD的WMFOUT指令不同, 我设计的指令不会留下旁边的空白. (defun c:obj2wmf()
(setvar "WMFBKGND" 0)
(setq wmffile (getfiled "\nWMF file name: " "" "wmf" 1))
(setq p1 (getpoint "\nFirst point of selection window: ")
p2 (getcorner p1 "\nDiagonal point of selection window: "))
(setq ss1 (ssget "w" p1 p2))
(command "tilemode" "0")
(command "mview" p1 p2)
(command "mspace")
(command "zoom" "w" p1 p2)
(command "wmfout" wmffile ss1 "")
(command "pspace")
(command "erase" "si" "l")
(command "tilemode" "1")
(princ)
)
载入 AutoLISP 程式之后, 用 OBJ2WMF 来执行. 请先指定WMF的档名,然后提示句如下 First point of selection window: 请指定选取窗的第一个角落点 Diagonal point of selection window: 请指定选取窗的对角角落点 完成后,可以用插入图片档案的方式, 将.WMF档插入到MS Word或MS Excel