phil_vsd

Salut ! Il me semble que non, Si un texte est au milieu de l'îlot, et s'il croise un autre îlot commme sur le troisième dessin, on a un nombre pair, donc on est Off... Ceci dit, la probabilité d'avoir un texte dans un îlot dont la ligne coupe un autre îlot me semble faible donc ça peut coller. Peut-être en faisant partir 4 lignes (Nord sud est ouest) du texte et si les 4 lignes coupent l'aire on est dedans. Si <4 on est dehors. Si une seule des 4 lignes ne coupe rien on est dehors aussi. Hum, non, le texte peut être dans un "fer à cheval" et le lignes peuvent quand même couper l'aire... Faudrait coupler le coup des 4 lignes et des pairs-impairs... Ca devient un problème de topologie... Je vais chercher un livre et je reviens... [Edité le 17/10/2006 par phil_vsd]

Salut ! Oui tu peux : Voici une réponse de l'ami Micacao dans le post VBA\Addition de champs. Et qui peut le "plus", peut le "moins". (Tristesse de la blague...). A+

J'ai parcouru le lien avec intérêt. Il y a vraiment des superpros de la prog... Je n'en suis pas découragé car mes objectifs sont tout autres mais je suis stupéfait de l'architecture des lisp. Nous avons tous notre domaine de compétence. A suivre...

Yes ! Speed a raison ! Tu importes le fond de plan en Xref et tu le changes si t'as qqchose de nouveau de sa part. Au fait j'ai raté de peu ton anniv Speed : Bon anniversaire !

Yo man ! J'ai trouvé ça dans le livre "programmer autocad", mais soit je suis droitier, sois il y a effectivement des fautes de frappes dans ce bouquin... Presque à chaques routines... L'éditeur lisp me met des messages mais je ne sais y répondre... : (defun c:spirale (/ PT R NC N Centre) (setq PT (Getpoint "\nPoint de départ : ")) (setq R (Getdist PT "\nRayon de départ : ")) (setq NC (Getint "\nNombre de cycles ? : ")) (if (> NC 2) (progn (Setq N 1) (Setq Centre (polar PT Pi R)) (Tracer PT CE N) ))) (Defn Tracer (P1 CE N) (if (/= N NC))) (progn (if (= (rem N 2) 0) (Setq AN 0) (Setq AN pi)) (command "ARC" P1 "c" CE "A" 180) (setq CE P1) (Setq N (1 + N)) (Setq P1 (polar P1 AN (* 2 r))) (setq R (* 2 R)) (Tracer P1 CE N) ))) Amicalement.

Oui, tu prends un point de repère identique sur les deux dessins, tu éteinds tous les calques sauf ton réseaux de chauffage, tu fais "copier avec point de base" dans le menu édition, tu select tout et quand AutoCAD te demande le point de base tu prends le point de repère choisi. Tu bascule sur le nouveau plan de l'archi et tu fais "coller", et tu pick le même point de repère. Gaffe au SCU !

Allez, on va l'autopsier ! Thanks a lot !

Whoua ! La classe ! phil_vsd@yahoo.fr Merci d'avance !

Bon, on va se contenter du Ctrl+Shift+C... A ++

Ho oui moi aussi j'aimerai savoir !

Ho ! Intéressant ça ! T'as des news ? Fait passer !

C'est de l'or en fusion mais je m'y suis brulé les doigts... Ca ne marche pas j'ai l'impression qu'il me manque qqchose. T'as un exemple en VBA tout fini qui traîne qqpart que je puisse l'analyser ? Ou bien tu veux que je rassemble mes morceaux que je te montre ? C'est moins pressé car j'ai une solution de remplacement temporaire... See you !

Game over... Je n'y arrive pas, j'exporte mes attributs dynamiques concoctés par (Gile) dans un tableau et je fais le calcul en bas de colonne. Le résultat est lui-même dynamique... Anyway...

Salut, Hé bien il marche bien ton petit truc ! C'est vrai qu'il faudrait un loop à un endroit. Autant de loops que l'on voudrait de copies, puis, une fois le nombre de loops révolu, on repart sur une nouvelle donne de distance et de direction. C'est pas mal, je vais m'en inspirer pour progresser. J'attend avec impatience la version finale ! Set ObjSelection = ThisDrawing.SelectionSets(StrNomSelection) If Err <> 0 Then Err.Clear Else ObjSelection.Delete End If Set ObjSelection = ThisDrawing.SelectionSets.Add(StrNomSelection) Ce petit bout de code permet d'éviter le message "La sélection existe déjà." ? J'ai trois millions de questions à te poser sur ta routine parce que pour moi c'est du next level... A++

Merci, Cela va m'aider effectivement. Je me suis pas encore aventuré dans les count - 1 mais je vais creuser... Maintenant je vais tester ton "CopyContinu" ! A bientôt !

Je persiste peut-être trop mais si on inclut un point sur le centre de gravité de la région, et que du centre de gravité partent des cercles concentriques (J'ai cru lire ça de ta plume qqpart non ?) jusqu'a ce que le cercle touche, ou englobe une entité texte, alors cette entité texte est "choisie" comme source d'info pour l'extru. Non ?

Je m'incruste... Pour reprendre l'idée de pline_block, pour sélectionner automatiquement les régions, il faudrait insérer un point sur chaques textes (Select all, for each...), puis sur ces points faire partir une pline, si elle croise deux fois la même région c'est que le point est "dedans", alors l'info pour extrusion de la polyligne est celle contenue dans le texte d'où est parti la pline... Facile à dire. Dites moi si je fais un hors-sujet... Phil, qui s'incruste, qui s'incruste assez... :P

Merci, Grâce à cette info je m'aperçois que beaucoup de choses intéressantes se manipulent en lisp. J'ai fait une recherche en *.lsp et *.mnl et j'ai trouvé une mini d'infos. En effet je passais par l'icône pour basculer le current layer, mais je ne savais pas comment l'intégrer dans mon fabuleux lisp de 5 lignes (En comptant le "princ" à la fin...). A très bientôt !

Bonsoir tous ! Je recherche (désespérement...) un lien, un post ou une aide divine qui m'expliquerai comment, en cliquant sur un objet, le calque courant deviendrai celui de l'objet choisi. Du même coup, puisque vous êtes là je vais abuser de votre gentillesse, si vous pouviez m'expliquer comment modifier les accroche objet. La, mea culpa, j'ai pas encore cherché, j'imagine que cela doit se passer vers les Osmode et additionner les valeur... Non ? Merci d'avance !

Ouf, Il m'en a fallut du temps pour comprendre ce qui manquait : [surligneur](defun c:lca ()[/surligneur] (setq lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))) ; Pointer sur la table des calques (vlax-for lay lays ; Boucle pour parcourir la table des calques (if (and (not (eq (vla-get-name lay) (getvar "clayer"))) ; Ne pas prendre en compte le calque actif (not (vl-string-search "|" (vla-get-name lay))) ; Ne pas prendre en compte un calque xref ) (vla-put-freeze lay :vlax-true) ; geler le calque ) ) [surligneur] (princ) )[/surligneur] Pour tout geler sauf les calques "1" et "2" je dois dupliquer la ligne : (not (vl-string-search "|" (vla-get-name lay))) ; Ne pas prendre en compte un calque xref ) et remplacer le "l" qui filtre les Xref par "1" puis encore une ligne avec "2" ou y a-t'il une astuce pour tout mettre sur une seule ligne ? Pour l'instant je me retrouve avec un code qui ressemble à ça : (not (vl-string-search "Murs porteurs" (vla-get-name lay))) ; Ne pas prendre en compte un calque xref (not (vl-string-search "Texte" (vla-get-name lay))) ; Ne pas prendre en compte un calque xref Entre parenthèse, on dérive grave sur du lisp, vous allez me convertir, je vais me faire excommunier moi ! Tant que j'évite le bûcher et que mes calques sont gelés, pour le Paradis on verra une autre fois... [Edité le 14/10/2006 par phil_vsd]

Salut, Le sujet m'intéresse mais je manque d'infos... Les faits sont là : y'a du retard, des têtes tombent, juste à l'intant le Pdg d'Airbus jette l'éponge. Y'a une poignée de sable dans la salle blanche et les contentieux se réveillent : c'est une occasion de régler de vieux comptes et surtout d'éviter d'être poussé sous la guillotine. Le jeu de la patate chaude en fait, le coup de pied dans la fourmillière... D'un côté ceux qui veulent sauver leur place, d'un autre ceux qui profite pour tirer un peu la couverture commerciale dans leur camp : "Vous avez vu, fallait nous écouter !" Je pense que les enjeux sont énormes, risqués et par là donc, des choses nous sont cachées... Prenons ce que les infos nous donnent en sachant que tout est voilé, embué... Bref, pas facile de se faire une opinion. Restent les résultats : Boeing va saisir la balle au rebond et créer des emplois chez eux. Ceci dit, tu as raison, les protos volent en temps et en heure, ce n'est (peut-être) pas un problème de conception mais de mise en série. Renseigne-nous si t'as des news maison !

Bonjour à tous, Notre cabinet d'architecte recherche un dessinateur Autocad pour Marseille 8ème. Temps plein et possibilité de CDI à court terme, poste à pourvoir rapidement. Maîtrise d'Autocad, utilisation habituelles des X-refs, Blocs, champs, attributs. Des connaissances en Photoshop seraient un plus. Notre domaine est centré dans la réalisation de logements collectifs, lotissements, résidences hôtelières. APD, PC, Espaces verts, plans de vente, tableaux de surfaces, insertion dans le site... Débutants acceptés si motivés et rigoureux. Pour plus d'infos mail à phil_vsd@yahoo.fr Merci.

Salut, Je ne sais pas mais j'ai un lisp (pris je ne sais plus où...) pour renommer les blocs. Si cela peut te servir : ;;; Renomme le bloc sélectionné avant ou après le lancement de la commande (defun c:ren (/ AcDoc ss ref name new) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (and (= 1 (getvar "pickfirst")) (setq ss (ssget "_I" '((0 . "INSERT")))) (eq 1 (sslength ss)) ) (sssetfirst nil nil) (progn (sssetfirst nil nil) (while (not (setq ss (ssget "_:S:E" '((0 . "INSERT"))))) ) ) ) (setq ref (vlax-ename->vla-object (ssname ss 0))) (if (vlax-property-available-p ref 'EffectiveName) (setq name (vla-get-EffectiveName ref)) (setq name (vla-get-Name ref)) ) (setq bloc (vla-item (vla-get-blocks AcDoc) name)) (while (not (and (setq new (getstring "\nSpécifiez le nouveau nom : ")) (not (tblsearch "BLOCK" new)) (/= new "") ) ) (if (tblsearch "BLOCK" new) (princ (strcat "\Le bloc \"" new "\" existe déjà.")) ) ) (vla-put-Name bloc new) (princ) ) See you !

Hello, Moi-même débutant en lisp je comprend mieux quand c'est écrit en langage d'hérétique !... Merci (Gile).

Salut ! Et si tu centrais l'espace avec l'attribut du dessus ? Avec le m² just à gauche et le 1.50 just à droite. J'ai le même soucis que toi et c'est vrai que sur des noms courts style "SDB" ou "WC" ça saute un peu aux yeux mais avec des noms plus longs ça passe... Il faut "trajecter" comme diraient nos amis motards. Je ne pense pas que ton boss soit aussi tatillon avec tout le temps que tu lui a fait gagner avec le lisp pline_block ! De plus les attributs du hauts et celui du bas ne seront centrés que s'ils sont justifié en leurs centres et l'un relativement à l'autre. Faut faire un compromis. A suivre...