DenisHen

Bonjour. Pour bien faire, il faut placer les deux fichiers (.lsp et .dcl) dans un répertoire connu d'AutoCAD.

C'est pour cela que je livre tout mes E-transmit avec ce petit PDF, que je partage volontiers... Comme ça, je garde mes Xrefs...

C'est possible ça ? J'ai bien besoin de ça en ce moment mais je ne sais pas comment faire...

Oulala ! ! ;) Non, là je parlais d'un plan topo... Un truc on ne peut plus simple en 2D... De plus, ce dessinateur ne zoomait pas lors de ses cotations... Ce qui fait que, parfois, il cotait les hachures ! ! ! Un vrai sabotage...

Je confirme... J'y ai même vu des cotations ! ! ! J'ai eus un mal de chien à faire comprendre à ce dessinateur que l'espace papier ne doit comporter (que le cartouche, la légende...). Il m'a même demander de faire un lisp pour créer un carroyage dans l'espace papier... Sachant qu'on travail toujours en LAMBERT (93, CC, 2E...)... J'allais le dire...

Ça y est, j'ai saisi pourquoi tu passe par un bloc. De cette façon, tu modifie le bloc au Rdc et ils se retrouve changé celui de l'étage, ou des étages... C'est ça ? La commande "étirer" avec l'option "capture" te permet de ne sélectionner que les sommets des entités, ainsi, tu peux déplacer un voile de ton mur porteur de 50cm vers la droite, juste avec une fenêtre de capture.

Je viens de regarder ton TEST.DWG. J'ai donc une petite question : connais-tu la commande "étirer" puis, l'option "capture" ? Car je vois là, une solution possible et très rapide... Et pourquoi ne mes-tu pas tes hachures dans ton bloc ? Les hachures devraient suivre...

Moi non-plus, mais il y a forcément eut un changement... Mise à jour (AutoCAD, Windows, Excel...), installation d'un autre logiciel... Voir utilisation d'une commande dans AutoCAD qui change une variable qui te pose maintenant problème...

Merci...

Judicieuses remarques... J'opterais plus pour le Rasoir d'Ockham : la solution la plus simple est souvent la meilleur... Personne d'autre ne profite du crime que son supérieur hiérarchique, Quel que soit son niveau... Mais ce n'est que mon avis... Les miens on adopté la politique du "jusque là, tout va bien...".

Salut. Dans Excel, il me semble que l'apostrophe sert à considérer la cellule comme un texte et force son alignement à gauche. On transforme (visuellement) un nombre (justifié automatiquement à droite) en un texte (justifié automatiquement à gauche). Mais tu peut aussi nous envoyer une partie de ton tableau, si tu le peut...

C'est claire, mais si il y a des murs porteurs en "H", tu as donc trois blocs ? Et où sont leurs points d'insertion ? Ça me parait vachement compliqué comme méthode, ou bien je n'ai rien compris... Si tu fais tous en polylignes (comme je ferais), tu fais tes deux hachures dans tes calques différents, et, si tu déplaces les sommets des murs de 1 cm de chaque coté (pour passer d'un mur de 18 à 20), tes deux hachures suivront... Non ? Après, chacun a sa méthode de travail... Je ne te contredis aucunement... J'aimerais voir un de tes DWG, juste par curiosité... Ça peut m'être très instructif...

Alors là, je ne vois pas... Tu ne bouges que les sommets de la polyligne qui entoure les hachures ? Pas de décomposition, d'ouverture... Même momentanées ?

Salut. Tes hachures sont-elles "associatives" ?

Le problème est que je fais 50h/semaine et suis pressé comme un citron... De plus, ma direction cherche depuis des années un dessinateur Autocadien / topo / développeur / ... Mais ils ne trouvent pas... Donc, personne pour prendre ma place... Merci, mais je suis encore loin du burnout, enfin je pense, car je suis très suivi de très près par mes médecins, je suis bipolaire, donc, à la moindre alerte, le burnout sera diagnostiqué... ;)

Pour changer le premier nombre de l'incrémentation, il faut taper ça dans AutiCAD : (vlax-ldata-put "DenisH" "NumMenuis" NouveauNuméro) Exemple pour reprendre l'incrémentation à 16 : (vlax-ldata-put "DenisH" "NumMenuis" 16) Oops, je viens de voir qu'il fallait sélectionner plusieurs TEXT/MTEXT et non un par un...

Voilà, je pense avoir terminé... Essaye ça pour voir si ça fonctionne chez toi : ;;;*************************************************************** ;;; Function: insert un bloc avec attributs "Rep-Menuis-V4.dwg" ;;; aprés selection de pbs text or mtext et prend la valeur/index ;;; du text/mtext et la mettre dans l'attribut REP-MENUIS ;;; Développé par DenisHen de CadXP.com pour azzeddine EL HACHIMI ;;;*************************************************************** (defun c:Menuis (/ lay lay-col Txt_Sel elst Pt Ht-txt RO-txt RO CHAMP4) (princ "\nVersion 1.0") ;;;Create Layer and make it current *************************************** (setvar "ATTDIA" 0) (setvar "ATTREQ" 0) (setvar "angbase" 0) (setvar "angdir" 0) (if (= (vlax-ldata-get "DenisH" "NumMenuis" 0) 0) (vlax-ldata-get "DenisH" "NumMenuis" 0) ) ;_ Fin de if (command "-unites" "2" "2" "1" "2" "0,0" "@0,1" "O") (setq lay "SMEC-MENUIS-REP") (if (tblsearch "LAYER" lay) (setvar "CLAYER" lay) (progn (initget (+ 1 2 4)) (setq lay-col (getint (strcat "\nEntrez la couleur du calque '" lay "' :"))) (command "-calque" "e" lay "_color" lay-col "" "EP" "0.8" "" "") ) ;_ Fin de progn ) ;_ Fin de if ;;;*************************************** (setq Txt_Sel (car (entsel "\nSélectionnez le texte :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Sel)))) "*") (setq Val-txt (cdr (assoc 1 elst)) Pt (cdr (assoc 11 elst)) Ht-txt (cdr (assoc 40 elst)) RO (+ (cdr (assoc 50 elst)) (/ pi 2)) CHAMP4 (cdr (assoc 5 elst)) ) ;_ Fin de setq (Command "_insert" "Rep-Menuis-V4" Pt (* Ht-txt 10000) (* Ht-txt 10000) (angtos RO)) (vl-catch-all-apply 'setpropertyvalue (list (entlast) "Num-Menuis" (rtos (vlax-ldata-get "DenisH" "NumMenuis" 0) 2 0))) (vlax-ldata-put "DenisH" "NumMenuis" (+ (vlax-ldata-get "DenisH" "NumMenuis") 1)) (vl-catch-all-apply 'setpropertyvalue (list (entlast) "Rep-Menuis" Val-txt)) (vl-catch-all-apply 'setpropertyvalue (list (entlast) "Champ.4" CHAMP4)) (princ) ) ;_ Fin de defun Tiens nous au courant... ;)

Pas de problème, je suis bien partie comme ça... Je n'ai plus qu'un petit problème d'incrémentation automatique à résoudre...

Un TEXT, ou un MTEXT, n'a pas d'échelle. Il faudra les fixer (X et Y) à 1 Mais je ne vois pas trop comment remplir les attributs d'un bloc pendant son insertion...

Salut. Le mieux est d'utiliser WeTransfer et de choisir, en bas à gauche, de créer un lien au lieu d'utiliser une adresse courriel.

Re. Azzeddine, il nous manque ton bloc...

Oops, je n'avais pas vu ce initget... Key est donc une chaine et non un nombre... Essaie ça : (setvar "USERS1" (strcat "plw" key))

Ça m'inquiète ton truc. Je suis exactement dans le même cas que toi...

Salut. Je n'ai pas vraiment compris ton problème et ton code... Cela dit, il serait judicieux de déclarer tes variables, gros défaut que j'ai aussi de ne pas les déclarer. Remplacer certaines lignes du code, comme ;;; Function: insert un bloc avec attributs "Rep-Menuis-V4.dwg" aprés selection de pbs text or mtext et prend la valeur/index du text/mtext et la mettre dans l'attribut REP-MENUIS ;;; By azzeddine EL HACHIMI ---2017 (defun c:Menuis (/ lay lay-col) ;;;Create Layer and make it current *************************************** (setq lay "SMEC-MENUIS-REP") (if (tblsearch "LAYER" lay) (setvar "CLAYER" lay) (progn (initget (+ 1 2 4)) (setq lay-col (getint (strcat "\nEntrez la couleur du calque '" lay "' :"))) (command "-calque" "e" lay "_color" lay-col "" "EP" "0.8" "" "") ) ;_ Fin de progn ) ;_ Fin de if ;;;*************************************** (setq ss1 nil ss1 (ssget '((0 . "TEXT,MTEXT"))) leng (sslength ss1) nr 0 ) ;_ Fin de setq (while (< nr leng) (setq en (ssname ss1 nr) ent1 (entget en) al-txt (cdr (assoc 1 ent1)) Pt (cdr (assoc 10 ent1)) Ht-txt (cdr (assoc 40 ent1)) RO-txt (cdr (assoc 50 ent1)) RO (* RO-txt (/ 180.00 pi)) REP-MENUIS val-txt NUM-MENUIS (1+ nr) CHAMP.4 (cdr (assoc 5 ent1)) ) ;_ Fin de setq (Command "_insert" "Rep-Menuis-V4" Pt Ht-txt Ht-txt RO NUM-MENUIS REP-MENUIS CHAMP.4) (setq nr (1+ nr)) ) ;_ Fin de while (princ) ) ;_ Fin de defun Je n'ai "retouché" que le début de ton code. Et on aurait aussi aimé avoir ton bloc pour pouvoir faire quelques petits testes... Denis... PS : balise aussi ton code s'il te plait.

Je m’immisce un peu, mais pourquoi ne pas faire ça pour le diamètre au lieu des (cond ? (setvar "USERS1" (strcat "plw" (rtos (itoa (/ Key 100)) 2 0))) Désolé si ce n'est pas réellement exact, mais j'improvise... Je pense qu'il y a de l'idée...