DenisHen

Bonjour à tous... Pour ce qui est du fichier "chroma.dwg", il ne traite que des solides. Comme je viens de passer du temps pour imprimé mes épaisseurs de lignes, je les ai intégrer dans Chroma. Idéal pour les CTB... Je le joint à ce post... Denis...

@Tramber, je ne connaissais pas CTRL+MAJ+E... Très pratique... Le "!" aussi... @Olivier : sujet très intéressant bien qu'un peu complexe pour moi... Effectivement, le "" à la fin du vlax-ldata-get n'est pas utile... Merci à vous pour votre aide... Denis...

J'entends par là que j'exécute "(CtrlSvGrd)" depuis d'autres macros. Je nommais ça des "appels"... Il y a un autre nom ?

Ben je ne sais pas pourquoi, mais j'ai l'impression qu'il n'y a plus de problème... Et je ne sais pas pourquoi... :huh: En fait, voici mon code complet : ;;;Controle de l'échelle active et des variables pour les afficher dans la barre d'info***************************************** (defun c:DHechctrl (/ Charte Calq ang valeur ech) (setvar "cmdecho" 0) (setq valeur "D=$(rtos,$(getvar,distance)) / S=$(rtos,$(getvar,area))" ) ;_ Fin de setq (setq ang (vlax-ldata-get "DenisH" "AngSCU")) (if (>= ang 400) (vlax-ldata-put "DenisH" "AngSCU" (- ang 400)) ) ;_ Fin de if (if (= (setq ang (vlax-ldata-get "DenisH" "AngSCU")) nil) (vlax-ldata-put "DenisH" "AngSCU" 100) ) ;_ Fin de if (setq ang (vlax-ldata-get "DenisH" "AngSCU")) (if (or (= ang nil) (= ang 0)) (setq ang 0) ) ;_ Fin de if (if (= ang 0) (setq valeur (strcat valeur " / Non orienté")) (setq valeur (strcat valeur " / Orienté")) ) ;_ Fin de if (setq ech (vlax-ldata-get "DenisH" "Ech" 0)) (cond ((= ech 0) (setq valeur (strcat valeur " / Sans échelle "))) ((/= ech 0) (setq valeur (strcat valeur " / Échelle : " (rtos ech 2 0))) ) ) ;_ Fin de cond (setq valeur (strcat valeur " / " (vlax-ldata-get "DenisH" "Vers"))) (setq Charte (vlax-ldata-get "DenisH" "Charte" "")) (cond ((and (/= Charte "") (/= Charte nil)) (setq valeur (strcat valeur " / Charte : " Charte)) ) ) ;_ Fin de cond (setq Calq (vlax-ldata-get "DenisH" "CalqCour" ""));;;C'est ici que j'avais mon problème*********************** (cond ((and (/= Calq "") (/= Calq nil)) (setq valeur (strcat valeur " / Calque : " Calq)) ) ) ;_ Fin de cond (setvar "modemacro" valeur) (princ) ) ;_ Fin de defun En tous cas, merci de m'aider... Denis...

Le souci c'est que mon code n'attibut pas "Électricité BT" à ma variable Calq alors que dans la console, ça le fait... Ben non, t'as une idée en tête ?

Merci Tramber pour ton aide... En fait, c'est "pire"... J'ai ça dans ma console : Et j'ai ça dans mon code : (setq Calq (vlax-ldata-get "DenisH" "CalqCour" "")) Je n'y comprend plus rien ! ! Sniff...

Bonjour à tous. Voilà, j'ai un petit problème en ce moment avec un (vlax-ldata-get J'ai écrit ça : (setq Calq (vlax-ldata-get "DenisH" "CalqCour" "")) J'aimerais savoir si ma variable "Calq" est bien égale à "" si rien n'est déjà attribué au vlax. Mais si le (vlax est déjà égale à nil ? Que ce passe-t-il ? Je rame avec la console : Su quelqu'un a une astuce ou une idée, je suis preneur... Denis...

Salut à la communauté, Ben alors Fiesta13310, un coup t'es dans AutoCAD 2016 (donc version complète) et un autre coup, t'es dans AutoCAD 2016 LT. ;) Aurais-tu les deux version ? Car si tu as la version complète, il y a le fabuleux LiSP de Patrick_35 : ONG qui imprime en une seule fois plusieurs présentations... Denis...

Ou peut-être sur le site du fabriquant (mais tu as surement du y penser) Renault ou Vanhool ? En page 10, il y a quelques caractéristiques. fiche_CERTU_LepointSur_pertinence_TCSP_cle5e1217.zip

Salut à tous, Il y a quelques années, un aimable membre de CadXP m'avait écrit ce petit truc : (defun c:tirage (/ modulus multiplier increment random) (princ "\nTirage :") (if (not seed) (setq seed (getvar "DATE")) ) ;_ Fin:if (setq nombre (setq modulus 65536 multiplier 25173 increment 13849 seed (rem (+ (* multiplier seed) increment) modulus) random (/ seed modulus) ) ;_ Fin:setq ) ;_ Fin:setq (setq numero_sorti (fix (* 250 nombre))) ) Mais comme le dit Tramber, c'est issu de la date.

Re, Il me semble qu'ONG fonctionne aussi avec MIM.lsp et MPL.lsp... Denis...

Salut, Une petite collaboration : ton dwg fonctionne correctement chez moi.

Bonjour à tous. J'ai un petit souci avec Edit_Bloc_rep. Je commence un nouveau dessin et la routine me dit que le dessin n'est pas vide : Je lance Rpurge et il me dit la même chose. Je ne peux donc pas utiliser Edit_bloc_rep. Si quelqu'un a une astuce ou un conseil, je suis preneur. Denis...

Salut, Je ne pense pas qu'AutoDesk se soit "penché" sur cette question. C'est pour cela qu'existe l'excellent ONG de Patrick_35... Denis...

Salut à tous. Parfois, on est "obligé" d'utiliser la couleur. J'ai des plans topo (qui me servent de fond) dont toutes les entités sont de couleur 8 (tracer en noir, épaisseur 0.18) et par dessus nos détections des différents concessionnaire. Il y a des endroits où je peut me retrouver avec 12 voir 14 réseaux différents (assainissement, eau potable, calorifuge, éclairage public, BT, HT, gaz...), il m'est quasi impossible de tracer sans un minimum de couleur, car on ne distinguerait rien avec 14 épaisseurs différentes, et c'est tout aussi difficile avec plusieurs style de trait... Donc, avant de commencer un plan, j’envoie une mini charte graphique au client (généralement inspirée de l'AFNOR ou la FNEDRE) pour qu'il me valide les différentes couleurs que je vais utiliser. Mais je rejoint vos posts, quand on faisait des plans topo à la main et sur calque, on jouait avec les styles de traits, l’épaisseur de la plume et la densité des hachures... Je me souviens aussi qu'on faisait un report brut des points levés avec le matricule écrit en bleu. Car le bleu était "invisible" à la reproduction à l’ammoniaque... Denis...

Zut, j'ai oublié le "d=" ! ! Bravo Bonuscad...

Salut, Je pense qu'en changeant cette ligne : (rtos (- (read string1) (read string2)) 2 2) Par (* (rtos (- (read string1) (read string2)) 2 2) 1000) Mais je n'ai pas fais d'essai... Denis...

Salut, Je pense que SuperAutoScript fera l'affaire... Denis...

Salut à tous... Parle-t-on de photogrammétrie ? Car les Scanner 3D sont fait pour ça... Non ? Pour ce qui est des coupes, le scan ne relève QUE les façades "approximativement", pour l'intérieur, c'est au crobar et au doublar... Il faut aussi prendre en compte que angles ne sont jamais levé, seul les arrêtes le sont. Il faut dont les prolonger dans l'espacepour obtenirle coin d'une fenêtre, par exemple. De plus, pour faire un "vrai" rendu d'une façade, il faut au moins deux station... Et je rejoins didier, Il faut l'ordi de la NASA pour analyser ces centaines de milliers de points... Le principe est simple : tu analyse la façade avec une prise de vue depuis la gauche du bâtiment, tu défini le point de coordonnées minimum (en bas à gauche) et le point maximal (en haut à droite) et le pas (un point tout les x centimètres), puis, tu fais la même chose depuis la droite de la façade. Le tout sur deux points très bien connus en coordonnées. Tu obtient ainsi deux piqués de pointS (avec un gros "S", souvent des millions) qu'il faut joindre pour une représentation dans l'espace de ta façade. Et tu auras un rendu uniquement constitué de points, sauf si ça a évolué depuis ma dernière expérience (de la "stéréo-photogramétrie" dans les années 95 à 99 pour des statuts). De plus, si tu veux y ajouter une photo (ortho-photoplan) il faut encore un autre logiciel, et je ne suis pas sur qu'AutoDesk le fasse. Nous, on utilisait Photo-Panorama, ou un truc dans le genre... Je sais qu'on a un scan 3D au boulo dont on ne se sert pas... Si tu veux, je me renseigne... Denis...

Je n'ai jamais été confronté à ce problème... C'est la variable HPLAYER qu'il faut mettre à "." pour que ce soit le plan courant qui compte... Denis...

Bonjour à tous, Voilà, j'ai un petit soucis avec des hachures... J'ai récupéré un plan issu de MicroStation. J'essaie d'hachurer des bâtiments (polylignes fermées) mais aucune ne se dessinent ! ! ! Ni Solid, ni ANSI31, aucune... Après quelques recherches, les hachures se dessinent dans le calque 0, qui est Inactif et surtout, qui n'est pas mon calque courant ! ! ! J'ai donc gelé le calque 0... Ben AutoCAD me répond qu'il ne peut pas écrire dans un calque gelé ! ! ! Je répète que mon calque courant n'est pas le 0 ! ! Si quelqu'un a une astuce ou un conseil, je suis preneur... Denis...

Bonjour AUR, Quel est le nom de ce bloc A (attention aux blocs anonymes) ? Peut-être ce bloc A est utilisé dans un autre bloc ou dans l'espace papier ? Supprime la totalité des entités de ton dessin et purge-le ensuite, est-il dans le liste des blocs à purger ? Poste ton DWG vidé de tout pour qu'on observe mieux ce qu'il peut se passer (il faut zipper un dwg pour pouvoir le poster). Denis...

En fait, j'habite proche de la limite départementale et mon boulo est proche de cette limite... J'en ai pour une heure par trajet de chez moi, je ne suis donc pas en déplacement. ;) Sauf quand je vais dans une de nos agences française (Dijon, Arras...) Denis...

Ben ça y est... J'ai mal à le tête... Mais très instructif... On voit que pour une seule "fonction", il y a plein de méthodes...

Salut à tous. Aucun problème ni dans l'Aube (au boulo) ni dans l'Yonne (chez moi)... Amicalement...