recover有没有办法,DWG打开自动recover一遍?
就是图纸打开自动RECOVER一次,,谢谢!找了U版的函数,弄个半自动,,recover自己输,黏贴地址就行。。。哈哈
;;-------------------------------------------------
(defun c:xfdk ()
(CopytoClipboard (strcat (getvar "dwgprefix") (getvar "dwgname")))
(vl-load-com)
(command "_qsave" "")
(vla-sendcommand (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) (strcat "new" " "))
(vla-sendcommand (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) (strcat "close" " " " "))
(print)
)
;;-------------------------------------------------
;;;将文本复制到剪贴板
(defun CopytoClipboard(text / Clip_board)
(setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))
(Vlax-Invoke Clip_board 'SetData "text" text)
(vlax-release-object Clip_board)
text
)
;;-------------------------------------------------
jh3030912 发表于 2023-9-29 06:31
这个不太会使用
输命令,新建DWG,在新的dwg中输入recover ,CTRL+V 黏贴就是你要修复的图纸的地址 fyw12345 发表于 2023-2-1 15:27
写好命令保存lsp文件,加载到启动项
这样会出对话框?还要找图纸位置?有办法自动修复吗? 写好命令保存lsp文件,加载到启动项 RECOVERYMODE,0试试 得写个脚本 Proman 发表于 2023-2-3 16:11
得写个脚本
估计也只能这样了,,用lisp很难。。。试了好久不行 有net api 具体是哪个忘记了 你有种再说一遍 发表于 2023-2-5 15:31
有net api 具体是哪个忘记了
能找得到吗?困扰好久,,找不到什么好方法!! yaojing38 发表于 2023-2-5 15:49
能找得到吗?困扰好久,,找不到什么好方法!!
大概是Appliction下面
页:
[1]
2