bryce

Bonjour, Par couleur en CTB, ou par calque en STB. ;)

Ben oui, la ligne de commande c'est l'avenir ! :D

Ben non, tu fais un script qui ouvre chaque fichier, synchronise les attributs, enregistre le fichier, puis ouvre le fichier suivant, et ainsi de suite... ;) Avec SAS par exemple, comme le suggère Lili2006. [Edité le 13/6/2011 par bryce]

Bonjour, Tu pourrais faire un script pour ouvrir chaque fichier et synchroniser les attributs.

Voui ! :cool:

Je n'en ai pas sous la main pour tester, mais je n'ai pas souvenir que cette option ait changé depuis la R14 au moins... ;)

Bonsoir, "_-purge _all" fonctionne très bien sur une LT 2011, ton problème doit être ailleurs... ;)

Bonjour, Sur la 2012, ça passe après un contrôle (3 erreurs corrigées)... :casstet:

Bonjour, Tu ne peux pas envoyer un PDF ou un DWF au lieu d'un DWG ? Si tu dois envoyer dans un format AutoCAD, tu peux faire un "enregistrer sous" au format DXF 12 (puis si nécessaire réenregistrer le DXF en DWG). Les blocs dynamiques perdront tous leurs comportements, les attributs resteront des attributs par contre. C'est suffisant je trouve, tout exploser en petits morceaux c'est vraiment pas "cool" comme façon de faire à mon avis... :P

Bonjour, Didier, je suppose que tu as un AutoCAD "full", et l'option en question concerne la commande _DLINE, qui n'existe que sur LT. Cette option n'existe pas sur les multilignes (_MLINE). L'option en anglais est _C : je suppose que c'est pour "Caps", ce qui expliquerait que le robot qui fait les traductions chez Autodesk traduise ça par "Majuscules". :D TErminaison c'est mieux, dommage qu'ils n'aient changé que le libellé de la ligne de commande... :P [Edité le 9/6/2011 par bryce]

Tu peux par exemple envoyer ton fichier en utilisant cette adresse : http://dl.free.fr/ Le site te donnera un lien, qu'il faudra poster ici (copier-coller). ;)

Bonjour, Avec un exemple de fichier, ce serait plus facile... ;)

Bonjour, Tu peux sélectionner une ou plusieurs images, et changer le pourcentage d'estompage dans la palette Propriétés. Si ça ne fonctionne pas, il faudrait préciser le problème, et fournir un fichier en exemple. ;)

Bonjour, Avec l'outil Graver (au lieu d'Extruder), il y a une case à cacher qui permet de suivre la courbure de la face.

Bonjour, "Copier des arêtes" ne fonctionne que sur des solides. ;) Essaie avec la commande INTERFERENCE, ou avec XARETES.

Bonjour, Il y a un outil Texte dans les outils d'esquisse. :casstet:

Bonjour, (defun c:a1 (/ p1 p2 orient dist longueur largeur p3 userecho ent_select ent_pickpt ent_orig off_pt off_angle last_entity last_pt expr off_dist newoff_pt ) (setq p1 (getpoint "\nPoint de Base\n")) (setq orient (getorient p1 "\nIndiquer la direction\n")) (setq dist (addition (getstring "\nIndiquer la distance :"))) (setq p2 (polar p1 orient dist) longueur (getdist p2 "\nLargeur tableau: ") largeur (getdist p2 "\nLongeur tableau: ") p3 (mapcar '+ p2 (list longueur largeur)) ) (command "_rectangle" "_non" p2 "_non" p3) (command "_rotate" "d" "" p2 180) ;;;décalage du cadre (or (member "geomcal.arx" (arx)) (arxload "geomcal")) (setq userecho (getvar "cmdecho")) (setvar "cmdecho" 0) (setq ent_select (entsel "\nSélectionner l'objet à décaler: ") ent_pickpt (cadr ent_select) ent_orig (car ent_select) ) ;_ setq (redraw ent_orig 3) (setq off_pt (getpoint "\nIndiquer la direction : ") off_angle (angle ent_pickpt off_pt) ) ;_ setq (setq last_entity ent_orig last_pt ent_pickpt ) (while (/= (setq expr (getstring "\nIndiquer la distance à décaler: ")) "") (if (setq off_dist (addition expr)) (progn (setq newoff_pt (polar last_pt off_angle 10)) (command "._offset" off_dist last_entity newoff_pt "") ) ;_ progn (alert "Expression non valide") ) ;_ if ) ;_ while (setvar "cmdecho" userecho) (princ) ) ;_ defun ;; addition ;; retourne le résultat d'une addition (ou nil) ;; ;; Argument ;; expr : une chaîne de caractère exprimant une addition (defun addition (expr) ((lambda (l) (if (vl-every 'numberp l) (apply '+ l) ) ) (mapcar 'distof (str2lst expr "+")) ) ) ;; str2lst ;; Transforme un chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) Si quelque chose ne fonctionne pas chez toi, il faudrait préciser quoi exactement. ;)

Je viens de tester, et ça fonctionne chez moi...

Bonjour, Tu peux essayer ça (pas testé) : (setq dist (addition (getstring "\nIndiquer la distance :"))) C'est juste une piste sans aucune validation de la réponse, il faudra sans doute améliorer. ;)

Bonjour, Ça existe en standard, commande GELCALQUE. ;)

Ton programme a l'air de fonctionner, on peut entrer une valeur de décalage sous la forme a+b. Je ne vois pas quel est le problème...

Je ne pense pas que ce soit possible. Il faudrait peut-être utiliser getstring, et traiter ensuite toi-même la réponse.

Bonjour, Tu peux spécifier toi-même un 1er point : (setq orient (getorient pt1 "\nIndiquer la direction\n"))

On peut très bien geler le calque 0, c'est le calque courant qui ne peut pas être gelé. ;)

Attention à ne pas essayer de geler le calque courant. De plus, apparemment il n'aime pas qu'on essaie de mettre la propriété Freeze à False quand elle est déjà à False... :casstet: Le code ci-dessous a l'air de fonctionner : Sub test() Dim i As Integer Dim l As AcadLayer For i = 0 To ThisDrawing.Layers.Count - 1 Set l = ThisDrawing.Layers(i) If l.Name <> "Y-EQP-SI" And l.Name <> ThisDrawing.ActiveLayer.Name Then l.Freeze = True ElseIf l.Freeze = True Then l.Freeze = False End If Next i End Sub