(vl-load-com)(defun GetMyDocumentsDir(/ lj)	(setq lj (vlax-invoke-method		(vlax-get-property			(vlax-create-object "wscript.shell")			'SpecialFolders) 'Item  "MyDocuments"))	(if (wcmatch lj "*\\")		(progn			(substr lj 1 (- (strlen lj) 1))		)		lj	))(setq a_jujing (findfile (strcat (GetMyDocumentsDir) "\\有云批量打印\\有云批量打印.vlx")))(if a_jujing	(progn		(load a_jujing)		(yy-xiufuyouyuncaidan)		(initdia)(vl-cmdf "PLOT")		(c:pdf1)	)	(progn(alert "检测到还未安装，请安装后再加载本lsp文件。\n\n安装方法有2种：
方法一：运行【安装有云CAD批量打印.exe】文件。\n方法二：手工复制【有云批量打印】文件夹到【我的文档】中。再到CAD中使用AP命令，加载‘拖入CAD加载.lsp’")))