（1）复制下面代码粘贴到新建txt文件里，修改新建txt文档为“修复CTRL+V.lsp”， “.lsp”为后缀名，文件名称可随便改。（2）打开CAD,输入'APPLOAD'命令。出现加载窗口，把“修复CTRL+V.lsp”加载进去就可以了，在窗口右下角 启动组里把“修复CTRL+V.lsp”文件添加进去，自动加载。 ﹟
(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