Bred

Salut, j'ai rien de tout ça.... désolé. mais je te conseille (si tu le peux) de passer par un technicien HP, qui pour un fotfait de 800 € à peu près te change la courroie, mais te remet en état la machine aussi (il m'a aussi changé les cables de transmission pour le même prix)

Salut, Tracer une ligne du point 0,0,0 à 2,3,0 : (defun c:meuz () (command "_line" '(0 0 0) '(2 3 0) "") (princ) )

Alors, déjà, tu es en autolisp, pas en vlisp comme tu le dis dans ton premier message. C'est difficile de t'aider sans en savoir +.... désolé, peut-être que d'autre peuvent t'aider.

Salut, Je ne comprends pas ta demande.... Si c'est dessiner un circuit, il faut que tu aies des données de référence (tableau excel, txt....) à récupérer. Si c'est tester un circuit, il faut forcément le dessiner et rentrer des objets qui seront reconnu par ton programme pour réagir par rapport à lui (Exemple : un bloc pour un robinet) et créer ton programme en //... .... Que veux tu faire exactement ?

Salut, je ne comprends pas bien ta demande. l'orbite 3D est justement fait pour changer l'angle de vison...

Salut, Attention, je crois que ceci n'est juste que pour ceux qui ont la souscription. Non ?

... ou ne pas coter en EO, mais en EP !

Salut, pas très bien compris .... Tu m'as habitué à avoir un style beaucoup plus compréhensif... mais bon, on va essayer quand même... ... Ah ben non !.... Je croyais que tu étais pierroka ! Tu lui a piqué sa tête ! ... va pas être content ! change d'avatar !!!! - Déjà, pourquoi ne pas rester en 3D ? - commande flatten ?

Salut, Autocad est un logiciel "planche à dessin" à la base. Donc parfait pour les plans de maisons. Il fait en plus de la 3D, et est de plus en plus performant. Donc, je dirais que tu peux tous faire, en te créant une bibliothèque de blocs, en te créant une méthode de travail... Par contre, le plus étant de pouvoir récupérer les plans topo directement en dwg....

Re, Je penses que j'ai mal dû m'expliquer : Une cote est un objet 2D, donc fonctionnant sur un plan, donc sur AutoCAD sur XY. Si ton SCU est tourné de tel manière que le plan XY ne correspond pas au plan de ta cote, tu ne pourras pas la modifier.... Donc, tu es obligé d'avoir le SCU dans le même plan que ta cote.

Salut, 20 minutes entre tes deux messages, laisse le temps aux participants de venir sur le forum... Essaye la commande "DIVISER".

Salut, Je ne comprends pas bien ... Mais essaye peut-être de mettre le SCU suivant l'Objet (option "OB" en ligne de commande de "SCU")

Salut, j'ai pas testé, mais : Si tu changes de SCU, et que tu changes l'axe des Z, l'objet cote étant un objet exclusivement 2D, il devrais être logique de ne pas pouvoir modifier la cote.

BONJOUR, :casstet: Allez, premier message, il y a un "merci", c'est déjà beaucoup mieux que certains..... Donc, pour ton problème, ne serais-tu pas en impression "Caché", ou "masqué" (ou dans la configuration d'impression, ou dans les propriété de ta fenêtre, ou carrément à l'affichage, mais tu le verrais à l'écran.)

Salut, Pour faire des hachures, il te faut une forme 2D fermé (ou pas). Que je sache tu ne peux pas hachurer un solide 3D.

Salut, Vu que le gestionnaire de calque est sous 2009 en palette, et donc permet de garder la main dans AutoCAD lors de son affichage, je pense que tu dois afficher le gestionnaire sur un second écran... que tu n'as pas.... Avant nous connaissions ce problème, mais comme le gestionnaire étais une fenêtre, il bloquais carrément AutoCAD... Essaye déjà de brancher un second écran si tu peux.

donc, en alternative de la réponse de bonuscad, fait ce que je t'ai dit : En espace papier, dans ton gabarits, fait une cote de chaque style. Quand tu purgeras, les styles resterons vu qu'au moins une cote existe déjà dans ton plan.

Ben bientôt lili va nous pondre ses lisp....

Salut, Hey ! Mais c'est bien ce format "Visual" !!! Tu arrives à faire ça comment ?

merci ! :)

Salut, test ça c'est encore du bricolage.... mais ça devrais fonctionner... Enlèves l'espace dans la partie en gras ; imprime tous les cadre/bloc identique d'un page - par BRED - ; bloc ayant un attribut "folio" = numéro de page (defun c:imptfolio (/ ACDOC B BACKGROUNDPLOT C I P1 P2 SEL XMIN YMAX PLT lst-att LST LST-F LST-NB Y) (vl-load-com) (while (not sel) (setq sel (car (entsel "\n Choix du cadre (Bloc) :"))) (if sel (if (not (equal (vla-get-ObjectName (setq b (vlax-ename->vla-object sel))) "AcDbBlockReference")) (setq sel nil))) ) (setq sel (ssget '((0 . "INSERT"))) AcDoc (vla-get-activedocument (vlax-get-acad-object)) BACKGROUNDPLOT (getvar "BACKGROUNDPLOT")) (setvar "BACKGROUNDPLOT" 0) ; Récupère Attrib "FOLIO" (repeat (setq i (sslength sel)) (if (equal (vla-get-effectivename (setq c (vlax-ename->vla-object (ssname sel (setq i (1- i)))))) (vla-get-effectivename b)) (if (setq lst-att (vlax-safearray->list (vlax-variant-value (vla-GetAttributes c)))) (repeat (setq y (length lst-att)) (if (equal (strcase (vla-get-TagString (nth (setq y (1- y)) lst-att))) "FOLIO") (setq lst-F (append (list (cons (atoi (vla-get-TextString (nth y lst-att))) c)) lst-F) lst-nb (append (list (atoi (vla-get-TextString (nth y lst-att)))) lst-nb)) ) ) ) ) ) ; Tri (setq lst-nb (vl-sort lst-nb [surligneur] [b]'< )[/b][/surligneur] i 0) (repeat (length lst-nb) (setq lst (append lst (list (cdr (assoc (nth i lst-nb) lst-F)))) i (1+ i)) ) ; trite liste bloc (setq i 0) (repeat (length lst) (setq c (nth i lst) i (1+ i)) (vla-GetBoundingBox c 'xmin 'ymax) (setq p1 (vlax-make-safearray vlax-vbdouble (cons 0 1)) p2 (vlax-make-safearray vlax-vbdouble (cons 0 1))) (vlax-make-variant (vlax-safearray-fill p1 (list (car (vlax-safearray->list xmin)) (cadr (vlax-safearray->list xmin))))) (vlax-make-variant (vlax-safearray-fill p2 (list (car (vlax-safearray->list ymax)) (cadr (vlax-safearray->list ymax))))) (if (> (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin)))) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac90degrees) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac0degrees)) (setq plt (vla-get-plot AcDoc)) (vla-put-PlotType (vla-get-activelayout AcDoc) acWindow) (vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2) (vla-plottodevice plt (vla-get-configname (vla-get-activelayout AcDoc))) ) (setvar "BACKGROUNDPLOT" BACKGROUNDPLOT) (princ) ) [Edité le 10/4/2009 par Bred]

Re, vlax-create-object "scripting.filesystemobject" :casstet: t'as trouver ça où ? merci.

un à un. je ne vois pas autrement.

Salut, si tu en as que 2, fait le 2 fois. Conseil : utilise la fonction findfile pour tester l'existence du fichier. Si tu en as plus, récupère les noms de fichiers du répertoire avec vl-directory-files qui accepte les "*"

Salut, rajoute dans le lisp (vl-load-com)