pelloux

Bonuscad Ok ça fonctionne bien. Je ne veux pas abuser de ton temps. Sais tu comment je peux éviter d'avoir à ajouter le champ rotation objet par objet pour le faire en une seule fois sur tout le calque ? Si c'est vraiment trop long, dis le moi je comprendrais. Bonne journée et merci encore. PHPELLOUX PS : Effectivement je ne développe pas, j'ai acheté un bouquin pour voir comment on fait (en attendant que mon entreprise me paye une formation).

Merci pour ta réponse. Avec les dessinateurs ils me diront toujours qu'ils ont besoin des Express tools et en plus de la sacro sainte commande Align. Pour cette dernière je leur ai fait une procédure (basée sur "échelle" et "déplacement") mais c'est évidemment plus long. Difficile de changer les habitudes !!! @+ PHPELLOUX

Bonuscad J'ai essayé ton lisp avec un fichier dwg. Ca semble fonctionner. J'ai essayé sur un bloc ("référence de bloc" dans les propriétés avec comme angle indiqué = 37) A la suite de la création de l'appli "pelloux2008", j'interroge le bloc : Commande: xdlist Choix de l'objet: Enter application name <*>: * Registered Application Name: pelloux2008 * Code 1002, Starting or ending brace: { * Code 1000, ASCII string: 36.6593 * Code 1040, Real number: 0.6398 * Code 1002, Starting or ending brace: } * Registered Application Name: E-DECHAR-APIC * Code 1002, Starting or ending brace: { * Code 1000, ASCII string: E-DECHAR2TYPE=DECHARGE * Code 1000, ASCII string: E-DECHAR2DIAMETRE=INCONNU * Code 1000, ASCII string: E-DECHAR2CODINSEE=76474 * Code 1000, ASCII string: E-DECHAR2NUMERO=76474-DV-3915 * Code 1002, Starting or ending brace: } Object has 16133 bytes of Xdata space available. Commande: 2 remarques. - Comment faire pour que le champ rotation ne fasse pas l'objet d'une nouvelle appli mais qu'il aille s'ajouter à celle déjà existante dans "E-DECHAR-APIC" ? - Lorsque j'essaie d'attacher un autre bloc avec pelloux 2008, ça ne fonctionne plus ??? Il me dit : commande: _vlide Choisir un bloc: "18.8418" Donnée de rotation à attacher à: pelloux2008 *Sélection non valable* Attend un point ou Dernier Merci. PHPELLOUX

Merci Bonuscad J'essaie ton code dès que possible. @+ PH PELLOUX

Salut Papyrus1985 Le problème c'est que je n'ai aucune idée comment crée ce lisp puisque je ne développe pas. Les xdata sont des données alpha associés à des éléménts géométriques. Dans les Express tools tu peux crée tes xdata et les interroger. @+ PHPELLOUX

Bonjour J'ai des plans de réseaux d'assainissement (fourni par un délégataire) avec des xdata déjà existantes sur mes fichiers dwg. Les dessinateurs de mon entreprise crée des tampons d'assainissement sous forme de blocs qu'ils orientent suivant la direction de la canalisation. Je souhaite récupérer la valeur d'orientation de chaque tampon d'assainissement pour la mettre dans mes xdata. Es-ce que cette valeur d'orientation est récupérable ? Si oui peut-on encore la mettre dans les xdata existantes (nouveau champ) de mes fichiers dwg ? Merci et bonne journée. PHPELLOUX

Salut Rebcao As tu reçu mon questionnaire rempli que je t'ai envoyé par mail ? Quelle est ta réponse ? Merci et @+ PHP

Rebcao J'ai eu l'accord pour faire le test mais je préfère avoir une demande expresse d'un utilisateur. Donc je t'enverrai un questionnaire rempli, dès qu'un dessinateur m'en aura donné un. je te dis cela afin que tu n'attendes pas trop après. Je souhaite faire moi même le test, donc je t'envoie le mien dès que possible. @+ PHPELLOUX

Non Paul-Henri (pas grâve). Je vois et te donne une réponse si la chose est faisable. Pour nous l'essentiel est de ne pas ressortir le lièvre. Le mieux serait que je fasse un test avec un ou 2 dessinateurs un peu pénible de l'équipe. @+ PHPELLOUX

Bonjour Rebacao Dans mon entreprise j'ai eu souvent à demander aux utilisateurs pourquoi ils avaient besoin d'une complète plus que d'une lt quand il me le demandait. Résultat des courses, pour mettre tout le monde d'accord et éviter les injustices, nous avons décidé d'équiper les utilisateurs de lt monopostes et de complète réseau (4 jetons). Ainsi chaque utilisateur a sur son PC une lt monoposte et une complète réseau. Si une commande n'existe pas dans la lt alors il peut ouvrir une complète réseau, le temps d'utiliser la commande dont il a besoin. Il me semble que des fonctions que tu présentes dans ton questionnaire sont présentes dans la lt (tout au moins à partir de la version 2007) : - design center - changer de scu ? - blocs dynamiques - attredef ? - attachement superposition pour les références externes ? Ai je tort ? D'autre part quel est ton barème pour ton questionnaire ? Bonne journée. PHPELLOUX

J'ai pu testé la dernière modification envoyée par Gilles et ça fonctionne bien maintenant chez moi avec AutoCAD Map 2008. C'était plus que quelques lignes qu'il fallait rajouter au code d'origine. Merci à Gilles. Si le lisp fonctionne chez tous les testeurs, je pense que l'on peut clôturer le sujet ? Bonne journée. PHP

Je ne serais donc pas le seul. Je suis contents en tout cas de voir que ça ne vient pas de moi. Es-ce que ça ne vient pas tout simplement des échelles d'annotations crée à partir de la 2008 ??? PHP

On progresse, voici ce que j'ai : Commande: (vl-load-com) Commande: (vlax-dump-object (vlax-ename->vla-object (car (nentsel)))) Choix de l'objet: ; IAcadAttributeReference2: Interface AutoCAD Attribute Reference ; Valeurs de propriétés: ; Alignment = 0 ; Application (RO) = # ; Backward = 0 ; Constant (RO) = 0 ; Document (RO) = # ; FieldLength = 0 ; Handle (RO) = "92" ; HasExtensionDictionary (RO) = 0 ; Height = 1.25 ; Hyperlinks (RO) = # ; InsertionPoint = (511662.0 1.18872e+006 0.0) ; Invisible = 0 ; Layer = "TEXTEP" ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; LockPosition (RO) = 0 ; Material = "ByLayer" ; MTextAttribute = 0 ; MTextAttributeContent = "" ; MTextBoundaryWidth = 0.0 ; MTextDrawingDirection = 5 ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 2130587856 ; ObjectName (RO) = "AcDbAttribute" ; ObliqueAngle = 0.0 ; OwnerID (RO) = 2130583400 ; PlotStyleName = "ByLayer" ; Rotation = 0.0 ; ScaleFactor = 1.0 ; StyleName = "Standard" ; TagString = "ALTITUDERGD" ; TextAlignmentPoint = (0.0 0.0 0.0) ; TextGenerationFlag = 0 ; TextString = "TP ...?..." ; Thickness = 0.0 ; TrueColor = # ; UpsideDown = 0 ; Visible = -1 T Merci PHP

Gile Voici ce que j'ai sur Autocad 2008 : Commande: (vlax-dump-object (vlax-ename->vla-object (car (nentsel)))) Choix de l'objet: ; erreur: no function definition: VLAX-ENAME->VLA-OBJECT Merci. PHP

Bonjour Dans l'éditeur du Visual Lisp, en faisant CRTL+ALT+F9, je n'ai pas eu d'expression surlignée mais mais l'ouverture d'une boite "Infos" avec le message suivant : :ERROR BREAK AutoCAD.Application: Non valable C'est tout. PHP

Ok j'essaie dès que possible, de plus ça m'intéresse de voir comment ça fonctionne. Je te tiens au courant. PHP

Ok mais ça me met toujours un message d'erreur Je viens de rajouter (vl-load-com) comme ceci : (defun c:move_att (/ acdoc space att lst1 lst2 ss2 txt p1 p2) (vl-load-com) (while (setq att (car (nentsel "\nSélectionnez un attribut: "))) (and et cette fois j'ai ça (après avoir sélectionner 3 attributs) : Commande: move_att Sélectionnez un attribut: Sélectionnez un attribut: Sélectionnez un attribut: Sélectionnez un attribut: ; erreur: AutoCAD.Application: Non valable Commande: PHP

Bonjour Gile Je ne veux pas abuser de ton temps mais j'ai essayé ta première amélioration sur Autocad 2008 et il me donne dans la 1ère modification un message d'erreur après : Commande: move-att Choix des objets: 1 trouvé(s) Choix des objets: ; erreur: AutoCAD.Application: Non valable Commande: ... et dans le 2ième un nouveau message d'erreur : - Commande: move_att Sélectionnez un attribut: ; erreur: no function definition: VLAX-ENAME->VLA-OBJECT Commande: Merci Paul-Henri PELLOUX

Bonjour J'utilise le lisp de Gile "move-att.lsp" qui me sert à bouger les attributs de blocs. Toutefois je souhaiterais pouvoir visualiser les attributs au moment où je les déplace (ex : attributs en pointillés). L'objectif est d'être plus précis dans entre le point de départ et le point d'arrivée du déplacement des attributs. Quelqu'un connaît les quelques lignes à rajouter dans le code ci dessous pour arriver à ce résulat : Merci. Paul-Henri PELLOUX (defun c:move-att (/ ss p1 p2 dep) (vl-load-com) (if (and (setq ss (ssget '((0 . "INSERT") (66 . 1)))) (setq p1 (getpoint "\nSpécifiez le point de base: ")) (setq p2 (getpoint p1 "Spécifiez le deuxième point: ")) ) (progn (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-StartUndoMark acdoc) (vlax-for ref (vla-get-ActiveSelectionSet acdoc) (if (setq att (vlax-invoke ref 'getAttributes)) (foreach a att (vla-move a (vlax-3d-point p1) (vlax-3d-point p2)) ) ) ) (vla-EndUndoMark acdoc) ) ) (princ) )

Merci c'est ce que je cherchais. La prochaine fois je regarderais avec plus d'attention les lisp de Gile sur le forum. Bonne journée. Paul-Henri PELLOUX

Bonjour J'ai plusieurs centaines de blocs avec une vingtaine d'attributs pour chacun d'eux (infos attributaires concernant des tampons d'assainissement). Pour chaque bloc, les attributs apparaissent les uns au dessus des autres. Je souhaite déplacer ces attributs manuellement. Actuellement, pour déplacer les attributs il faut préalablement appuyer sur la touche « maj » et cliquer sur chacune des poignées des attributs. Je souhaite gagner du temps, en sélectionnant toutes les poignées d'attributs que je désire, en ne sélectionnant que la 1ère et la dernière poignées et seulement ces 2 la(on part du principe qu'entre la 1ère et la 2ième poignée toutes les poignées doivent être sélectionnées). Je pense que pour y arriver seul un développement en lisp (ou autre langage) est possible. Es-ce que quelqu'un a développé cela ou pourrait me mettre sur la piste moi qui débute en développement ? Merci d'avance. Paul-Henri PELLOUX

Je n'ai pas testé la fonction d'export d'Autocad Map pour générer du shp. Mais attention (aux dernières nouvelles) tu auras autant de shp que tu as de calques sur Autocad Map. Si ton fichier Autocad à 220 calques alors tu auras 220 fichiers shp. Désolé c'est comme ça que fonctionne Arc Gis avec les fichiers shp. Donc je te conseille de résonner à partir d'ArcGis et non à partir d'Autocad Map et d'envoyer à ton prestataire le patch que je t'ai indiqué car il pourra créer une Géodatabase sour ArcGis avec les 220 classes d'entités à partir de ton fichier Autocad d'origine. Il n'aura donc qu'à gérer qu'une Géodatabase sur ArcGis. Bonne journée. PHPELLOUX

Bonjour As tu Autocad ou Autocad lt ? si tu as un Autocad lt il y a aucune chance de pouvoir utiliser cet outil puisqu'il s'agit d'un Express tool. Tape "burst" dans la fenêtre de commande pour t'en assurer. Bonne soirée. PHPELLOUX

Même si je fais un peu de hors sujet (forum autocad 2007) mais pas complétement puisque l'on parle de fichier shp et que ESRI est l'éditeur des outils permettant de lire du shp. Bref j'ai vu que sur le site ESRI il est possible de récupérer un patch permettant sous Arc Gis, de convertir un fichier DXF en éclatant les couches. Possible sur Arc Gis 9.1 et 9.2 (et il me semble qu'Arc View le fait aussi mais à vérifier sur le site d'ESRI). Donc si ton prestataire à ARC GIS il pourra éclater le dxf et retrouver toutes les couches du fichier dxf d'origine. Adresse ou récupérer le patch : http://support.esrifrance.fr/index.asp?page=/outilsscripts/arcgis/arccatalog/geodatabase/eclateurdxf_v9/eclateurdxfv9.html A tester (chez nous ça fonctionne avec Arc Gis 9.2 en faisant un seul essai). Bonne journée. PHPELLOUX

Bonjour Sur Arc Gis par exemple (puisque tu fais référence au shp) tu peux ouvrir (toi ou ton prestataire) directement le fichier dwg ou dxf. Ensuite dans le menu "Couche", il te faudra ouvrir la table attributaire de "NOMDEFICHIER Polyligne" et dans la colonne "layer", faire une requête pour chaque calque et l'exporter au format shp. C'est assez long pour 220 calques. Bonne journée PHPELLOUX