Gilles1

Tu peux peut être essayer jav.lsp de Patrick35 que tu trouveras facilement en faisant une petite recherche sur ce site.

:) Merci à vous, c'est ok

Bonjour. Impossible de me conecter sur le site via Firefox :casstet: Par contre, cela marche avec internet explorer que je n'utilise pas d'habitude. Ennuyeux ;)

Petit up :P

Bonjour à toutes et à tous. Je galère avec l'outil exporter la présentation vers espace objet!! J'ai un client qui veut les présentations dans l'espace objet, et bien sûr chez moi les présentations sont dans l'espace papier, normal quoi :cool: Les fichiers sont des projets 2D de liaisons inter villes donc assez vastes mais pas très lourds avec des xrefs (levés topo, etc) attachés. Quand je lance le traitement, l'opération prend entre 20 et 30' avant soit d'aboutir, soit de faire un plantage d'autoCad. En effet, la mémoire utilisée pour réaliser les opérations frise souvent les 2,2 GO et au delà AutoCad plante :mad: N'y aurais t-il pas quelque petit paramètre à régler pour éviter les plantages et/ou racourcir le temps de traitement? Merci d'avance à vous.

Bonjour PhilOctet. Vas voir ce site: http://bonuscad.perso.sfr.fr/index.html

Bonjour. J'ai reçu les bouquins de la version 2010 il y a 3 mois environ. Malgré que j'ai acheté une licence map 2011. C'est seulement depuis la version 2011 me semble t-il qu'ils n'éditent plus les manuels.

Bonjour Jalna. De quel outil parles-tu pour convertir tes pdf en dwg?

Bjr. www.autodeskdocandmedia.com/ Vas voir, mais je crois qu'il n'y a plus de doc papier depuis v2010. J'ai demandé une doc map 2011, j'ai reçu autocad2010. :casstet:

Bjr. Le chemin de recherche des fichiers de support est déclaré en C:\Program Files\Autodesk\AutoCAD Map 3D 2011\Express, en principe correct. Une réparation n'a rien donné. La commande "_EXPRESSTOOLS" n'a rien donné, les icons sont tjrs absents. Quand je regarde dans la personnalisation de l'interface utilisateur, fichiers de personnalisation partiels, express,menus, express, calques, gestionnaire de calques (par exemple) je vois que la petite image est " et_LAYMAN16.BMP " mais affiche un " ? " Si je recherche " et_LAYMAN16.BMP " sur le DDur je ne le trouve pas. Idem pour les autres... D'autres suggestions ?

Bjr. Un petit up !! Personne n'a de réponse? :casstet:

Bonjour. Je n'ai plus mes icônes dans le menu express, seulement des " ? " :mad: Je n'ai pas réussi à les retrouver sur le disque dur avec le moteur de recherche windows. Est-ce que vous pouvez me dire où ils sont chez vous? :exclam: Merci d'avance.

Le lsp en question: ;;; ;;; ;;; BURST.LSP ;;; Copyright © 1999-2006 by Autodesk, Inc. ;;; ;;; Your use of this software is governed by the terms and conditions of the ;;; License Agreement you accepted prior to installation of this software. ;;; Please note that pursuant to the License Agreement for this software, ;;; "[c]opying of this computer program or its documentation except as ;;; permitted by this License is copyright infringement under the laws of ;;; your country. If you copy this computer program without permission of ;;; Autodesk, you are violating the law." ;;; ;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. ;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF ;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC. ;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE ;;; UNINTERRUPTED OR ERROR FREE. ;;; ;;; Use, duplication, or disclosure by the U.S. Government is subject to ;;; restrictions set forth in FAR 52.227-19 (Commercial Computer ;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) ;;; (Rights in Technical Data and Computer Software), as applicable. ;;; ;;; ---------------------------------------------------------------- (Defun C:BURST (/ item bitset bump att-text lastent burst-one burst BCNT BLAYER BCOLOR ELAST BLTYPE ETYPE PSFLAG ENAME ) ;----------------------------------------------------- ; Item from association list ;----------------------------------------------------- (Defun ITEM (N E) (CDR (Assoc N E))) ;----------------------------------------------------- ; Error Handler ;----------------------------------------------------- (acet-error-init (list (list "cmdecho" 0 "highlight" 1 ) T ;flag. True means use undo for error clean up. );list );acet-error-init ;----------------------------------------------------- ; BIT SET ;----------------------------------------------------- (Defun BITSET (A B) (= (Boole 1 A B) B)) ;----------------------------------------------------- ; BUMP ;----------------------------------------------------- (Setq bcnt 0) (Defun bump (prmpt) (Princ (Nth bcnt '("\r-" "\r\\" "\r|" "\r/")) ) (Setq bcnt (Rem (1+ bcnt) 4)) ) ;----------------------------------------------------- ; Convert Attribute Entity to Text Entity or MText Entity ;----------------------------------------------------- (Defun ATT-TEXT (AENT / ANAME TENT ILIST INUM) (setq ANAME (cdr (assoc -1 AENT))) (if (_MATTS_UTIL ANAME) (progn ; Multiple Line Text Attributes (MATTS) - ; make an MTEXT entity from the MATTS data (_MATTS_UTIL ANAME 1) ) (progn ; else -Single line attribute conversion (Setq TENT '((0 . "TEXT"))) (ForEach INUM '(8 6 38 39 62 67 210 10 40 1 50 41 51 7 71 72 73 11 74 ) (If (Setq ILIST (Assoc INUM AENT)) (Setq TENT (Cons ILIST TENT)) ) ) (Setq tent (Subst (Cons 73 (item 74 aent)) (Assoc 74 tent) tent ) ) (EntMake (Reverse TENT)) ) ) ) ;----------------------------------------------------- ; Find True last entity ;----------------------------------------------------- (Defun LASTENT (/ E0 EN) (Setq E0 (EntLast)) (While (Setq EN (EntNext E0)) (Setq E0 EN) ) E0 ) ;----------------------------------------------------- ; See if a block is explodable. Return T if it is, ; otherwise return nil ;----------------------------------------------------- (Defun EXPLODABLE (BNAME / B expld) (vl-load-com) (setq BLOCKS (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))) ) (vlax-for B BLOCKS (if (and (= :vlax-false (vla-get-islayout B)) (= (strcase (vla-get-name B)) (strcase BNAME))) (setq expld (= :vlax-true (vla-get-explodable B))) ) ) expld ) ;----------------------------------------------------- ; Burst one entity ;----------------------------------------------------- (Defun BURST-ONE (BNAME / BENT ANAME ENT ATYPE AENT AGAIN ENAME ENT BBLOCK SS-COLOR SS-LAYER SS-LTYPE mirror ss-mirror mlast) (Setq BENT (EntGet BNAME) BLAYER (ITEM 8 BENT) BCOLOR (ITEM 62 BENT) BBLOCK (ITEM 2 BENT) BCOLOR (Cond ((> BCOLOR 0) BCOLOR) ((= BCOLOR 0) "BYBLOCK") ("BYLAYER") ) BLTYPE (Cond ((ITEM 6 BENT)) ("BYLAYER")) ) (Setq ELAST (LASTENT)) (If (and (EXPLODABLE BBLOCK) (= 1 (ITEM 66 BENT))) (Progn (Setq ANAME BNAME) (While (Setq ANAME (EntNext ANAME) AENT (EntGet ANAME) ATYPE (ITEM 0 AENT) AGAIN (= "ATTRIB" ATYPE) ) (bump "Converting attributes") (ATT-TEXT AENT) ) ) ) (Progn (bump "Exploding block") (acet-explode BNAME) ;(command "_.explode" bname) ) (Setq SS-LAYER (SsAdd) SS-COLOR (SsAdd) SS-LTYPE (SsAdd) ENAME ELAST ) (While (Setq ENAME (EntNext ENAME)) (bump "Gathering pieces") (Setq ENT (EntGet ENAME) ETYPE (ITEM 0 ENT) ) (If (= "ATTDEF" ETYPE) (Progn (If (BITSET (ITEM 70 ENT) 2) (ATT-TEXT ENT) ) (EntDel ENAME) ) (Progn (If (= "0" (ITEM 8 ENT)) (SsAdd ENAME SS-LAYER) ) (If (= 0 (ITEM 62 ENT)) (SsAdd ENAME SS-COLOR) ) (If (= "BYBLOCK" (ITEM 6 ENT)) (SsAdd ENAME SS-LTYPE) ) ) ) ) (If (> (SsLength SS-LAYER) 0) (Progn (bump "Fixing layers") (Command "_.chprop" SS-LAYER "" "_LA" BLAYER "" ) ) ) (If (> (SsLength SS-COLOR) 0) (Progn (bump "Fixing colors") (Command "_.chprop" SS-COLOR "" "_C" BCOLOR "" ) ) ) (If (> (SsLength SS-LTYPE) 0) (Progn (bump "Fixing linetypes") (Command "_.chprop" SS-LTYPE "" "_LT" BLTYPE "" ) ) ) ) ;----------------------------------------------------- ; BURST MAIN ROUTINE ;----------------------------------------------------- (Defun BURST (/ SS1) (setq PSFLAG (if (= 1 (caar (vports))) 1 0 ) ) (Setq SS1 (SsGet (list (cons 0 "INSERT")(cons 67 PSFLAG)))) (If SS1 (Progn (Setvar "highlight" 0) (terpri) (Repeat (SsLength SS1) (Setq ENAME (SsName SS1 0)) (SsDel ENAME SS1) (BURST-ONE ENAME) ) (princ "\n") ) ) ) ;----------------------------------------------------- ; BURST COMMAND ;----------------------------------------------------- (BURST) (acet-error-restore) );end defun (princ)

Ah oui, effectivement c'est tout bête. Merci, gi²

Peux-tu être plus explicite?

Bonjour à toutes et à tous. Je voudrais savoir si il est possible de travailler avec 2 écrans sous Autocad. Je m'explique, j'ai 2 écrans sur mon poste. J'ouvre 1 fichier Autocad sur l'écran principal, puis j'ai besoin d'ouvrir un 2ème fichier pour voir ou copier qqchose. Le 2ème fichier s'ouvre sur l'écran principal en cachant le 1er fichier, il faut aller dans le menu fenêtre et cocher le 1er fichier pour le voir réapparaitre... :mad: Question: est-ce possible d'afficher simultanément les 2 fichiers chacun sur un écran, fichier 1 sur écran principal et fichier 2 sur écran secondaire. Ceci en ne lançant qu'une seule fois Autocad? Merci de votre aide.

Merci Lillian. Problème résolu. Par contre, je ne peux toujours pas me servir de mon nouveau covadis. J'attend de l'aide de géomedia car il y a un prroblème de chargement.

Bjr. AUNITS à o actuellement, l'aide à ce sujet ne donne rien. Je mets quoi, 1, 2, 3? Covadis a été installé, mais je l'ai desinstallé car il ne fonctionne pas correctement pour l'instant. Geomedia est entrain de plancher pour trouver ce qui ne va pas.

Bonjour à toutes et à tous. Je viens de passer à AutoCad Map 2011 et j'ai un peu de mal pour le mettre à ma main. Je n'arrive pas à l'obliger à afficher les angles en degrès, il s'obstine à ouvrir mes fichiers en mode grades dans les unités de dessin. Quelqu'un a une idée de la variable à changer? :casstet:

Bonjour. Ci-joint curvetext crée par Lee McDonnell. Ce lisp (en anglais) aligne du text et/ou mtext sur les courbes quelles qu'elles soient. :cool: ;;--------------------=={ CurveText.lsp }==-------------------;; ;; ;; ;; Positions Text along a curve object (arc,circle,spline, ;; ;; ellipse,line,lwpolyline,polyline), and rotates text to ;; ;; fit to the curve accordingly. ;; ;; ;; ;; If run in versions > AutoCAD2000, the resultant text will ;; ;; form an anonymous group. ;; ;;------------------------------------------------------------;; ;; Author: Lee McDonnell ;; ;; ;; ;; Copyright © 2010 by Lee McDonnell, All Rights Reserved. ;; ;; Contact: Lee Mac @ TheSwamp.org, CADTutor.net ;; ;; ;; ;;------------------------------------------------------------;; ;; Version: 1.2 ~¤~ 14 June 2010 ;; ;;------------------------------------------------------------;; (defun c:CurveText ( / sel str obj ) ;; © Lee Mac ~ 12.06.10 (vl-load-com) (while (progn (setq sel (LM:SelectionOrText "\nSpecify or Select Text String: " 2)) (cond ( (vl-consp sel) (if (wcmatch (cdr (assoc 0 (entget (car sel)))) "*TEXT,ATTRIB") (not (setq str (cdr (assoc 1 (entget (car sel)))))) (princ "\n** Object Must be Text or Attribute **") ) ) ( (and (eq 'STR (type sel)) (< 0 (strlen sel))) (not (setq str sel)) ) ) ) ) (if (and str (setq obj (LM:SelectifFoo LM:isCurveObject "\nSelect Curve: "))) (LM:CurveText str obj) ) (princ) ) (defun LM:CurveText ( string Curve / *error* spc doc ObjLst gr code data pt cPt ang d der dif ts ) ;; © Lee Mac ~ 12.06.10 (vl-load-com) (defun *error* ( msg ) (and ObjLst (mapcar (function (lambda ( o ) (if (and (not (vlax-erased-p o)) (vlax-write-enabled-p o)) (vla-delete o) ) ) ) ObjLst ) ) (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " msg " **"))) (princ) ) (or *offset* (setq *offset* 0.0)) (or *spacin* (setq *spacin* 1.1)) (setq ts (/ (getvar 'textsize) (if (LM:isAnnotative (getvar 'textstyle)) (cond ( (getvar 'cannoscalevalue) ) ( 1.0 )) 1.0 ) ) ) (setq spc (if (or (eq AcModelSpace (vla-get-ActiveSpace (setq doc (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ) ) (eq :vlax-true (vla-get-MSpace doc)) ) (vla-get-ModelSpace doc) (vla-get-PaperSpace doc) ) ) (setq ObjLst (mapcar '(lambda ( s / o ) (vla-put-Alignment (setq o (vlax-invoke spc 'AddText (chr s) (getvar 'viewctr) ts ) ) acAlignmentMiddleCenter ) o ) (vl-string->list string) ) ) (setq msg (princ "\n-- Position Text, [+/-] Offset, [>] Spacing --")) (while (progn (setq gr (grread 't 15 0) code (car gr) data (cadr gr)) (cond ( (and (= 5 code) (listp data)) (setq cPt (vlax-curve-getClosestPointto Curve (setq pt (trans data 1 0))) ang (angle cPt pt) d (vlax-curve-getDistatPoint Curve cPt) der (angle '(0. 0. 0.) (vlax-curve-getFirstDeriv Curve (vlax-curve-getParamatPoint Curve cPt) ) ) dif (- ang der) ) ( (lambda ( i / p a ) (mapcar (function (lambda ( o ) (if (setq p (vlax-curve-getPointatDist Curve (+ d (* (setq i (1+ i)) *spacin* ts) ) ) ) (progn (vla-put-TextAlignmentPoint o (vlax-3D-point (polar p (+ (setq a (angle '(0. 0. 0.) (vlax-curve-getFirstDeriv Curve (vlax-curve-getParamatPoint Curve p) ) ) ) dif ) (* ts *offset*) ) ) ) (vla-put-rotation o (LM:MakeReadable a)) ) ) ) ) (if (and (< (/ pi 2.) der) (<= der (/ (* 3. pi) 2.))) (reverse ObjLst) ObjLst ) ) ) (- (/ (1+ (strlen string)) 2.)) ) t ) ( (member code '(3 25)) nil ) ( (= 2 code) (cond ( (member data '(13 32)) nil ) ( (member data '(43 61)) (setq *offset* (+ *offset* 0.1)) ) ( (member data '(45 95)) (setq *offset* (- *offset* 0.1)) ) ( (member data '(46 62)) (setq *spacin* (+ *spacin* 0.05)) ) ( (member data '(44 60)) (setq *spacin* (- *spacin* 0.05)) ) ( (princ (strcat "\n** Invalid Keypress **" msg)) ) ) ) ( t ) ) ) ) (if (< 15. (atof (getvar 'acadver))) (vla-AppendItems (vla-Add (vla-get-Groups doc) "*") (LM:ObjectVariant ObjLst) ) ) ) (defun LM:MakeReadable ( a ) ;; © Lee Mac ~ 12.06.10 (cond ( (and (> a (/ pi 2)) (<= a pi)) (- a pi) ) ( (and (> a pi) (<= a (/ (* 3 pi) 2))) (+ a pi) ) ( a ) ) ) (defun LM:isCurveObject ( ent ) ;; © Lee Mac ~ 12.06.10 (not (vl-catch-all-error-p (vl-catch-all-apply (function vlax-curve-getEndParam) (list ent) ) ) ) ) (defun LM:SelectifFoo ( foo str / sel ent ) ;; © Lee Mac ~ 12.06.10 (while (progn (setq sel (entsel str)) (cond ( (vl-consp sel) (if (not (foo (setq ent (car sel)))) (princ "\n** Invalid Object Selected **") ) ) ) ) ) ent ) (defun LM:ObjectVariant ( lst ) ;; © Lee Mac ~ 12.06.10 (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (length lst))) ) lst ) ) ) (defun LM:Itemp ( coll item ) ;; © Lee Mac ~ 12.06.10 (if (not (vl-catch-all-error-p (setq item (vl-catch-all-apply (function vla-item) (list coll item) ) ) ) ) item ) ) (defun LM:isAnnotative ( style / object annotx ) ;; © Lee Mac ~ 12.06.10 (and (setq object (tblobjname "STYLE" style)) (setq annotx (cadr (assoc -3 (entget object '("AcadAnnotative"))))) (= 1 (cdr (assoc 1070 (reverse annotx)))) ) ) (defun LM:SelectionOrText ( str cur ) ;; © Lee Mac ~ 12.06.10 (and str (princ str)) ( (lambda ( result / gr code data ) (while (progn (setq gr (grread t 13 cur) code (car gr) data (cadr gr)) (cond ( (and (= 3 code) (listp data)) (setq result (nentselp data)) nil ) ( (= 2 code) (cond ( (<= 32 data 126) (setq result (strcat result (princ (chr data)))) ) ( (= 13 data) nil ) ( (and (= 8 data) (< 0 (strlen result))) (setq result (substr result 1 (1- (strlen result)))) (princ (vl-list->string '(8 32 8))) ) ( t ) ) ) ( (= 25 code) nil ) ( t ) ) ) ) result ) "" ) ) (princ "\n:: CurveText.lsp © Lee McDonnell 2010 ::") (princ "\n -- Type \"CurveText\" to Invoke -- ") (princ)

Bonjour à toutes et à tous. Bon, j'ai testé Etransmit. Le résultat obtenu est grosso modo comparable à ce qu'on peut faire avec un zippeur. Et ne correspond pas à ce que je voulais :P En conclusion, on ne peut pas lier un pdf avec un dwg comme on peut le faire avec une image par exemple. Dommage !! Si les programmeurs Autodesk nous lisent, ils peuvent noter ce souhait. Cordialement.

Merci pour ta réponse, Florian.

Bonjour à toutes et à tous. Tout d'abord, je vous souhaite une bonne nouvelle année. Voici mon souci: J'avais cru comprendre qu'en attachant un fichier pdf dans un projet via le gestionnaire de références externes (attacher le pdf) que ce fichier pdf était incorporé au projet. En clair, si j'ouvre le projet sur un autre micro sur lequel le pdf attaché n'est pas présent, je veux voir affiché mon pdf. Or cela ne semble pas être le cas.J'ai envoyé par mail un projet et le pdf attaché ne s'affiche pas :casstet: Est-ce normal? Et comment faire pour que cela fonctionne? Merci de votre aide.

Merci lilian pour ta réponse. Je vais tester çà demain car jamais utilisé. :casstet: Bonne soirée.

Bonjour à toutes et à tous. Tout d'abord, je vous souhaite une bonne nouvelle année. Voici mon souci: J'avais cru comprendre qu'en attachant un fichier pdf dans un projet via le gestionnaire de références externes (attacher le pdf) que ce fichier pdf était incorporé au projet. En clair, si j'ouvre le projet sur un autre micro sur lequel le pdf attaché n'est pas présent, je veux voir affiché mon pdf. Or cela ne semble pas être le cas.J'ai envoyé par mail un projet et le pdf attaché ne s'affiche pas :casstet: Est-ce normal? Et comment faire pour que cela fonctionne? Merci de votre aide.