BIM G CO

tu ne le saura qu'à partir des variables MEASUREMENT et MEASUREMENTINIT. Aide d'AutoCAD à lire

L'ouvrir en utilisant le fichier acad2006.lsp saisir avant ce code : ;; Silent load. (princ) (command "_open" "c:\\mondossier\\monfichier.dwg") ou dans le fichier acad2006doc.lsp créer une fonction LISP : (defun c:MALEGENDE ;;; monfichier est le nom avec son emplacement où se trouve ;;; ta légende à demarrer à l'ouverture (setq monfichier "C:\\Mes documents\\Legende.dwg") ;;; ouverture du fichier (command "_open" monfichier) ) et ajouter dans le fichier acad2006.lsp la ligne suivante: (c:MALEGENDE) Attention ce genre de modification sera à refaire si tu change AutoCAD ou si tu le répare! les fichiers de acad2006.lsp et acad2006doc.lsp se trouvent dans le dossier C:\Program Files\AutoCAD 2006\Support [Edité le 28/11/2006 par Maximilien]

Le moyen le plus simple c'est de les insérer en référence externe (appelé communément XREF) sur un dessin vide! Ensuite à l'aide du gestionnaire de calque choisir une couleur différente pour chaque dessin inséré en référence externe. (c'est vrai qu'il faut que ceux-ci soient en couleur Ducalque pour chaque élément et éviter les couleus forcées des objets) [Edité le 28/11/2006 par Maximilien]

la commande 3DCONFIG ne te convient-elle pas? à saisir au clavier sur la ligne de commande

Effectivement mais je me sers de ma réponse précédente comme de nota personnelle pour "m'obliger" à comprendre pourquoi je dois faire ceci et non cela. Il est clair qu'en imprimant et en lisant sur papier ce sujet les deux questions ce sont résolues d'elles-mêmes. Concernant la 3ème, merci de tes explications, je les teste sur la ligne de commande me permettant de comprendre chacun de leurs comportement! On apprend beaucoup en comprenant et en testant pas à pas les routines inconnues! Le fait que je les imprime permet de les classer et de les mettre à disposition du BE.

çà marche! mais maintenant je dois le comprendre 1 pourquoi le mien ne fonctionne pas 2 pourquoi celui-ci fonctionne 3 que fait les fonctions : vla-get-ActiveDocument vlax-get-acad-object vla-StartUndoMark vla-get-Blocks vla-get-ObjectName vla-get-PatternName vla-EndUndoMark vla-regen acActiveViewport Ce document sera imprimé c'est dans ce but que les fonctions qui me sont inconnues sont écrites. (je rechercherais par mes propres moyens me permettant de bien mémoriser [Edité le 27/11/2006 par Maximilien]

(if efface (progn (foreach m efface (vla-delete (vlax-ename->vla-object m))) (entmod (entget n)) ) ) ) le (vla-delete (vlax-ename->vla-object m)))ne me donne rien de plus ma liste "efface" contient pourtant pour chaque bloc la liste des éléments à effacer. (efface est une liste de type entite : < Nom d'entité: 7e7e1a08 >) effectivement je pourrais faire plus rapide avec sslength (nombre de blocs sélectionnés) while une boucle parcourant la liste et ssname pour avoir le bloc mon principal problème c'est Pourquoi çà n'efface pas! [Edité le 24/11/2006 par Maximilien]

J'ai modifié le code car j'ai trouvé le problème de la liste "efface"! un problème de booléen mal interprété! (ouf heureusement que c'est dans Débuter en LISP) PS la commande Editref n'est pas mieux pour près de 220 blocs HATCH_001 à HATCH_221 :casstet: [Edité le 24/11/2006 par Maximilien]

Qui n'as pas eu la mauvaise surprise de recevoir des plans avec des blocs contenant des hachures de type SOLID multicolore! Difficile de l'imprimer en monochrome san risquer d'avoir une grosse masse noire dans le plan. J'ai tenté une ébauche mais malheureusement rien ne s'efface : (mais tout est bien sélectionné (setq selection (ssget "X" (list (cons 0 "INSERT") (cons 2 "HATCH*")))) (setq liste (mapcar '(lambda (x) (nth 1 x)) (ssnamex selection))) (foreach n liste (setq efface nil) (setq entite (entget (cdr (assoc -2 (tblsearch "BLOCK" (cdr (assoc 2 (entget n))))) ) ) ) (while (and (entnext (cdr (assoc -1 entite))) (/= (cdr (assoc 2 entite)) "SOLID") ) (setq efface (append efface (list (cdr (assoc -1 entite))))) (setq entite (entget (entnext (cdr (assoc -1 entite))) ) ) ) (if efface (progn (foreach m efface (entdel m)) (entmod (entget n)) ) ) ) (princ) [Edité le 24/11/2006 par Maximilien]

hum VLA-Copy et voilou la bonne idée :) ;) Patrick_35 ce code marche mais si AutoDesk change le fonctionnement de la command "_Copy" je serais obligé de revoir le code à chaque changement de version (tous les ans quoi). (gile) tu as vu là où je ne peux voir. Merci à bonuscad qui me donne encore un code permettant de revoir un large panel des codes VisualLisp (que je ne perde pas la main). C'est le projeteur électrique qui sera heureux ce matin. [Edité le 24/11/2006 par Maximilien]

Mes connaissances en DCL et ObjectDCL sont nul je vais bientôt m'y mettre mais voici un début : (setq ELEMENT (entsel "Sélectionner l'élément")) (if ELEMENT (setq ELEMENT (entget (car ELEMENT))) (exit)) ; si vide je sors (setq NOM (cdr (assoc 8 ELEMENT))) ; me donne le nom du calque (setq CALQUE (tblsearch "LAYER" NOM) ; me donne les données DXF du calque (setq NOM ((cdr (assoc 2 CALQUE))) ; NOM du calque (pour le fun) (setq COUL (cdr (assoc 62 CALQUE))) ; COULEUR (setq TPL (cdr (assoc 6 CALQUE))) ; Type de ligne exécution du DCL avec paramétrage qui me sont inconnu puis (setq CALQUE (subst (cons 2 NOUVEAU_NOM) (assoc 2 CALQUE) CALQUE)) (setq CALQUE (subst (cons 62 NOUVEAU_COUL) (assoc 62 CALQUE) CALQUE)) (setq CALQUE (subst (cons 6 NOUVEAU_TPL) (assoc 6 CALQUE) CALQUE)) (entmod CALQUE) devrait fonctionner sinon (command "_-LAYER" "_color" CALQUE NOUVEAU_COUL "") (command "_-RENAME" "_layer" NOM NOUVEAU_NOM) (command "_-LAYER" "_linetype" CALQUE NOUVEAU_TPL "") [Edité le 23/11/2006 par Maximilien]

Un code qui a le droit d'exister : (defun c:COPYFOL (/ v1 v2 v3) (setq v1 (getstring "\nNumero du folio destination: ")) (if (tblsearch "layer" v1) (progn (setq v2 (entsel (strcat "Bloc à copier vers le folio " v1 ":"))) (if v2 (setq v2 (car v2)) (exit)) [b](command "_COPY" v2 "" (list 0.0 0.0) (list 0.0 0.0))[/b] (setq v3 (entlast)) (if v3 (setq v3 (entget v3)) (exit)) (if (numberp v1) (setq v1 (itoa v1))) (setq v3 (subst (cons 8 v1) (assoc 8 v3) v3)) (entmod v3)))(princ)) ce code copie (en superposant) l'élément sélectionner : Je m'en sers pour mon éditeur de Pages de schéma électrique. Malgré cette command en gras pour laquelle je butte! (pas moyen de trouver une parade pour copier n'importe quel éléments : groupes, blocs, cotations etc...)

Quelques lignes à ajouter alors: -------------------------- (defun c:JoinPoly (/ ss) (if (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE")))) (if (or (= 1 (getvar "PEDITACCEPT")) (vl-every '(lambda (x) (= "LWPOLYLINE" (cdr (assoc 0 (entget x))))) (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) ) ) (command "_.pedit" "_m" ss "" "_j" "_j" "_b" pause "_c" "") (command "_.pedit" "_m" ss "" "_y" "_j" "_j" "_b" pause "_c" "") ) ) [b](command "_SAVEAS" "DXF" "VERSION" "2000" "16" "C://MON_DOSSIER//MON_FICHIER.DXF")[/b] (princ) ) -----------------------

Et.m****!!! J'ai tout téléchargé, tout extrait et en faisant une recherche de Windows XP sur le fichier "ObjectDCL2007.arx" il ne trouve rien ce c******* windows et pourtant dans le dossier "ObjectDCLBin" dossier extrait de ObjectDCLBin.zip le fichier est effectivement présent! çà m'appendra de télécharger pendant mes pauses café! bon et bien j'ai commandé pour rien chez http:// http://www.aidacad.com un logiciel pour faire des DCL [Edité le 23/11/2006 par Maximilien]

PDFCreator n'a pas que ce problème : Lors de publication de nombreux documents des plans de 914x1500 mm (pas si grand que çà, qui) les WipeOUT et masquaquage de texte multilignes se dégrade au fur et à mesure du tracé du plans en rectancgle noir. Quelle catastrophe lorsqu'après avoir commander auprès d'un tireur de plans 10 exemplaires de 30 plans, nous nous apercevâmes de ce problème! On ne voyait l'erreur qu'en zoomanr dans Acrobat Reader à partir de la version 7 à 6400%! Résultat les plans PDF ne sont plus fait en PDF avec PDFCreator mais avec un autre logiciel de création PDF qui lui n'a pas créé ces problèmes : dernier test sur 300 m² de plans (soit 24 kilos pour du papier à 80gr/m²). :casstet: [Edité le 23/11/2006 par Maximilien]

profites-en pour enregister son profil (exportation de profil dans le menu Outils-Options-Onglet Profil) ou si tu t'y connais bien en informatique en exportant la base de registre concernant l'espace de travail (chemin valable pour AutoCAD 2007): [HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\ [b]R17.0[/b]\ACAD-5001:40C\Profiles] Attention modifier la base de registre peut provoquer des dommages gravissimes! [Edité le 23/11/2006 par Maximilien]

Moi aussi je voudrais savoir comment? sans passer par DWF Writer?

Tout condamné à "mots" fautés aura la tête tranchée !

à part créer un groupe je ne vois pas d'autre solution. de plus le groupe permet par l'appui de touche de grouper ou de dissocier par la suite avec une main (SHIFT+CRTL+A) ou des grands doigts (CTRL-H) [Edité le 23/11/2006 par Maximilien]

Acheter une souris deux molettes en version pierre ! :p

J'attends une souris avec 2 molettes comme la mienne pour pouvoir l'acheter: Image de ma souris actuelle : http://www.pearl.fr/images/produits/PE8947.jpg [Edité le 11/4/2007 par Maximilien]

J'ai une souris avec 2 molettes 1 pour l'horizontale et 1 pour la verticale et pour zoomer je place le pointeur sur les barre d'outils et j'utilise indépendamment l'une ou l'autre molette. peut-être pour toi cela sera pareil.

As-tu regardé si le point d'insertion du bloc a fait partie de ta sélection (Capture ou Fenêtre)

Pas de problème,moi, avec les 5"1/4 :)

Cher autospeed, Serait-ce parce qu'on propose des solutions (gratuites) sans utiliser l'add-on d'AutoCAD payant du même nom que ton pseudo, que tu submerje de publicité? Si tu veux vraiment faire de la publicité paye Patrick avec un encart publicitaire sur le site CadXP