jacobs33

L'idée c'est de modifier toutes les valeurs des calques existants. (command "-calque" "ep" [surligneur]"par_défaut"[/surligneur] "*" "") La Valeur "par_défaut" n'est pas valide il faut donner valeur numérique du type "0.20"

Bonjour, Et il possible de modifier l'épaisseur de ligne du calque en "par_defaut" en passant part la ligne de code. (command "-calque" "ep" "par_défaut" "") Merci :) :)

Sans les fautes.... Pour moi ça fonctionne bien sur la version 2000 :) :) :)

Salut, Pour ce fonction sur la version "2000" :) :)

:) :) :) Voir par là : http://www.cadviet.com/forum/index.php?showtopic=9088 Ça a l'air de fonctionner ....

Quand tu édit le fichier "CVAV_v101.lsp" avec un éditeur de texte il y a bien ce code a l'intérieur ;; --------- Fix AutoCAD.lsp virus --------- ;; Free lisp from CADViet.com (setq removedcodelist (list ";; Silent load." "(princ)" "(load \"acadapp\")" "(load \"ddcopy.lsp\")" "" ) infectedcodelist (strcat "(load \"acadapp\")," "(load \"ddcopy.lsp\")," "(setq path (findfile \"base.dcl\"))" ) restoresv (list (cons "cmdecho" 1) (cons "zoomfactor" 60) (cons "mbuttonpan" 1) (cons "HIGHLIGHT" 1) (cons "fillmode" 1) ) restorecmd (list "plot" "u" "qsave" "line" "quit" "trim" "extend" "move" "xplode" "xref" "xbind" ) ) (princ "\n") (princ "\n") (princ "\n****************************************") (princ "\nCADViet AntiVirus v1.01 is starting ...") (setq ifile 0) (vl-load-com) (setq support_path (findfile "base.dcl") support_path (substr support_path 1 (- (strlen support_path) 8)) nowdwg (getvar "dwgname") wjqm (findfile nowdwg) wjqm (if wjqm wjqm nowdwg ) dwg_path (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))) removedlist (list (strcat support_path "acadapp.lsp") (strcat support_path "acadappp.lsp") (strcat support_path "ddcopy.lsp") (strcat dwg_path "acad.lsp") ) fixedlist (list (strcat support_path "acad.mnl") (strcat support_path "acad.lsp") ) ) (defun fixvr (fn / content infected) (if (setq ff (open fn "r")) (progn (while (setq str (read-line ff)) (if (not (member str removedcodelist)) (setq content (append content (list str))) (if (wcmatch str infectedcodelist) (setq infected t) ) ) ) (close ff) (if infected (progn (setq ff (open fn "w")) (foreach str content (write-line str ff) ) (close ff) (princ (strcat "\nfile " fn " was fixed!")) (setq ifile (1+ ifile)) ) ) ) ) ) (foreach fn removedlist (if (vl-file-delete fn) (progn (princ (strcat "\nfile " fn " was deleted!")) (setq ifile (1+ ifile)) ) ) ) (foreach fn fixedlist (fixvr fn) ) (princ "\nCADViet AntiVirus finishes scanning ...") (if (= ifile 0) (princ "\nNo infected files were found!") (progn (setvar "cmdecho" 0) (mapcar '(lambda (cn) (setvar (car cn) (cdr cn))) restoresv) (mapcar '(lambda (cn) (command ".redefine" cn)) restorecmd) (princ (strcat "\nTotal " (itoa ifile) " infected files were found and removed!" ) ) (setvar "cmdecho" 1) ) ) (princ "\n****************************************") (princ "\n") (princ "\n") (princ)

suite au commentaire précèdent [surligneur] :( attention tous les fichiers "acad.lsp" sont supprimer du disque c: :( [/surligneur]

J'ai trouvé ça ce matin, Ça a l'air de fonctionner .... http://www.cadviet.com/forum/index.php?showtopic=9088

bonjour, j'ai le probléme. 1 fichier "acad.lsp" généré dans le répertoire courant du fichier a sont ouverture. avec message d'erreur suivant. Help .... [surligneur] Ouverture d'un fichier au format AutoCAD 2004/LT 2004. Régénération de la présentation. Régénération du modèle. ; erreur: no function definition: «ACAD Utilitaires de menu AutoCAD chargés.Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. Tout a été annulé undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. qsave Commande inconnue "QSAVE". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. line Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. quit Commande inconnue "QUIT". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. explode Commande inconnue "EXPLODE". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. trim Commande inconnue "TRIM". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. extend Commande inconnue "EXTEND". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. move Commande inconnue "MOVE". Appuyez sur F1 pour obtenir de l'aide. undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide. plot Commande inconnue "PLOT". Appuyez sur F1 pour obtenir de l'aide. DWG Autodesk. Ce fichier est un fichier DWG approuvé dont le dernier enregistrement a été effectué dans une application Autodesk ou dans une application sous licence Autodesk.[/surligneur]

Bonjour, Je suis sur la version 2010 j'ai ce problème de création de fichier "acad.lsp" dans chaque répertoire courant et a chaque ouverture de fichiers. j'ai essayer la solution mais je ne comprend pas a partir de l'étape 3. quelqu'un peut m'aider. [surligneur] Pour éviter les corruptions de fichiers supplémentaires Vous devez être un administrateur système sur votre ordinateur Microsoft® Windows® système d'exploitation d'achever ce processus. 1. Dans votre dossier d'installation du produit, recherchez le Soutien dossier (par exemple, C: \ Program Files \ AutoCAD 20xx \ Support). 2. Dans le Soutien dossier, double-cliquez sur le acad20xx.lsp fichier (par exemple, le acad20xx.lsp fichier). Ajoutez le code ci-dessous pour le fichier. AutoCAD permet de détecter et supprimer les AutoCAD.vlx et logo.gif fichiers. (Defun cleanvirus (/ lspfiles lspfile x) (Setq lspfiles («acad.vlx" logo.gif ")) (Foreach lspfiles lspfile (While (setq x (findfile lspfile)) (Progn (Vl-file-delete x) (Princ "\ nDeleted fichier") (Princ x) ); Progn ), Tandis que ); Foreach ) (Cleanvirus) 3. Ouvrez chacun des fichiers suivants: * C: \ Program Files \ AutoCAD 20xx \ Express \ acetauto.lsp * C: \ Program Files \ AutoCAD 20xx \ Support \ ai_utils.lsp * ROAMABLEROOTPREFIX \ acad.mnl \ Support Note: Remplacer ROAMABLEROOTPREFIX avec la valeur retournée par la variable système ROAMABLEROOTPREFIX. 4. S'il est présent, supprimez la ligne de code suivante: (VL-de copie de fichier (findfile (chaîne VL-liste-> '(108 111 103 111 46 103 105 102))) (chaîne VL-liste->' (97 99 97 100 46 118 108 120))) 5. Sauvegarder chaque fichier. [/surligneur]

Bonjour, je viens d'ecrire ces trois lignes de code pour mettre à jour la largeur des textes dans dessin DWG qui est a l'origine un DXF. dans la base de donné du fichier La largeur ( 41. 0.85) et bien pris en compte mais pas a l'écran. Pourquoi? (defun c:LTXT () (setq sel (ssget "X" (list (cons -4 " (cons 0 "TEXT") (cons 8 "*VP*_EQUI_*,*VP*_GEN*") (cons -4 "AND>") ) ) ) (if sel (setq n 0) (repeat (sslength sel) (setq el (entget (ssname sel n))) (setq el (subst (cons 41 0.85) (assoc 41 el) el)) (entmod el) (setq n (+ n 1)) ) ) ) j'ai ecrit ce Lisp cars les textes ne se m'etaient pas à jour quand je m'étais un facteur de largeur de "0.85" dans la boite de dialogue style de texte. cela est il normal? Merci

Ci joint l'image pour une meilleure compréhension. http://img36.imageshack.us/img36/3681/sanstitre1meo.gif merci

Merci mais la réponse ne répond pas a mon attente. Je vais essayer d'etre plus precis dans ma demande. quand je double clic sur un texte verticale dans le dessin le fenetre de modification avec la régle est vertical est il possible que le texte dans cette fentre soit a l'horizontal. :D

Bonjour, quel est la variable qui fixe l'oriention de la boite de dialogue de l'editeur de texte a l'horizontale. Merci

Bonjour, il faut aussi toujours travailler en "SCU" général.

Bonjour, Passe d'abord en "SCU" générale avant d'insérer le plan et vérifies que les bases sont bien a 0,0,0.

Salut, Fait une recherche avec Explorer sur ton disque dur "*..sv$" Tu devrais trouver l'emplacement de tes fichiers de sauvegardes.

Bonjour, je voudrais mettre a jours mes projets autocad MEP par des fichiers "script " ou LISP mais je n'arrive pas a empêcher l'ouverture de la boite de .dialogue lancer par la commande "_AecSetCurrentProject". le tiret milieu "-" devant la commande "-_AecProjectBrowser" ne fonctionne pas. Fichier LISP (defun c:maj (/ ) (command "filedia" "0") (command "cmddia" "0") (command "_AecCloseProjectNavigator") (command "_SetCurrentProject" "C:/toto1/toto.apj" "") (command "_AecRefreshProject") (command "_AecCloseProjectNavigator") (command "filedia" "1") (command "cmddia" "1") (princ) ) Fichier "script " Son avantage est que je peu le lancer depuis un fichier "Bacht" pour un traitement en différé filedia 0 cmddia 0 _SetCurrentProject C:/toto1/toto.apj filedia 1 cmddia 1 Merci pour votre aide

la commande est : aecsetcurrentproject

La commande est : aecsetcurrentproject

Salut, peux tu être plus précis sur la commande "REDIR" elle ne fonctionne pas sur la ligne de commande. pour les "chemins de projet" pas plus de résultat j'ai mis en référence le chemin du répertoire d'origine mais l'essai n'est pas concluant. je veux juste mettre a jours mon Projet sans passer par la boite de dialogue la commande sur la ligne commande est "_AecProjectBrowser" qui doit lancer le fichier "toto.ajp". je vais essayer de lancer la commande via un "Lisp" va savoir !!! :D ;)

Bonjour, existe t'il un moyen d'interdire l'ouverture des boite de dialogue d'autre que Filedia,Cmddia, ou de placer un tiret milieu devant la commande exemple "-xref" je voudrais mettre a jour mes chemins de projet en passant par la ligne de commande en Lisp ou en script sans passer par la boite de dialogue. :) :cool:

Bonjour, je voudrais mettre a jours mes projets autocad MEP par un fichiers "bath" mais je n'arrive pas a empécher l"ouverture de la boite de dailogue lancer par la "_AecProjectBrowser" méme en passant les variable cmddia et filedia a "0" ou "1" en mettant "-" devant lacommande "-_AecProjectBrowser". j'ai aussi essayé avec un fichier "scr". code batch 1 set Reprout=C:\DOCUME~1\Bureau\TEST-M~1 C:\DOCUME~1\Bureau\TEST-M~1\1-REPL~1\toto.apj code batch 2 set Reprout=C:\DOCUME~1\Bureau\TEST-M~1 "C:\Program Files\AutoCAD MEP 2008 Fr\acad.exe" /ld "C:\Program Files\AutoCAD MEP 2008 Fr\AecBase.dbx" /p "maquette" /b "%Reprout%\majprojet.scr" fichiers scr _aecprojectbrowser C:\Documents and Settings\Bureau\Test-Maquette\1-Replique DWG\MICHELIN-GR7.apj Merci pour votre aide .... :D :D

cela fonctionne super bien .....

Passe en espace objet créer une sauvegarde de l'état des t'es calques dégèle, déverrouille, active t'es calques et lance le lisp puis restaure l'état de t'es calques.