fabcad

Bonjour à tous, Merci Bryce de ta remarque, j'ai modifié en ajoutant la sous-routine citée mais le résultat est identique. A+

Merci pour vos retours, J'ai mis en pièce-jointe la routine ainsi qu'une copie d'écran pour illustrer l'après exécution de la routine le solide et le mpolygone reste devant dans les blocs. Je sèche ! Fabrice maj_solide_bloc.lsp

Hello, Ceci peut-il t'arranger Quick Block : http://autocadtips.wordpress.com/ A+

Bonjour à tous, Comment accéder à un objet d'un bloc pour lui signifier un ordre de tracé ou un changement de propriété. Mon objet en question est un Solide 2d unique dans le bloc car lorsque j'importe une présentation par l'ADC sur AutoCAD MAP 2007 les blocs qui sont sur cette mise en page perdent l'ordre de tracé notamment les solides et mpolygones. Merci pour vos réponses. Fabrice

Bonjour Les Sigistes Mapiens, Ayant eu besoin de cette fonctionnalité et à l'aide de bonuscad voici le lien : http://cadxp.com/index.php?/topic/35534-ecarter-textes-confondus-de-facon-dynamique/page__pid__193522#entry193522 A+

Bonsoir, M a g n i f i q u e ! Peaufiner ? je ne sais pas car elle remplit avec brio mon attente. Je vais déjà décortiquer pour voir les grread et voir comment tu as fait. Merci beaucoup, Fabrice.

Cher Bonuscad, J'ai créé une autre illustration pour t'aider. Merci d'avance, Fabrice

Merci bonuscad, La première fonction de placement est impeccable, - il faudrait que la ligne imaginaire entre le centre du cercle imaginaire et les textuels soient la distance dynamique entre le centre et les textuels et comme deuxième option faire tourner les textuels comme les rayons d'une bicyclette (tour de France) depuis ce point centre en conservant leur angle d'origine. Merci par un Homo-(MAP)piens Fabrice

Bonjour, Merci fauxsuisse pour l'information, mais ce sont des étiquettes générées issues de Données d'Objets (xdatas améliorées de MAP) avec des objets mtextes. A+

Bonjour à tous, Ayant eu ce problème, je souhaiterais "écarter" des textes (Textes et Mtextes) qui seraient confondus de façon dynamique illustré dans mon JPEG joint. Merci d'avance, Fabrice.

Merci Fraid, Mais je ne souhaite pas passer par doslib, c'est juste pour savoir si entre du lisp et du vbscript il existe des passerelles pour récupérer les variables. A+

Bonjour à tous, Ayant découvert par l'intermédiaire de doslib la fonction dos_htmldialog qui permet de gérer une "boite de dialogue" html, je me demandais si on pouvait récupérer les valeurs transmises dans une boite de dialogue HTML soit en AutoLISP ou en Vlisp. Merci et bonne journée, Fabrice

Bonjour à tous, Lors des manipulations de fenêtres, gérer une propriété de verrouillage du zoom mais pas du panoramique afin de déplacer le contenu de la fenêtre sans toucher à l'échelle. Surtout dans le cas d'un panoramique avec la molette car un cran ou un double-clic sur cette dernière peuvent modifier l'échelle. Bonne journée, Fabrice

Bonjour Patrick_35, Effectivement, j'aimerai tellement être à votre niveau de programmation sur le langage DCL mais mes connaissance sont sur le DCL sont limitées. Je partage, je pense, depuis le début de cadxp, tous mes routines de programmation ainsi que mes connaissances sur AutoCAD MAP. Je demande juste un peu d'aide car je programme en AutoLISP sur des routines spécifiques avec le langage AutoLISP d'AutoCAD MAP. Merci, Fabrice.

Merci patrick-35, Je vois que j'ai beaucoup de chemin à faire avant d'arriver à votre niveau :-) Merci pour cette solution, il faut que je la lise avec beaucoup d'intérêt. A+

Bonjour Gile, Utilisant tes sous-routines de dialogue, serait-il envisageable de créer la case de dialogue suivante : - Une zone de liste à gauche, deux boutons Ajouter et Enlever au milieu et une zone de liste à droite. J'ai deux ou trois routines qui utiliserait ce format de case de dialogue. Merci encore pour le travail déjà réalisé. Fabrice.

Bonjour, Etant sur une fonction d'écriture de noms d'images sur un ensemble d'images sélectionnées, je souhaiterais récupérer via une sous-routine le point centre d'une image. En "dumpant" et en "entgetant" pas de trace du point "centre" (l'accrobj centre fonctionne sur les images) et, de plus, le point d'origine d'une image rectangulaire est le point bas gauche. J'ai trouvé une méthode mais est-elle la meilleure. Je joins mon fichier pour vérifier. Merci de votre aide, Bonne journée, Fabrice Ecrire-nom-d-images.lsp

La solution de Lecrabe est envisageable aussi en ajoutant lors de l'export les propriétés "AutoCADiennes" tel le calque, la couleur, le type de ligne, largeur de polyligne, nom du bloc, ect. Quand je fais ce genre de manip, je différencie les ponctuels (textuels, blocs, points), les surfaciques (polylignes fermées et Mpolygones) et les linéaires (polylignes non fermée et les lignes) pour rendre l'import plus facile. Après l'import, faire une requête sur un dessin source (le dessin importé) avec comme modification de propriété calque et suivants. Et par le groupe d'enregistrement sauvegarder les modifications dans le dessin source. A+

Bonjour, Étape 1 : créer une annotation Map (blocs avec attributs intelligents) avec comme noms d'Attributs, les noms de champs (colonnes) de ta pseudo-table Excel et dans valeur le champ lui-même. Étape 2 : insérer cette annotation sur chaque objet polyligne fermée connecté à ta source excel. Étape 3 : Créer une table de données d'objets avec comme noms de champs, les noms de champs (colonnes) de ta pseudo-table Excel (en vérifiant la compatibilité des données Entier, Caractère, Point ou Réel) et associer cette table avec les polylignes fermées. Étape 4 : lancer "générer des liens" avec l'option blocs délimités, générer des liens de données d'objets (Cette fonction n'accepte que les polylignes fermées). Pour les blocs, là je sèche. NB : les options textes et textes délimités ne peuvent envoyer qu'une valeur dans un seul champ d'une table de données d'objets. A+

Bonjour à tous, Afin de mettre à jour le bloc nord qui se trouve en espace papier par rapport au scu d'une viewport, j'ai créé cette routine et je souhaiterais l'améliorer par le biais, peut-être, d'un lien (reactor) entre la viewport et le bloc "Nord". Voici ma routine : (defun c:maj_bloc_nord () (vl-load-com) (prompt "\n Cliquez sur la Fenêtre :") (setq ss_viewport (ssget "_+.:E:S" '((0 . "VIEWPORT")))) (setq obj_acad_viewport (ssname ss_viewport 0)) (setq vlaviewport_en_cours (vlax-ename->vla-object obj_acad_viewport)) (setq angle_scu (vla-get-TwistAngle vlaviewport_en_cours)) (prompt "\n Cliquez sur le bloc Nord :") (setq ss_bloc (ssget "_+.:E:S" '((0 . "INSERT")))) (setq obj_acad_bloc (ssname ss_bloc 0)) (setq vlabloc_en_cours (vlax-ename->vla-object obj_acad_bloc)) (vla-put-Rotation vlabloc_en_cours angle_scu) (princ) );fin defun maj_bloc_nord Merci pour vos réponses, Fabcad

Hello à tous, Merci à gi² pour la question et à Olivier pour la réponse, Car cela m'a fait tilt puisque le sujet se trouve sur AutoCADMAP, j'ai testé avec le gestionnaire d'Affichage du Volet Taches : 1- créer le style de texte adéquat avec une police SHX et non TTF (NB j'ai une police arial.shx c'est pas mal). 2- Puis Il faut que les textes soient dans un calque AutoCAD. 3- Sur le gestionnaire d'Affichage du Volet Taches, ajouter le calque AutoCAD des textes (je précise AutoCAD car FDO utilise aussi la notion de calque mais qui est en fait une couche SIG). 4- Sur ce calque AutoCAD dans le gestionnaire d'Affichage du Volet Taches, faire un clic droit et ajouter un style Entité pour le dessus bleu. cette ligne qui s'affiche nommée Style d'entité, vous pouvez la Renommer en "Bleu" 4- Sur ce calque AutoCAD dans gestionnaire d'Affichage du Volet Taches, faire un clic droit et ajouter un style Entité pour le dessous jaune et la Renommer en "Jaune ". 5- Sur ces 2 styles d'entités, faites un clic droit et cliquez sur propriétés, rentrez les paramètres adéquats. Pour respecter l'ordre d'affichage, il faut que le jaune ou blanc soit le plus bas et que le noir ou bleu soit en dessous du calque AutoCAD. Ci-joint une copie d'écran. Bon week-end, Fabcad

Bonsoir, J'ai créé une routine LISP pour faire ce genre de traitement elle se trouve sur cette page : Mon lien Bonne soirée, Fabcad

Bonjour, Voici mon code : ;; Copier une liste de propriétées de l'objet 1 sur l'objet 2 (defun copieProp (obj1 obj2 lst) (foreach prop lst (and (vlax-property-available-p obj1 prop) (vlax-property-available-p obj2 prop) (vlax-put obj2 prop (vlax-get obj1 prop)) ) ) ) ;;;------------------------------------------------------------------------ ;;; Fonction adapter_polyligne.lsp ;;; par Fabrice DEMIEL ;;; le 26-03-2012 ;;;------------------------------------------------------------------------ (defun c:adapter_polyligne (/ js nbr acadobject_en_cours AcDoc Space) (setvar "cmdecho" 0) (vl-load-com) ; Tharwat 14. 06. 2011 (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (setq acadobjet_pline_modele (car (entsel "\n Sélectionnez la polyligne Modèle :"))) (setq vlaobjet_pline_modele (vlax-ename->vla-object acadobjet_pline_modele)) (princ "\nSélectionner les polylignes pour mettre à jour leur géométrie :") (setq js (ssget '((0 . "LWPOLYLINE")))) (if js (progn (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq acadobjet_pline_cible (ssname js i)) (setq vlaobjet_pline_cible (vlax-ename->vla-object acadobjet_pline_cible)) (copieProp vlaobjet_pline_modele vlaobjet_pline_cible '(coordinates closed ConstantWidth) );fin sous-defun copieProp (setq i (+ i 1)) ); fin while );fin progn );fin if js (setq js nil) (prompt "\n---COPYRIGHT 26/03/2012 Par Fabrice DEMIEL---") nil );fin c:adapter_polyligne ;;;------------------------------------------------------------------------ (prompt "\npour lancer Tapez : adapter_polyligne") (princ) Bonne journée, Fabcad

Merci beaucoup, Ça va me rendre la vie plus facile dans ce monde de SIG. Bon week-end, Fabcad

Bonjour Gile, Merci pour ta réponse, entre temps et effectivement c'était ca, vraiment top. Il ne me reste plus qu'une vérification pour la fermeture de la polyligne et là faut que je creuse :-). Voici mon code de mon début de routine : (defun c:adapter_polyligne (/ acadobjet_pline_modele acadobjet_pline_cible vlaobjet_pline_modele vlaobjet_pline_cible) (vl-load-com) (setq acadobjet_pline_modele (car (entsel "\n Sélectionnez la polyligne Modèle :"))) (setq vlaobjet_pline_modele (vlax-ename->vla-object acadobjet_pline_modele)) (setq acadobjet_pline_cible (car (entsel "\n Sélectionnez la polyligne Cible :"))) (setq vlaobjet_pline_cible (vlax-ename->vla-object acadobjet_pline_cible)) (vla-put-coordinates vlaobjet_pline_cible (vla-get-coordinates vlaobjet_pline_modele)) );fin defun