1、（1）复制下面代码粘贴到新建txt文件里，修改新建txt文档为“修复CTRL+V.lsp”， “.lsp”为后缀名，文件名称可随便改。
（2）打开CAD,输入"APPLOAD"命令。出现加载窗口，把“修复CTRL+V.lsp”加载进去就可以了，在窗口右下角 启动组里把“修复CTRL+V.lsp”文件添加进去，自动加载。
﹟
2、
(defun imagefile (filename);/ filedia-save cmdecho-save)
(vl-load-com)
(setvar "cmdecho" 0)
(setq mspace (vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object))))
(setq po1_mga (getpoint "\n图像插入点: "))
(setq po_mga (vlax-3d-point po1_mga))
(setq obj_mga (vla-AddRaster mspace (findfile filename) po_mga 100 0))
(setq ename_mga (vlax-vla-object->ename obj_mga))
(vla-getboundingbox obj_mga 'll 'ur)
(setq po2_mga (cadr (mapcar 'vlax-safearray->list (list ll ur))))
(setq po3_mga (list (car po1_mga) (cadr po2_mga)))
(vl-cmdf "SCALE" ename_mga "" po1_mga "r" po1_mga po3_mga pause)
(prin1)
);d
