zebulon_

Bonjour, oui, pas avec Map mais Autodesk Architectural Desktop. Mais ça doit venir de la même cause. Donc, si j'ai bien compris, lorsqu'on définit un wbloc, on peut attribuer une echelle d'insertion au bloc. Si le fichier dans lequel tu insères ce bloc est d'une unité différente, Autodesk Architectural Desktop applique un facteur d'échelle. Alors, quand je crée mes blocs, je fais attention à spécifier "sans unité" dans la case unité d'insertion. D'autre part, je mets les variables ci-dessus (INSUNITS, INSUNITSDEFSOURCE, INSUNITSDEFTARGET) à 0 (sans unité), au cas où... A noter la liste des unités : Y a-t-il quelqu'un ici qui travaille en Angströms ou en Années lumières pour faire ses plans ? :) Amicalement Zebulon_

Bonjour, Peut-être en passant par les propriétés de l'icône Autodesk Architectural Desktop qui se situe sur ton bureau windows. Clique à droite sur l'icône, sélectionne Propriété et regarde dans la case "cible" Tu devrais y trouver quelque chose du genre : "C:\Program Files\Autodesk Architectural Desktop 2004\acad.exe" /t "Architectural Building Model and View (Metric - ctb).dwt" /p "Architectural Desktop" /ld "C:\Program Files\Fichiers communs\Autodesk Shared\AecBase40.dbx" Ce qui suit le /t correspond au "template" donc au gabarit lancé au démarrage. A noter que ce qui suit /p correspond au profil utilisateur par défaut. C'est valable pour la version 2004. Pour la 2007, c'est peut-être pareil ? Amicalement Zebulon_

Bonjour, en installant une imprimante pdf et en imprimant. Avec pdf creator par exemple Amicalement Zebulon_

La réponse en image avant d'avoir cliqué sur aperçu : http://img86.imageshack.us/img86/596/rponselo0.jpg Recevoir un courriel est visible après avoir cliqué sur aperçu : http://img144.imageshack.us/img144/4597/aperuye3.jpg Recevoir un courriel a disparu de la liste Amicalement Zebulon_

J'ai trouvé un site qui m'a l'air intéressant au sujet des API http://www.allapi.net/ Pour ce qui est du chargement d'une bibliothèque, j'orienterai ma recherche vers la commande vlax-import-type-library également. (vlax-import-type-library :tlb-filename "c:/windows/system32/comdlg32.ocx" :methods-prefix "dlg-" :properties-prefix "dlg-" :constants-prefix "dlg-" ) qui me renvoie un True, c'est donc qu'elle a fonctionné. Mais alors, pour savoir comment l'exploiter, c'est une autre question. (Ce n'est pas très documenté, c'est le moins qu'on puisse dire) J'ai aussi lu çà : http://www.pise.info/vb/partie11.htm et çà http://www.aricad.fr/Prestations/developpement/routines/exportattriblocs.htm Amicalement Zebulon_ [Edité le 4/10/2006 par zebulon_]

Bonjour, lorsque je réponds à un sujet, que je coche la case "Recevoir un courriel lors d'un nouveau message sous ce sujet" puis que je demande un aperçu avant de valider le message, je ne reçois jamais d'courriel sur ces sujets. Le fait de demander un aperçu supprime l'activation de la case à cocher "recevoir un courriel ...". Un fois qu'on a cliqué sur le bouton "Aperçu", on n'a de toute façon plus de accès à cette case à cocher. Il faut rééditer la réponse après l'avoir validée pour avoir la possibilité de recocher cette case. Amicalement Zebulon_ PS : je vois que "e m a i l" est transformé automatiquement en courriel, c'est bien pour la défense de la langue française. Mais il faut aller plus loin et bannir ce mot également de la liste des boutons disponibles lors d'une réponse. Et smiley, on peut traduire ça comment ? [Edité le 3/10/2006 par zebulon_]

toto

test

Tu es sûr ? A mon avis, le bloc est inséré avec une echelle uniforme de 1 et un angle de rotation de 1 puis le lisp essaye de lancer une commande 0 qui n'est pas reconnue. Essaye de faire (command "_.insert" "*MonBloc" ptab 10 10 0) tu verras mieux la rotation de 10, car celle de 1 peut passer inapperçue Je persiste donc a dire que la syntaxe est (command "_.insert" "*MonBloc" ptab FACECH ANGLEROT ) Amicalement Zebulon_ [Edité le 3/10/2006 par zebulon_]

Bonjour, L'autre jour, Tramber m'a fait de la pub pour ce site bubble ça peut peut être répondre à ta demande Amicalement Zebulon_ [Edité le 3/10/2006 par zebulon_]

Au sujet du bloc inséré et décomposé tout de suite, Bred suggère la syntaxe suivante Un bloc décomposé directement à l'insertion ne peut avoir qu'une echelle uniforme, donc la commande _insert ne demande pas de facteur d'échelle en Y, mais uniquement en X Essaye la syntaxe (command "_.insert" "*MonBloc" ptab 1 0) Amicalement Zebulon_

Bonjour, ne serait-il pas plus simple de faire dessiner une polyligne par le lisp plutôt que d'insérer un bloc ? ... du genre : (defun c:ancfer () (setq PT1 (getpoint "\n1er Point : ")) (setq PT2 (getpoint PT1 "\2ème Point : ")) (setq PHIEXT 0.030) ; diamètre extérieur d'un HA25 par exemple (setq PHIN 0.025) ; diamètre nominal d'un HA 25 (setq RM (/ 0.250 2)) ; rayon du mandrin de cintrage (setq PT1G (trans PT1 1 0)) ; conservation des coordonnées en scu général (setq PT2G (trans PT2 1 0)) (setq OLDOS (getvar "OSMODE")) (setvar "OSMODE" 0) ;supprimer accroche aux objets (command "_ucs" "_3p" PT1 PT2 "") ; dans le scu aligné avec les 2 points (setq PT1 (trans PT1G 0 1)) ; coordonnées dans le scu local (setq PT2 (trans PT2G 0 1)) (setq PT1 (polar PT1 (/ PI 2) (* 0.5 PHIEXT))) ; décalage d'un demi diamètre (setq PT2 (polar PT2 (/ PI 2) (* 0.5 PHIEXT))) ; calcul des points pour construire la barre (setq PT13 (polar PT1 0.00 (+ RM PHIEXT))) (setq PT14 (polar PT2 PI (+ RM PHIEXT))) (setq R1 (polar PT13 (/ PI 2) (+ RM (* 0.5 PHIEXT)))) (setq R2 (polar PT14 (/ PI 2) (+ RM (* 0.5 PHIEXT)))) (setq PT12 (polar R1 (/ (* 3 PI) 4) (+ RM (* 0.5 PHIEXT)))) (setq PT15 (polar R2 (/ PI 4) (+ RM (* 0.5 PHIEXT)))) (setq PT11 (polar PT12 (/ PI 4) (* 10 PHIN))) (setq PT16 (polar PT15 (/ (* 3 PI) 4) (* 10 PHIN))) (setq OLDWID (getvar "plinewid")) (setvar "plinewid" PHIEXT) ; on fixe l'épaisseur de la polyligne ; dessiner la barre (command "_pline" PT11 PT12 "_a" PT13 "_l" PT14 "_a" PT15 "_l" PT16 "") (command "_ucs" "_p") ; on revient au scu précédent (setvar "OSMODE" OLDOS) ; on remet les accroches objets (setvar "PLINEWID" OLDWID) ; on remet l'épaisseur de polyligne (princ) ) Et on peut imaginer la même chose pour l'ensemble des façonnages standards (cadres, U, barres droites, frettes, étriers ...), le tout agrémenté avec une boîte de dialogue pour permettre à l'utilisateur de choisir le type d'acier (HA ou DX) et son diamètre, par exemple. C'est beaucoup plus souple d'utilisation que les blocs explosés. Amicalement Zebulon_

Bonjour, Il y a un caractère TAB (chr 9) qui se met entre le numéro et le début du texte. En rajoutant un caractère TAB au bon endroit dans le texte du nota long, on peut obtenir quelque chose de ressemblant. (setq LNOTA '( "Ceci est un nota long (insérer ici un caratère TAB) deuxième ligne" "Ceci est un nota super long (insérer ici un caractère TAB ) deuxième lligne" ) ) Amicalement Zebulon_

Il y a aussi laplink dans le genre... et il doit y en avoir qqes autres du même tonneau. Mais bon, ça ne me concerne pas. Mon ordinateur et moi on ne se quitte jamais (ou presque). Amicalement Zebulon_

Bonjour, dans les codes de groupes s'appliquant à toutes les entités, il y a le code DXF 5 qui représente l'identificateur. C'est une chose. il y a aussi la commande (handent handle) qui permet de récupérer le nom d'une entité à partir du handle. (setq e (handent "C5465")) revoie le nom de l'entité corrrespondant à "C5465" et la stocke dans e. Le handle (ou identificateur) reste constant d'une session à l'autre, alors que le nom de l'entité peut changer. Mais il serait peut être plus simple de filtrer directement les blocs "TRANCHEE" avec une commande : (setq ss (ssget "_X" '((0 . "INSERT") (2 . "TRANCHEE")))) sans utiliser les express tools, et d'extraire du jeu de sélection créé avec ce ssget ce qu'il te faut. Mais quel est ton but ? Amicalement Zebulon_

Non, c'est Dialogue Control Language qui Didier traduit par "Dramatique Comme Langage !!!" ici Amicalement Zebulon_

Bonjour, C'est vrai, mais quand on demande les propriétés d'un solide, il n'y a pas grand chose qui apparaît comme info (en tout cas dans ma version 2004) et il faut utiliser la commande PROPMECA (ou _massprop), elle donne pas mal d'info genre volume, centre de gravité, moments et produits d'inertie, rayon de giration etc... (des trucs qu'on sait même pas ce que c'est si on est pas ingénieur). On peut même exporter tout ça vers un fichier. Fonctionne avec des solides 3D mais (gile) vient de répondre également Amicalement Zebulon_ [Edité le 19/9/2006 par zebulon_]

Bonjour, ce n'est plus la même logique que ce que j'ai fait. il n'est pas trop tard pour s'y mettre ;) La réponse se trouve dans : (command "_-mtext" "_non" PDEP "_h" TXTH "_r" "0.00" "_w" "0.00") le "0.00" qui suit le "_w" indique la largeur max (dans mon cas 0.00, et 0.00 = pas de largeur max). Tu peux remplacer "0.00" par la valeur que tu souhaites. ça c'est facile, il suffit de rajouter (command "{\\LNOTA}") juste après le (command _-mtext ...) Le but de cadxp, enfin je crois, n'est pas de t'apporter du poisson mais de t'apprendre à pêcher. Alors bonne pêche Amicalement Zebulon_

Bonjour, j'ai oublié de dire que le lisp produit un mtext, qu'on peut bien sûr facilement modifier en l'éditant. (pour rajouter une ligne par exemple) Amicalement Zebulon_

Bonjour le Décapode qui se mélange les pinces J'étais juste en train de lire cet article. Peut être que ça peut t'aider Amicalement Zebulon_

Bonjour, J'ai toujours plus ou moins les mêmes notas à mettre sur mes plans. Un moment donné, ça m'a fatigué, j'ai donc fait ceci : le fichier "nota.dcl" dcl_settings : default_dcl_settings { audit_level = 0 ;} Nota : dialog { label = "NOTA"; : list_box { label = "Liste de notas"; width = 50; key = lnota; multiple_select = true; } spacer_1; ok_cancel; } le fichier "nota.lsp" (defun do_accept_nota (/ RESULTAT) (setq RESULTAT (get_tile "lnota")) (setq LRES nil) (while (/= RESULTAT "") (setq LRES (cons (read RESULTAT) LRES)) (setq RESULTAT (vl-string-left-trim (strcat " " (itoa (read RESULTAT))) RESULTAT)) ) (setq LRES (reverse LRES)) (if LRES (done_dialog 2) (alert "rien sélectionné") ) ) (defun c:nota (/ OLD_CMD OLDCLAY dcl_id LNOTA what_next LayTxName StyTxName COL TXTH PDEP I LIG LRES) (setq OLD_CMD (getvar "cmdecho")) (setvar "cmdecho" 0) (setq OLDCLAY (getvar "clayer")) (setq dcl_id (load_dialog "nota.dcl")) (if (not (new_dialog "Nota" dcl_id)) (exit)) (setq LNOTA '( "Zébulon_ est beau" "Zébulon_ est grand" "Zébulon_ est fort" "Zébulon_ est un magicien" "Zébulon_ est magnifique" "Zébulon_ est admirable" "Zébulon_ est intelligent" "Zébulon_ est riche" "Zébulon_ est ..." "Zébulon_ est encore ... (les mots me manquent)" "et surtout, Zébulon_ est modeste" ;;; rajouter ici les lignes supplémentaires ;;; sans, si possible, changer ou supprimer les lignes ci-dessus ;;; mais bon, s'il le faut ... ) ) (start_list "lnota") (mapcar 'add_list LNOTA) (end_list) (action_tile "accept" "(do_accept_nota)") (action_tile "cancel" "(done_dialog)") (setq what_next (start_dialog)) (unload_dialog dcl_id) (if (= what_next 2) (progn (setq LayTxName "NOMDUCALQUE") ; nom du calque à modifier si nécessaire (setq StyTxName "NOMDUSTYLE") ; nom du style de texte à modifier si nécessaire (setq COL 1) ; couleur du calque à modifier si nécessaire (setq TXTH "5.00") ; hauteur du texte à modifier si nécessaire ; créer le calque (if (not (tblsearch "LAYER" LayTxName)) (command "_layer" "_M" LayTxName "_CO" COL LayTxName "") (command "_layer" "_T" LayTxName "_ON" LayTxName "_S" LayTxName "") ) ; créer le style de texte (if (not (tblsearch "STYLE" StyTxName)) (command "_style" StyTxName "arial.ttf" TXTH "1.00" "0.00" "N" "N") (command "_textstyle" StyTxName) ) ; placer le texte (setq PDEP (getpoint "\nSpécifier le point de départ : ")) (command "_-mtext" "_non" PDEP "_h" TXTH "_r" "0.00" "_w" "0.00") (setq I 1) (foreach LIG LRES (command (strcat (itoa I) "." (chr 9) (nth LIG LNOTA))) (setq I (+ I 1)) ) (command "") ) ) (setvar "cmdecho" OLD_CMD) (setvar "clayer" OLDCLAY) (princ) ) Il s'agit d'une liste déroulante avec la possibilité de faire des choix multiples (avec shift et ctrl, comme dans l'explorateur Windows) Donc, un seul choix possible par élément de la liste. Les triangles autour des numéros, va falloir que tu y bosses un peu, puisqu'il faut 2 choix possibles par élément de liste, par exemple en utilisant deux colonnes de cases à cocher. Amicalement Zebulon_

ça sent la réclame, ou je me trompe ? Amicalement Zebulon_

Excellent, !jsd, comme Je Suis Désabusé ! parce que va falloir que je fasse encore beaucoup de progrès pour pouvoir pondre un lisp comme ça... Merci Si quelqu'un peut s'occuper de transmettre aux instances supérieures pour enrichir les versions ultérieures (maintenant que j'ai pris une souscription, je voudrais en avoir pour mon argent) Amicalement Zebulon_

Pareil chez moi pour le c:\\, j'arrive toujours sur le "poste de travail" et pas sur directement sur mon disque local c. Pour le sTitle, il est optionnel si on met nil ? (odcl_browsefolder nil "c:\\temp") Avec DOSLIB, ça marche mieux (dos_getdir "test" "c:\\") Dans les express tools, il doit y avoir aussi quelque chose du même tonneau Amicalement Zebulon_

Bonjour, Ma question concerne le choix des objets quand on lance une commande comme copier, effacer, mirroir etc.. Ci-dessous la liste des choix possibles : Fenêtre/Dernier/Capture/BOîte/TOUT/Trajet/SPolygone/CPolygone/Groupe/CLasse/Ajou ter/Oter/Multiple/Précédent/annUler/AUto/uniQue A la place de oter, il faut lire supprimer pour pouvoir retirer, sur ma bonne vieille version 2004. L'option CLasse reste un mystère pour moi, mais ce n'est pas le sujet. En fait, ce qui m'intéresse, c'est d'avoir une option qui me sélectionne tous les objets créés par la dernière commande. Exemple : je fais un mirroir en disant que je veux conserver les objets d'origine. - Si après je fais Copier Précédent, je récupère les objets d'origine et pas la copie. - Si après je fais Copier Dernier, je ne récupère que un objet : le dernier et pas tous les objets créés par la dernière commande. Cela existe peut-être déjà depuis la version 12 et je passerai pour un couillon, mais c'est pas grave. Il n'y a pas de question bête, il n'y a que les réponses qui peuvent l'être. Amicalement Zebulon_