fabcad

Voila un bout de code qui copie une valeur de texte dans un attribut de bloc : Peut-être qu'en changeant le texte en attribut de bloc cela pourrait faire l'affaire. (defun c:att ( / obj-txt chn obj-att att-tag att-val obj-blc blc-val) (setq obj-txt (nentsel "\n Choisir le texte de reference : ")) (setq chn (cdr (assoc 1 (entget (car obj-txt))))) (setq obj-att (nentsel "\n Choisir l'attribut à modifier : ")) (setq att-tag (cdr (assoc 2 (entget (car obj-att))))) (setq att-val (cdr (assoc 1 (entget (car obj-att))))) (alert (strcat "\nEtiquette de l'attribut : " att-tag ".\n" "Valeur de " att-tag " : " att-val ".\n" "Nouvelle valeur de " att-tag " : " chn ".")) (command "_attedit" "oui" "" att-tag att-val (car obj-att) "v" "r" chn "") (entdel (car obj-txt)) )

tiens un extrait d'une fonction lisp id-txt.lsp qui copie les propriétés texte par rapport à un objet texte source (defun justif (nom /) (setq lst-nom (entget nom)) (setq typ-nom (cdr (assoc 0 lst-nom))) (cond ((= typ-nom "MTEXT") (cond ((= 1 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Haut-Gauche !!!\n") (setq res-lst (list (cons 71 1) (cons 72 0) (cons 73 3))) );fin progn );fin si cdr egal à 1 ((= 2 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Haut-Centre !!!\n") (setq res-lst (list (cons 71 2) (cons 72 1) (cons 73 3))) );fin progn );fin si cdr egal à 2 ((= 3 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Haut-Droite !!!\n") (setq res-lst (list (cons 71 3) (cons 72 2) (cons 73 3))) );fin progn );fin si cdr egal à 3 ((= 4 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Milieu-Gauche !!!\n") (setq res-lst (list (cons 71 4) (cons 72 0) (cons 73 2))) );fin progn );fin si cdr egal à 4 ((= 5 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Milieu-Centre !!!\n") (setq res-lst (list (cons 71 5) (cons 72 1) (cons 73 2))) );fin progn );fin si cdr egal à 5 ((= 6 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Milieu-Droite !!!\n") (setq res-lst (list (cons 71 6) (cons 72 2) (cons 73 2))) );fin progn );fin si cdr egal à 6 ((= 7 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Bas-Gauche !!!\n") (setq res-lst (list (cons 71 7) (cons 72 0) (cons 73 0))) );fin progn );fin si cdr egal à 4 ((= 8 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Bas-Centre !!!\n") (setq res-lst (list (cons 71 8) (cons 72 1) (cons 73 0))) );fin progn );fin si cdr egal à 5 ((= 9 (cdr (assoc 71 lst-nom))) (progn (prompt "\n Justification de type Bas-Droite !!!\n") (setq res-lst (list (cons 71 9) (cons 72 2) (cons 73 0))) );fin progn );fin si cdr egal à 6 );fin 2eme cond ); fin obj egal a MTEXT ((= typ-nom "TEXT") (cond ((and (= 0 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Haut-Gauche !!!\n") (setq res-lst (list (cons 71 1) (cons 72 0) (cons 73 3))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Haut-Centre !!!\n") (setq res-lst (list (cons 71 2) (cons 72 1) (cons 73 3))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Haut-Droite !!!\n") (setq res-lst (list (cons 71 3) (cons 72 2) (cons 73 3))) );fin progn );fin ((and (= 0 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Gauche !!!\n") (setq res-lst (list (cons 71 4) (cons 72 0) (cons 73 2))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Centre !!!\n") (setq res-lst (list (cons 71 5) (cons 72 1) (cons 73 2))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Droite !!!\n") (setq res-lst (list (cons 71 6) (cons 72 2) (cons 73 2))) );fin progn );fin ((and (= 0 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Gauche !!!\n") (setq res-lst (list (cons 71 7) (cons 72 0) (cons 73 1))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Centre !!!\n") (setq res-lst (list (cons 71 8) (cons 72 1) (cons 73 1))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Droite !!!\n") (setq res-lst (list (cons 71 9) (cons 72 2) (cons 73 1))) );fin progn );fin ((and (= 0 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Gauche !!!\n") (setq res-lst (list (cons 71 7) (cons 72 0) (cons 73 0))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Centre !!!\n") (setq res-lst (list (cons 71 8) (cons 72 1) (cons 73 0))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Droite !!!\n") (setq res-lst (list (cons 71 9) (cons 72 2) (cons 73 0))) );fin progn );fin ((and (= 4 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Centre !!!\n") (setq res-lst (list (cons 71 5) (cons 72 4) (cons 73 0))) );fin progn );fin );fin cond ); fin obj egal a TEXT );fin 1er cond res-lst );fin defun ; ----------------------------------------------------------------- (defun id-just (js / c1 i just just2 pti nbr er) (while (= (setq er (car (entsel "\n Choisir le texte de reference : "))) nil) );fin 1er while (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (if (= (cdr (assoc 0 (entget (ssname js i)))) "TEXT") (progn (setq lst-er (justif er)) (setq just (cdr (assoc 72 lst-er))) (setq just2 (cdr (assoc 73 lst-er))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq pti (cdr (assoc 10 (entget c1)))) (setq ent (subst (cons 72 just) (assoc 72 ent) ent)) (setq ent (subst (cons 73 just2) (assoc 73 ent) ent)) (setq ent (subst (cons 11 pti) (assoc 11 ent) ent)) (entmod ent) );fin progn (progn (setq lst-er (justif er)) (setq just (cdr (assoc 71 lst-er))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq pti (cdr (assoc 10 (entget c1)))) (setq ent (subst (cons 71 just) (assoc 71 ent) ent)) (setq ent (subst (cons 11 pti) (assoc 11 ent) ent)) (entmod ent) );fin progn );fin if (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ;;;-------------------------------------------------------------------------------- bonne utilisation fabcad

Suite à un export en fichiers shapefile avec AutoDESK MAP vous pouvez les visualiser et les vérifier avec le logiciel gratuit QGIS de Quantum GIS telechargeable sur le site : http://qgis.org/index.php?option=com_frontpage&Itemid=1 Celui-ci peut afficher des images géo-référencées ansi que les données post-gis et les données attributaires (fichier DBF du shapefile). Bonne utilisation...

Essayes directement sur l'affichage de ton traceur pour voir le language et les options enregistrées. AutoCAD utilises du hpgl-2 Sur certains traceurs H...-P... récents il faut rajouter une carte optionnelle pour imprimer ce type de language. [Edité le 14/11/2005 par fabcad]

Belle evolution de la part de l'equipe de développement d'AutoCAD. On parle de communication entre services, celle-ci n'est pas appliquée entre les equipes de développements d'AutoDESK. En effet, il nous est impossible sur AutoDESK MAP d'ajouter ces champs dans les valeurs de Données d'Objets (Valeurs attributaires mais associées a tous les objets graphiques d'AutoCAD) et dans les annotations (blocs avec attributs fonctionnant comme les champs mais plus souple dans leur création). A quand l'apport de toutes les fonctionnalités d'AutoCAD dans les produits verticaux ?

la mise a jour de la date ne se fait que par la fonction mise a jour de champ mais pas avec un regen.

Quel language utilises tu pour imprimer est-ce du hpgl-2 ou 1 autre type ?

y a til une fonction autocad sur ligne de commande qui permet d'affecter une table de style de trace nommés pour creer un script. merci les amis

sur une version demo la reactivation du produit semble obligatoire ??????

Gardez-vous le meme numero d'activation du logiciel I a t'il une procedure autre que le double-clic sur l'exe(cutable) du patch merci

Merci les amis. le tiret bas oui le point non mais j'ai trouvé me semble-t-il une parade lancer _Mpolygon qui doit charger le module des multi-polygones et donc mpedit ou _mpedit peuvent être utilisés. lecrabe : les mpolygones sont bien mais on ne peut pas attribuer un style de tracé au remplissage car si on met "ducalque" à un mpolygone sa hachure malgré sa couleur forcée à 40 par exemple devient quand même noire si le style de tracé du calque est prévu par une couleur noire. rebcao : les mpolygones sont un peu des regions autocad mais beaucoup plus souples à utiliser. dans le cas par exemple d'un fleuve ou se trouve un ilot de terre eh bien ces deux objets sont un seul et unique objet. De plus ce genre d'objet est reconnu lorsque tu exportes en format SHP d'Arcview. merci

Bonjour, en ce qui concerne les patchs quelle est la difference entre une version locked et unlocked merci d'avance.

utilisateur d'AutoDESK MAP je suis amené à utililiser les mpolygones de celui-ci mais lorsque j'ecris la commande ou le lancement de la fonction par la barre d'outils c'est la fonction mpedit des express tools qui demarre et impossible de la décharger par _appload comment faire ? j'ai essayé plusieurs moyens mais sans resultat. merci d'avance

Utilisant souvent l'AutoCAD Design Center pour echanger les calques, les styles etc... Il manque aussi cet utilitaire que j'ai nommé "AutoDESK MAP Design Center" pour echanger les objets non-graphiques d'AutoDESK MAP tel que : 1) Les requetes et les catégories de requetes 2) Les Dessins Associés et les Vues Clés 3) Les Tables de Données d'Objets. 4) Les Bases de Données Externes ainsi que les gabarits de liens. 5) Les Cartes d'affichage. 6) Les définitions d'impressions de cartes (Atlas d'impression) 7) Les Classes d'Objets 8) Les Topologies 9) Les Annotations (blocs spéciaux AutoDESK MAP) cet un manque certain pour les utilisateurs cherchant la productivité. fabcad

Bonjour, En allant plus loin même les données étendues d'AutoCAD ne sont pas poussées au bout de leur utilisation pour associer des valeurs attributaires sur les objets. Cela serait pratique pour ceux qui n'ont qu'AutoCAD au lieu d'AutoDESK MAP. fabcad [Edité le 18/10/2005 par fabcad]

Bonjour, C'est la même chose pour moi avec map 3d 2005 je n'ai pas l'option inclure informations sur le bloc. Bizarre... fabcad

avec autocad oui mais avec l'impression d'un ensemble de cartes d'autodeskmap : non. avec l'hp 1220c c'est une vrai visualisation du résultat de l'impression ou tu peux zoomer. merci quand même je continue à chercher.

Bonjour a tous, J'aimerais savoir s'il existe un programme HP pour visualiser l'apercu traceur avant l'envoi à l'imprimante comme sur une epson 1290 ou hp 1220c pour un traceur hp 750 c+. merci d'avance...

dilack il faut aussi veiller a retourner des valeurs coherentes : entier reel ou chaines de caractere sinon message d'erreur bad argument type !

sur le site de http://www.fleming-group.com/Download/ADOLisp/ADOLisp.html voila et fait nous part de tes decouvertes fabcad

Bonjour Albon, Il est possible à partir du LISP (ou de VISUAL LISP) de travailler sur des bases de données ACCESS avec l'api ADOLISP telechargeable ! Je suis preneur de vos decouvertes avec cette API ! Visual lisp n'est qu'un enrichissement d'AutoLISP la récupération se fait facilement.

Yabchouchou 1 creer un systeme de projection gaus laborde et l'attribuer a un dessin dwg (dessin de projet). 2 Attribuer un systeme de projection a ton dessin topo. 3 associer ton dessin topo a ton dessin de projet autodesk map. 4 creer une requete avec emplacement --> tout en mode dessiner. 5 les objets sources seront dans le nouveau systeme de coordonnées tu pourras alors l'enregistrer dans un autre nom de dessin. ps procédure identique pou RGR 92. fabcad [Edité le 2/9/2005 par fabcad]

Merci GILE, Je ne sais pas comment fonctionne les erreurs mais je vais appronfondir... mais j'ai modifié mon programme avec tes conseils. Bonne utilisation fabcad

revox31, ayant eu le meme souci j'ai develloppe en lisp cette fonction, elle ne fonctionne qu'avec des lwpolylignes de 4 sommets çà reduit le travail à enregistrer sous croix-hangars.lsp et à charger par appload (defun c:croix-hangars (/ m c1 i) ;recuperation des variables (setq var-accrobj (getvar "osmode")) (setq var-cmddia (getvar "cmddia")) (setq var-cmdecho (getvar "cmdecho")) (setvar "osmode" 0) (setvar "cmddia" 0) (setvar "cmdecho" 0) (setq ent (car (entsel "\nChoisir le Hangar : "))) (if (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE") (progn (setq nbr-som (cdr (assoc 90 (entget ent)))) (setq lst-ent (entget ent)) (setq lng-lst (length lst-ent)) (setq i 0) (setq list-a-remplir '()) (setq lst-pts '()) (while (<= i lng-lst) (if (= (car (nth i lst-ent)) 10) (progn (setq p-en-cours (cdr (nth i lst-ent))) (setq lst-pts (append (list p-en-cours) lst-pts)) );fin progn );fin if (setq i (+ i 1)) ); fin while (setq lst-pts (reverse lst-pts)) (cond ((= nbr-som 4) (progn (command "polylign" (nth 0 lst-pts) (nth 2 lst-pts) "") (command "polylign" (nth 1 lst-pts) (last lst-pts) "") ) );fin condition 1 (progn (print "\n Nombre de sommets incompatibles ") ;retour a la normale des variables utilisées (setvar "cmddia" var-cmddia) (setvar "osmode" var-accrobj) (setvar "cmdecho" var-cmdecho) );fin progn );fin 1 cond );fin progn (prompt "\n Cet objet n'est pas une LWPOLYLINE !!! Utilisez CONVERT pour la transformer !!!") );fin if ;retour a la normale des variables utilisées (setvar "cmddia" var-cmddia) (setvar "osmode" var-accrobj) (setvar "cmdecho" var-cmdecho) (princ) );fin defun bonne utilisation fabcad

Il me semble que eds distribue le progiciel de CAO en mécanique Ideas nx...