bonuscad

Nenni, je n'en suis pas l'auteur! J'aurais bien voulu :P Je crois que c'est Reini Urban amélioré par des remarques de Kamal Boutora. Kamal confirmera peut être... car je n'ai pas retrouvé de liens (qui sont anciens).

Je ne me sert pas de profil ICC, mais si tu as des profils tu peux les appliquer à tes imprimantes. Dans le gestionnaire windows des imprimantes, tu as l'onglet couleur, ou tu peux mettre le controle en manuel et y associer un profil ICC. Lors de la création du pc3 par le gestionnaire de tracage d'autodesk, si tu passe par l'onglet "Paramètre du périphérique et du document" et que tu passes par "Propriétés personnalisée", tu vas retrouver un onglet "Options" ou tu pourras configurer la couleur. A partir de là, je ne sais pas quelle options seront prioritaire (pc3 ou driver windows). Car on peut choisir (suivant les modèles) dans les pc3 de faire des corrections manuelle de couleur. J'avoue que là ça devient confus, car on peut même avoir des couleurs "PANTONES" suivant les drivers. Honnêtement pour du tracé vectoriel, je ne me suis jamais penché sur la concordance des couleurs. Mais bon si ces infos peuvent te rendre service... Pour des insertions d'images, je me suis servi de PANTONE qui donne des couleurs très contrastés et soutenues (même un peu trop à mon gout). Je trouve le cheminement de configuration des traceur un peu brouillon et opaque, on ne sait plus où on doit agir en priorité pour appliqué des modifs (pc3, ou config windows). Je crois que de nombreux essais t'attendent pour débroussailler le calibrage des couleurs... ;)

Pour faire ceci, les méthodes par sélection ne sont pas les bienvenues. En effet il faut que les entités soit dans la zone affichable pour être effectivement sélectionnés. (ce qui n'est pas forcément le cas avec EXTMIN et EXTMAX) Pour faire ceci j'utiliserais plutôt le code 410. (setq ss (ssget "_x" (list (cons 0 "LINE") (cons 8 "003-TRUSS-WIRE-DUN") (cons 410 "Model") ) ) )

Pourquoi insérer, puis décomposer ? Il y a une syntaxe pour insérer un bloc(dessin) décomposé. Il suffit d'utiliser l'astérisque (*) devant le nom: _.-insert;"*nom_dessin/bloc";_none;*0,0,0;1;0; Par sécurité j'ai utilisé "_none" (aucun) pour éviter que cela s'accroche malencontreusement et *0,0,0 pour faire obligatoirement l'insertion dans le SCG.

Bonjour, Si tu es sûr de pouvoir retrouver le SCU de construction (s'il y en a eu un!), la commande PROPMECA (_MASSPROP) de donnera la boite de délimitation, en soustrayant le Z mini au Z maxi, tu devrais avoir la hauteur de ton cylindre...

Sans avoir essayé, avec la variable "CTAB" ^C^C_.FILEDIA;0;_.-layout;_template;"Présentation_A0_Paysage";"Présentation A2 Paysage";_.'CTAB;"Présentation A2 Paysage";_.'FILEDIA;1;^Z NB: Il vaut mieux mettre des guillemets ("") si tes noms comportent des espaces blancs [Edité le 4/9/2007 par bonuscad]

Tu peux essayer une macro de ce genre: ^C^C_.'attdia;0;_.'users1;\_.'users2;\_.-insert;"NOM-DU-BLOC_3ATT";\1;1;0;$M=$(getvar,users1);$(getvar,users2);$(+,$(getvar,users1),$(getvar,users2));_.'attdia;1;^Z Tu donnes ta valeur1 , ta valeur2 , puis le point d'insertion du bloc. Bien sur dans cette macro le "NOM-DU-BLOC_3ATT" et éventuellement les échelles et rotation sont à adapter à ton besoin.

C'est exactement ce que je propose a travers (entmake), je crée 2 blocs qui sont attribués aux flèches. Donc le style que j'ai proposé est tout à fait modifiable et aurait pu être crée manuellement par le style de cotation.

Si ça peut aider, je me suis fait une procédure pour attacher un ensemble de scan25 IGN en TIFF. (Le but était de me faire un prototype calé est de gérer le chargement/déchargement par click, si ça intéresse quelqu'un j'ai des petits outils...) Elle s'appuie sur le nom du cliché, qui en fait est son géoréférencement. Bon il faudra peut être adapter suivant votre région ainsi que l'unité (disque) ou se trouve les clichés. ((lambda ( / lst_img lg_i ht_i x_ins y_ins) (setq lst_img (vl-directory-files "d:/" "*.tif")) (setq lg_i (getreal "\nLargeur des dalles <10000>?: ")) (if (not lg_i) (setq lg_i 10000.00)) (setq ht_i (getreal "\nHauteur des dalles <7500>?: ")) (if (not ht_i) (setq ht_i 7500.00)) (foreach n lst_img (setq x_ins (- (* (read (substr n 2 3)) lg_i) lg_i) y_ins (- (+ (* (read (substr n 6 3)) ht_i) 1 500 000.00) ht_i) ) (command "_.-image" "_attach" (strcat "d:/" n) (list x_ins y_ins 0.0) "10000.0" "0.0") ) )) ;| Pour le fichier S077_067.tif concernant l'ardéche par exemple 077067 dans le T.A. de l'IGN du SCAN25 me donne pour X_insertion: 760 000 et Y_insertion: 1 995 000 les dalles sont de 10km X 7.5km soit 10 000m et 7 500m j'ai pour ce cliché le numéro de colone 077 et le numero de rangée 067 donc l'identification du coin haut droit (cliché inclu). pour déterminer le coin bas gauche de l'insertion image je fais donc (10000 * 77) - 10000 = 760 000 -> x origine des clichés et (7500 * 67) - 7500 = 495 000 -> y origine des clichés Y de Ref moins Y des clichés (1 995 000 - 495 000) = 1 500 000 Tout ceci je pense exprimé en Lambert II Etendu. |; NB: Le format "ECW" n'est-il pas un format géoréférencer automatiquement? en tout cas le plug-in "ERRMAPPER" faisait cela dans les version précédente d'Autocad, Sous 2006?

Dis moi Christian, tu saisis deux fois les points d'attaches ou tu fais ça avec une macro diesel?

variable "DIMDEC" à 2, mais aussi s'assurer que "DIMZIN" est < à 8, voir l'aide... pour de plus amples renseignements.

Merci, Mais il se peut que cette solution ne convienne pas à la demande, en effet si c'est vraiment un croquis et que les dimensions soient forcées, ben... il faudra éditer les cotes. Alors ta routine reste une solution (d'ailleurs la seconde version fonctionne sous 2005). ;)

J'ai réussi à achever la définition par (entmake) Ceci va créer automatiquement un style de cotation (donc associatif, s'y on veut) Il essaye de faire ce qui est demandé, mais pour voir vraiment le résultat, IL FAUT faire un aperçu de tracé Ce style est défini et courant, il suffit de lancer une commande de cotation. Copier ce qui suit directement en ligne de commande pour essayer. (progn (if (not (tblsearch "STYLE" "cotes-levées")) (entmake '( (0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "cotes-levées") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "simplex.shx") (4 . "") ) ) ) (if (not (tblsearch "BLOCK" "cotes_levées1")) (progn (entmake '((0 . "BLOCK") (8 . "0") (2 . "cotes_levées1") (70 . 2) (4 . "") (8 . "0") (6 . "ByBlock") (370 . -2) (10 0.0 0.0 0.0)) ) (entmake '( (0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 256) (6 . "ByBlock") (370 . -2) (100 . "AcDbPolyline") (90 . 3) (70 . 0) (38 . 0.0) (39 . 0.0) (10 -2.5 0.0) (40 . 0.25) (41 . 0.0) (42 . 0.247582) (10 -0.567325 1.01948) (40 . 0.822061) (41 . 0.0) (42 . 0.117565) (10 0.0 2.5) (40 . 0.0) (41 . 0.0) (42 . 0.117565) (210 0.0 0.0 1.0) ) ) (entmake '((0 . "ENDBLK") (8 . "0") (8 . "0") (6 . "ByBlock") (370 . -2))) ) ) (if (not (tblsearch "BLOCK" "cotes_levées2")) (progn (entmake '((0 . "BLOCK") (8 . "0") (2 . "cotes_levées2") (70 . 2) (4 . "") (8 . "0") (6 . "ByBlock") (370 . -2) (10 0.0 0.0 0.0)) ) (entmake '( (0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 256) (6 . "ByBlock") (370 . -2) (100 . "AcDbPolyline") (90 . 3) (70 . 0) (38 . 0.0) (39 . 0.0) (10 -2.5 0.0) (40 . 0.25) (41 . 0.0) (42 . -0.247582) (10 -0.567325 -1.01948) (40 . 0.822061) (41 . 0.0) (42 . -0.117565) (10 0.0 -2.5) (40 . 0.0) (41 . 0.0) (42 . -0.117565) (210 0.0 0.0 1.0) ) ) (entmake '((0 . "ENDBLK") (8 . "0") (8 . "0") (6 . "ByBlock") (370 . -2))) ) ) (if (not (tblsearch "DIMSTYLE" "cotes-levées")) (entmake '( (0 . "DIMSTYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2 . "cotes-levées") (70 . 0) (3 . "") (4 . "") (5 . "") (6 . "cotes_levées1") (7 . "cotes_levées2") (40 . 1.0) (41 . 2.5) (42 . 0.625) (43 . 0.0) (44 . 1.25) (45 . 0.0) (46 . 0.0) (47 . 0.0) (48 . 0.0) (140 . 2.5) (141 . 2.5) (142 . 0.0) (143 . 0.0393701) (144 . 1.0) (145 . 0.0) (146 . 1.0) (147 . 0.625) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 1) (76 . 1) (77 . 0) (78 . 0) (170 . 0) (171 . 3) (172 . 1) (173 . 1) (174 . 1) (175 . 0) (176 . 255) (177 . 0) (178 . 0) (270 . 2) (271 . 2) (272 . 2) (273 . 2) (274 . 3) (275 . 0) (280 . 0) (281 . 0) (282 . 0) (283 . 0) (284 . 8) (285 . 0) (286 . 0) (287 . 5) (288 . 0) ) ) ) (command "_.-dimstyle" "_restore" "cotes-levées") (setvar "DIMTXSTY" "cotes-levées") (setvar "DIMBLK1" "cotes_levées1") (setvar "DIMBLK2" "cotes_levées2") )

C'est vrai que la logique ne saute pas aux yeux, même en lisant l'aide! J'ai l'impression qu'il considère qu'un bloc standard du dessin comme Il s'agit d'une référence externe non résolue , d'où l'explication qu' Autocad attribue le bit 32 à un bloc standard mais aussi à un bloc contenu dans un xref. C'est ce que j'ai déduit en faisant des test, car je m'étais posé la même question que toi lorsque j'avais planché sur la valeur de ce bit ou j'obtenais aussi (70 . 34) J'ai essayé de lire entre les lignes de l'aide, et c'est ce que j'ai compris, mais je me trompe peut être.... :casstet: (le sens de la traduction de l'aide en Français n'est peut être pas parfaitement exacte) En tout cas, si tu remplace dans ma routine ((eq (logand (cdr (assoc 70 dxf_blk)) 2) 2) par ((eq (logand (cdr (assoc 70 dxf_blk)) 34) 34) tu n'obtiendras que les noms de bloc ayant des attributs ET contenu dans les Xrefs, alors que précédemment tu obtenais TOUT les blocs ayant des attributs. Si quelqu'un à une explication plus compréhensible, elle sera la bien venue :P

Salut (gile) Ton code ne passe pas sous 2005. Ca bloque à ce niveau: De mon coté j'ai essayé avec (entmake) pour créer le style de cotation, mais il me reste quelque problème de validation de certaines options (les blocs flèche personnalisés et le style de texte) qui ne sont pas pris en compte, je suis obligé de revenir dans le style pour les valider manuellement car il sont présent dans les liste de choix. Donc .... je ne propose pas encore.

Tu fais presque la même chose! 34 = bit 32 + bit 2 Cela veut dire que tu t'interesse aux XREF (bit 32) qui auraient des blocs avec attributs(bit 2), mais les blocs propre au dessin seront ignoré si ils ont des attributs. Si tu mets seulement le bit 2, tu incluras TOUT les blocs ayant des attributs (Xref compris).

donc ! En résumé le flag 70 devra être armé du bit 2 pour être un bloc avec attribut donc ((lambda ( / dxf_blk l_blk) (setq dxf_blk (tblnext "BLOCK" T)) (while dxf_blk (cond ; ((not (zerop (boole 1 (cdr (assoc 70 dxf_blk)) 2))) ((eq (logand (cdr (assoc 70 dxf_blk)) 2) 2) (setq l_blk (cons (assoc 2 dxf_blk) l_blk)) ) ) (setq dxf_blk (tblnext "BLOCK")) ) (if l_blk (foreach n l_blk (print (cdr n)))) (prin1) )) devrait suffire. J'ai mis les 2 tests possibles (soit avec boole, soit avec logand)

J'ai essayé avec le fichier .SAT de format ACIS dans Autocad, malheureusement: Peut être un fichier SAT plus récent... J'aurais aussi voulu essayer le format 3DS, mais une erreur de page "woueb" sur ton site. [Edité le 30/8/2007 par bonuscad]

Bonjour, Regarde ce sujet avec les questions qui se sont posées sur le bit 70 de la table des blocs. Y a pas de (mapcar) ni de (apply) mais une fonction récursive, qui permet d'explorer les niveaux d'imbrication éventuels d'un bloc parent. Autrement pour ton problème de code, je pense qu'il faut que tu fasse une condition dans ton (lambda (x) (if (< (cdr (assoc 70 (setq dxf_blk (tblsearch "block" x))) 4) (setq lst_name (cons (cdr (assoc 2 dxf_blk)) lst_name))) Pas testé, juste une piste écrite à la volée

C'est le genre de cas qu'on voudrait traiter sans peine... Mais pour cela il faut bien appréhender le problème. Une solution toute simple et rapide (suivant ce que l'on désire) et de faire un tracé en mode fusion. Tes hachures ont le modèle "SOLID" et font parties d'un bloc? Le texte fait-il partie aussi du bloc? Avec les bonnes infos, je pense qu'un lisp pourrait faire cela Si c'est du texte indépendant, on passe tout les textes (ou avec un filtre) en revu . On récupère sa définition DXF, on l'(entdel), pour la recréer à nouveau avec (entmake), de cette manière, cela sera équivalent à la méthode de Fabcad. Texte créer en dernier! On peut le faire aussi avec les blocs, mais cela est déjà beaucoup moins simple

Tu te rends ICI Tu cliques dessus et il va te proposé "Installer maintenant" Attention si des bloqueurs sont installé (je ne sais plus lesquels), il se peut que tu doives accepter l'installation depuis ce site comme permises. (un bandeau supplémentaire avec un bouton "options" doit apparaitre et il faut passer par lui) Après, c'est comme dit Patrick. Mais bon pour Deezer, ça à l'air d'être trop tard, j'ai voulu m'y rendre à l'instant, pour essayer, et il sont en maintenance. Cependant à cette adresse , ça fonctionne. Il faut bien attendre que le cache se soit rempli avant de lancer "cacheviewer", autrement rien n'apparait. J'ai l'impression aussi que "cacheviewer" n'est pas rafraichi, qu'il faut quitter et le relancer à chaque mise en cache pour avoir le dernier fichier téléchargé. On peut filtrer les fichiers en mettant MP3 en recherche pour les retrouver plus aisément. Il me semble que cette adresse de musique avait été donné par un membre de Cadxp, mais je n'ais pas retrouvé le post ... :(

Dans le même registre... Pour les chanceux qui ont le Neuf comme FAI, ils vont pouvoir télécharger en toute légalité des MP3. Bonne initiative sans vouloir faire de pub a ce FAI Voir l 'annonce

Ce sujet peut être ...

Je pense comme guyc64 La variable "LOGINNAME" doit être la solution, mais par contre l'utilisation de "USERS1" n'est pas la bonne idée car la variable est volatile (elle n'est pas conservé), il faudrai stocker sa valeur dans un fichier (pas convaincu par cette solution, mais réalisable quand même). Je pencherais plutôt pour la création d'un champ (pas dynamique pour éviter une mise à jour à l'ouverture du dessin) utilisant la variable "LOGINAME". Ce champ devrais être mis en place/mis à jour par un réacteur associé aux commandes de sauvegarde ou/et de traçage (FIN, SAUVE , SAUVENOM, WBLOCK , TRACEUR, etc .....) A méditer...

Oui, mais si celui-ci est créer en externe (fichier DWG), il faut qu'il soit dans le même dossier, ou dans un dossier de recherche, pour qu'Autocad puisse le trouver. Tu peux aussi rajouter ces lignes (avant (defun z_dir (p1 p2 / ) ) avec ceci, si le bloc n'existe pas, il sera créé en interne et constituera le bloc par défaut (tu n'auras pas le choix de la forme de représentation) Donc si tu veux une forme précise, il te faut définir (de préférence en interne) ton bloc BLK2END AVANT d'utiliser la routine. (if (not (tblsearch "BLOCK" "BLK2END")) (foreach n '( ( (0 . "BLOCK") (8 . "0") (2 . "BLK2END") (70 . 0) (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (10 0.0 0.0 0.0) ) ( (0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbPolyline") (90 . 2) (70 . 0) (38 . 0.0) (39 . 0.0) (10 0.0 0.0) (40 . 0.0) (41 . 1.5) (42 . 0.0) (10 2.5 0.0) (40 . 1.5) (41 . 1.5) (42 . 0.0) (210 0.0 0.0 1.0) ) ( (0 . "ENDBLK") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) ) ) (entmake n) ) )