fabcad

effectivement cette commande n'existe pas sur la 14 mais decris ton programme que tu veux creer.

Bonjour CGDESSINE, Question : Combien pèsent les fichiers DWG ? Pourquoi travaillez-vous avec des x-refs ? Fabcad

d'accord avec coolman fabcad

Bonsoir tout le monde! Ce n'est pas la seule façon mais comme je l'ai précisé c'est pour un nombre limité de commandes lisp sinon ça devient lourd à gérer. Mais comme tu vois les variables autocad servent de lien entre les deux programmes. d'ou deux variantes de programmation : 1- Programme LISP --> variables autocad --> Programme VBA 2- Programme VBA --> variables autocad --> Programme LISP je prefère utiliser le VBA pour gérer les cases de dialogue et pour la partie graphique le LISP qui est plus facile pour moi. Pour information allez consulter le site de Dominique Vaquand à l'adresse suivante : http://dominique.vaquand.free.fr/ fabcad

Bonsoir PIPA, Comment utiliser du code lisp dans une routine écrite en VBA ? Tu peux ecrire des lignes de code LISP si tu en a pas beaucoup sous la forme suivante : Option Explicit Public Sub Opendialog() Dim fileName As String ThisDrawing.SendCommand "(setvar " & """users1""" & "(getfiled " & """Select a DWG File""" & """C:/""" & """dwg""" & "8)) " fileName = ThisDrawing.GetVariable("users1") MsgBox "Vous avez selectionnez le fichier " & fileName & "!!!", , "File Message" End Sub ou getfiled et setvar sont des fonctions autolisp autre exemple : ThisDrawing.SendCommand "(setq def-list (map_pltdeflist))" & vbCr ThisDrawing.SendCommand "(setq long-list (length def-list))" & vbCr ThisDrawing.SendCommand "(setvar " & """USERI1""" & "long-list)" & vbCr ThisDrawing.SendCommand "(setq i 0)" & vbCr ThisDrawing.SendCommand "(setq chn " & """l""" & ")" & vbCr ThisDrawing.SendCommand "(while (< i long-list) (setq chn (strcat chn " & """;""" & "(nth i def-list))) (setq i (+ 1 i)))" & vbCr ThisDrawing.SendCommand "(setq chn (substr chn 3))" & vbCr ThisDrawing.SendCommand "(setq chn (strcat chn " & """;""" & "))" & vbCr ThisDrawing.SendCommand "(setvar " & """users1""" & " chn)" & vbCr Comment récuperer la valeur d'une varaible écrite en lisp dans le code vba ? Dans ton LISP tu envoie tes données suivant leur type : - USERS1, USERS2, USERS3, USERS4 et USERS5 servent au stockage et à l'extraction des chaînes de caractères de texte. - USERR1, USERR2, USERR3, USERR4 et USERR5 servent au stockage et à l'extraction des nombres réels. - USERI1, USERI2, USERI3, USERI4 et USERI5 servent au stockage et à l'extraction de valeurs entières. Puis tu les récupères dans ton code VBA avec fileName = ThisDrawing.GetVariable("users1") comment placer l'exécution d'une macro derriere un bouton dans une barre de menu ? (command "_vbaload" "c:\\autocad r14\\vba\\mes_fonctions.dvb") (command "_-vbarun" "ma_fonction") voila en espérant répondu a tes questions fabcad

Bonjour a tous, En ce qui concerne l'impression vers un PDF un membre de CADXP avait proposé le gratuitiel PDF Creator (imprimante virtuelle pour imprimer sur des applications windows entre autre AUTOCAD. Je l'avais télécharger a l'époque et cela fonctionne très bien avec AutoCAD. Fabcad

Bonjour PIPA, Pour ma part j'utilise un lisp qui utilise la fonction GETFILED et j'envoie le nom du fichier dans une variable USERS(1-5) d'autocad et je le récupère en VBA. Tu peux aussi intégrer du LISP dans VBA, pas un programme lourd mais juste les deux ou trois lignes nécessaires pour l'exemple ci-dessus. fabcad

Bonjour bonux, Cette routine existe déjà en commande autocad, elle a pour nom ALIGN qui te permet de deplacer, faire une rotation et si tu dis oui au dernier message de l'invité Commande de mettre a l'échelle. Fabcad

Bonjour a tous, J'aimerais savoir si sur un Système bi-écran les fenetres textes et graphiques sont indépendantes de la fenetre de l'application, afin de déplacer la fenetre graphique sur un ecran et le reste sur l'autre écran. Merci d'avance fabcad

Azerty Cherche sur les forums l'explication sur le style invisible qui te permet de faire ce genre de choses sans inserer un wipeout qui est en fait une image vide. un solide 2d ou une hachure de type solide avec ce style invisible fait beaucoup de choses pour masquer des objets. cette procédure évite de couper des objets dans une zone. Avec les tables de styles nommés STB, tu crées un style invisible avec la valeur zéro pour le champ PROJECTION dans la table de styles, en fait le traceur ne projette pas d'encre mais la forme géométrique est réalisée. Après dans AutoCAD tu crées une hachure de type solide ou tu peux créer un OBJET solide il faut juste associer à ces objets ce style INVISIBLE et de le prévoir dans tes tables qui sont associées à tes présentations papier, de plus il faut utiliser la fonction d'ordre d'affichage pour que la hachure soit sur les objets à masquer. Ce style est aussi utilisable avec une police de caractères exemple arial black ou on ecrit en blanc sur un fond quelconque sauf blanc evidemment. Cette astuce me permet d'ecrire un texte "D 27" sur une hachure solide rouge pour representer une départementale. Frequence d'utilisation : souvent. fabcad

Le probleme n'est pas de convertir du svg en dxf ni en dwg Lisez mon message export en svg pour creer des cartes interactives pour de la consultation en utilisant une page html ainsi qu'un programme Javascript pour la liaison entre le page html et le fichier vectoriel SVG. exemples d'applications du format SVG : http://www.carto.net/papers/svg/samples/ merci fabcad

Bonjour a tous. AutoCAD 2005 ou Autodesk map 3d 2005 peuvent-ils exporter au format SVG. NB : Open Office et Geoconcept peuvent le faire !!! Fabcad

1/ quelles sont les différences entre un Covadis et un AutoCAD MAP ? Covadis est un applicatif métier AutoCAD MAP avec l'éditeur 2D et 3D d'AutoCAD rend pas mal de services SIG. 2/ quel SIG est le plus utilisé dans les mairies en France ? Cela dépend des domaines de compétences des mairies ou des inter-com. : exemple sur la Region Rennaise Ville de Rennes : Ascodes (?) et Arc INFO d'ESRI Rennes Métropole : Arc View d'ESRI Ville de Chartres de Bretagne : AutoDESK MAP 3/ quelle base de données est la plus utilisée pour le stockage des données géographiques? (Oracle je suppose, mais les autres?) pas de réponse 4/ existe-t-il un site qui expliquerait ce qu'est un SIG et qui comparerait les différentes solutions logicielles existantes? va voir ce site : http://sigfrance.free.fr/index.php Il y je pense deux classes SIG : 1- Les SIG Bureautiques Ce sont des logiciels ou la donnée doit correctement formatée avant une utilisation. Arc View, Géoconcept ect... 2- Les SIG Professionnels Ces types de logiciel sont moins conviviaux mais efficaces dans l'edition des objets. Autodesk MAP, Microstation et sa composante SIG ect... AutoCAD Map 3D 2005 est-il dispo en français? AutoCAD Map 3D 2005 est disponible mais prend du retard dans les livraisons. fabcad

bonjour bonuscad tiens voila un lisp que j'utilise souvent : a enregistrer sous ID-TXT.LSP tu charges avec glisser-deposer et la lances en tapant id-txt bonne utilisation fabcad ; ID-TXT.LSP ;--------------------------------------------------------------- ; MODIFIE LES PROPRIETES D'UN OU PLUSIEURS TEXTES ; A PARTIR D'UN TEXTE. ;--------------------------------------------------------------- ; Creee le 13.02.1996 ; Modifiee le 19.02.1999 ; Modifiee le 12.06.1999 justification avec des MTEXT ou des TEXT ;;;-------------------------------------------------------------------------------- (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-chaine (js / c1 i chn nbr er chx2) (setq cnt2 T) (while cnt2 (initget "Global Element") (setq chx2 (getkword "\n Quel type de travail [Global/Element] ")) (cond ((= chx2 "Global") (progn (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq chn (cdr (assoc 1 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 1 chn) (assoc 1 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin 1er while );fin progn );fin si chx2 est egal à Global ((= chx2 "Element") (progn (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (redraw c1 3) (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er (setq chn (cdr (assoc 1 (entget (car er))))) (setq ent (entget c1)) (setq ent (subst (cons 1 chn) (assoc 1 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin 1er while );fin progn );fin si chx2 est egal à Element (T (setq cnt2 nil)) );fin cond );fin while cnt2 (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (defun id-ang (js / c1 i ang nbr er chx2) (setq cnt2 T) (while cnt2 (initget "Global Element") (setq chx2 (getkword "\n Quel type de travail [Global/Element] ")) (cond ((= chx2 "Global") (progn (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq ang (cdr (assoc 50 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 50 ang) (assoc 50 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin 1er while );fin progn );fin si chx2 est egal à Global ((= chx2 "Element") (progn (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (redraw c1 3) (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil));fin select er (setq ang (cdr (assoc 50 (entget (car er))))) (setq ent (entget c1)) (setq ent (subst (cons 50 ang) (assoc 50 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin 1er while );fin progn );fin si chx2 est egal à Element (T (setq cnt2 nil)) );fin cond );fin while cnt2 (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (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) ) ;;;-------------------------------------------------------------------------------- (defun id-ht (js / c1 i htr nbr er) (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil) );fin 1er while (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq htr (cdr (assoc 40 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 40 htr) (assoc 40 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- ; ----------------------------------------------------------------- (defun id-incli (js / c1 i inc nbr er) (while (= (setq er (nentsel "\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)))) "MTEXT") (progn (setq inc (cdr (assoc 51 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 51 inc) (assoc 51 ent) ent)) (entmod ent) );fin progn (prompt "\n Objet de type MTEXT Impossible de le modifier !!!") );fin if (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (defun id-style (js / c1 i sty htr nbr er) (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil) );fin 1er while (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq sty (cdr (assoc 7 (entget (car er))))) (setq htr (cdr (assoc 40 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 7 sty) (assoc 7 ent) ent)) (setq ent (subst (cons 40 htr) (assoc 40 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (defun id-facteur (js / c1 i fact nbr er) (while (= (setq er (nentsel "\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)))) "MTEXT") (progn (setq fact (cdr (assoc 41 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 41 fact) (assoc 41 ent) ent)) (entmod ent) );fin progn (prompt "\n Objet de type MTEXT Impossible de le modifier !!!") );fin if (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (defun id-Plan (js / c1 i pla nbr er) (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil) );fin 1er while (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq pla (cdr (assoc 8 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 8 pla) (assoc 8 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (defun id-sp (js / c1 i sty htr pla nbr er) (while (= (setq er (nentsel "\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)))) "MTEXT") (progn (setq sty (cdr (assoc 7 (entget (car er))))) (setq pla (cdr (assoc 8 (entget (car er))))) (setq htr (cdr (assoc 40 (entget (car er))))) (setq just (cdr (assoc 72 (entget (car er))))) (setq just2 (cdr (assoc 73 (entget (car er))))) (setq c1 (ssname js i)) (setq pti (cdr (assoc 10 (entget c1)))) (setq ent (entget c1)) (setq ent (subst (cons 8 pla) (assoc 8 ent) ent)) (setq ent (subst (cons 7 sty) (assoc 7 ent) ent)) (setq ent (subst (cons 40 htr) (assoc 40 ent) ent)) (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 (prompt "\n Objet de type MTEXT Impossible de le modifier !!!") );fin if (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ; ----------------------------------------------------------------- (defun id-tous (js / c1 i sty htr pla nbr er) (while (= (setq er (nentsel "\n Choisir le texte de reference : ")) nil) );fin 1er while (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq chn (cdr (assoc 1 (entget (car er))))) (setq sty (cdr (assoc 7 (entget (car er))))) (setq pla (cdr (assoc 8 (entget (car er))))) (setq htr (cdr (assoc 40 (entget (car er))))) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 1 chn) (assoc 1 ent) ent)) (setq ent (subst (cons 8 pla) (assoc 8 ent) ent)) (setq ent (subst (cons 7 sty) (assoc 7 ent) ent)) (setq ent (subst (cons 40 htr) (assoc 40 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ) ;----------------------------------------------------------------- ; FONCTION MAITRE (defun c:id-txt ( / chx cnt) (setvar "cmdecho" 0) (setq js (ssget '( (-4 . " (-4 . " (0 . "TEXT") (-4 . "AND>") (-4 . " (0 . "MTEXT") (-4 . "AND>") (-4 . "OR>") ) );ssget );fin setq js (setq cnt T) (prompt (strcat "\nNombre de textes : " (rtos (setq nbr (sslength js)) 2 0))) (while cnt (initget "Angle Calque Facteur Hauteur Inclinaison Justification STyle S Tous Valeur") (setq chx (getkword "\n Propriete identique [Angle/Calque/Fact/Hauteur/Inclin/Justif/STyle/Sp/Tous/Valeur] ")) (cond ((= chx "Angle") (id-ang js)) ((= chx "Justification") (id-just js)) ((= chx "Valeur") (id-chaine js)) ((= chx "Facteur") (id-facteur js)) ((= chx "Hauteur") (id-ht js)) ((= chx "Inclinaison") (id-incli js)) ((= chx "Calque") (id-plan js)) ((= chx "STyle") (id-style js)) ((= chx "S") (id-sp js)) ((= chx "Tous") (id-tous js)) (T (setq cnt nil)) );fin 1 cond );fin while (prompt "\n---COPYRIGHT 03/97 par Fabcad---") nil (prin1) );fin c:id-txt ;----------------------------------------------------------------- (prompt "\nPour lancer tapez : id-txt ") (prin1)

- Ce format est bien mais quel type d'imprimante utilisez-vous ? car j'ai essayé svgmaker mais le logo de la société apparait... pas beau !!! Auriez-vous une autre imprimante faisant des merveilles ??? - C'est fort quand même car Open Office (gratuit) permet d'exporter dans ce format mais AutoCAD (payant) ne peut exporter !!! Fabcad

dr.loveless ces variables en lisp peuvent être utilisées : (defun c:saveplus () ;recuperation des variables (setq var-accrobj (getvar "osmode")) (setq var-cmddia (getvar "cmddia")) (setq var-cmdecho (getvar "cmdecho")) ;affectation à 0 des variables suivantes (setvar "osmode" 0) (setvar "cmddia" 0) (setvar "cmdecho" 0) (command "_qsave") (command "_jpgout" "R:/0-DAO-Gestion/Croquis de sablage/nomdufichier" "") ;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

dr.loveless voici comment recuperer le nom du dessin en cours (setq fichier-courant (getvar "dwgname")) et pour son chemin (setq rep-cou (getvar "DWGPREFIX")) bonne utilisation fabcad

tu peux mettre : CMDDIA 0 FILEDIA 0 ^C^C_saveas;;C:/AB/\_bmpout;C:/AB/\tout;; FILEDIA 1 CMDDIA 1 SI CMDDIA est égal à 0 alors la case de dialogue traceur est coupée. SI FILEDIA est égal à 0 alors la case de dialogue SAUVEGARDE et de Choix de Fichiers sont coupées. SI ATTDIA est égal à 0 alors la case de dialogue Attributs qui suit l'insertion d'un bloc est coupée fabcad

et dire qu'autodesk map 2004 a cette fonction de creation de centre de gravite d'objets... fabcad

... et comment inseres-t-on une image dans les reponses car j'ai une image sur la question que j'ai posée ? merci fabcad

avec un rectangle ou un buffer sur chaque caractère du texte ???

il serait bien qu'autocad utilise un attribut masque pour les polices de caractères pour ecrire et masquer en même temps sans utiliser les textes masques des express tools car la zone ainsi crée cache beaucoup trop d'objets. fabcad

:casstet: Je m'etonne que la bibliotheque VBA d'Autodesk Map ne possède toujours pas toutes les fonctionnalités du logiciel. En effet il manque : les fonctions de topologies. les fonctions de l'atlas des définitions d'impressions. les fonctions des classes d'objets. Les deux premiers types sont inclus dans le langage de programmation autolisp d'Autodesk Map. Combien faut-il de langages pour dévelloper une application ??????? Fabcad

Sur Autodesk france les liens sur autodesk map 3d 2005 sont faits mais les pages ne sont pas à jour exemple les fonctions ont le titre mais pas le contenu Grrr comme dit Tramber. Je lis l'anglais mais j'arrive a saturation de traduire les lignes ecrites dans la langue de shakespeare... Fabcad

eh bien quel agent secret es-tu et ou travailles-tu M. Lecrabe ? Oui ils sont issus de la société AIGA mais la souscription est partie de map6. Cela fait-il une différence. Fabcad