DenisHen

J'ai oublié, cela doit se répéter autant de fois qu'il y a une échelle différente...

Re bonjoir à tous ! ! Bon, je vais essayé d'être clair... Premièrement : je suis géomètre et tous mes plans ont plusieurs échelles (2 en général) mais rarement les mêmes ! ! Pour un plan d'intérieur, c'est du 1/20 ou 1/50, rarement du 1/100... Mais ça peut arriver Pour un plan topo, c'est du 1/200, 1/250 ou 1/500, et parfois du 1/1000 Pour un plan de bornage ou de division parcellaire, celà va du 1/200 au 1/1500 voir même 1/2000... C'est dire si un seul et même texte peut avoir des tailles de toutes sortes Deuxièment : chaque fichier dwg est contenu dans un répertoire qui porte son nom... Dans le quel est inclu les éventuelles photo du site, les courriers, les scans, la base des contacts.......Bref, je me suis dis... : Si j'écris dans un fichier (ex : phalène.ini) l'ensemble des données utiles au traitement de ce dwg, une grosse épune sera en moin dans mon pauvre petit pied... Non ? J'ai donc fais une macro en VBA et dans ce fichier Phalène, j'ai : ........;Ech=200,Ech=500;....... C'est uniquement en ce qui concerne les échelles (le reste c'est pour les références cadastrales... Les noms des propriétaires riverains......) Donc, mes menus ont donc cette tête là : [->Lotissement au 200] [ Objet du lotissement (Texte + Trame)]^C^C-style;ObjetLotissement;"Arial Hc.ttf";0;1.2;;;;;^C^C-calque;e;"Lotissement 1 - Objet du lotissement (Texte) 200";co;7;;^C^C(command "_.text" "_j" "_c" pause 2 (angtos (getvar "SNAPANG") (getvar "AUNITS") 4) "OBJET DU LOTISSEMENT"); (Merci à CadXP pour la "command........") [..] [<-..] [->Lotissement au 500] [ Objet du lotissement (Texte + Trame)]^C^C-style;ObjetLotissement;"Arial Hc.ttf";0;1.2;;;;;^C^C-calque;e;"Lotissement 1 - Objet du lotissement (Texte) 500";co;7;;^C^C(command "_.text" "_j" "_c" pause 5 (angtos (getvar "SNAPANG") (getvar "AUNITS") 4) "OBJET DU LOTISSEMENT"); (Merci à CadXP pour la "command........") [..] [<-..] Mon but est donc d'aller chercher dans mon fichier "Phalène.ini" l'échelle ou les échelles et d'écrire une seule fois ou plusieur fois le même texte à ou aux bonnes échelles ! ! ! De ce fait, j'aurrais un truc comme : [->Lotissement] [ Objet du lotissement (Texte + Trame)][surligneur]--Aller cherché la première échelle--[/surligneur] ^C^C-style;ObjetLotissement;"Arial Hc.ttf";0;1.2;;;;;^C^C-calque;e;"Lotissement 1 - Objet du lotissement (Texte) [surligneur]500[/surligneur] ";co;7;;^C^C(command "_.text" "_j" "_c" pause [surligneur]5 (selon échelle[/surligneur] (angtos (getvar "SNAPANG") (getvar "AUNITS") 4) "OBJET DU LOTISSEMENT"); (Merci à CadXP pour la "command........") [..] [<-..] Et ce autant de fois qu'il y a une échelle différente dans Phalène.ini... FFFFFfffffffffff J'ai fini...... Si quelqu'un veut que je développe encore plus, je peut lui envoyer mon "Phalère Projet.mns" s'il le désire... Voilà, je dois avoir un courriel interne sur CadXP... Alors, qui bon veut.. Le peut... Merci de votre précieuse attention... Denis...

Merci à tout le monde, pour les réponses et l'aide... J'ai choisi la routine de Gile, car c'est la premièer que j'ai testé et vu qu'elle a fonctionnée du premier coup, je n'ai pas cherché plus loin... Je n'ai que quelques petites correction à faire.. Comme changer les é épaisseurs de la polyligne pour qu'elles soit conforme ausx différentes échelles... Mais ne m'en voulez pas Tramber ou Kallain... Rien n'est contre vous... Donc, je remerci l'ensemble du forum pour cette aide précieuse... Maintenant, je dois écrire cette routine en une seulle ligne de menu... ! ! ! J'ai de quoi nourrir la planche en pain... Merci encore... Denis...

Merci à tous ! ! C'est EXACTEMENT ce que je cherchais... Mais vu l'éficacité des différents protagonistes de ce forum, quelle serait la réponse si je demandais de faire la même chose (clique la pointe, puis la queue) mais avec une polyligne de plusieurs sommets (indéfinis) ? ? Alors là, je suis curieux, ça pourrait me servir pour faire des flèches de rappel avec un texte au bout... Grand merci encore ! ! C'est génial ! ! Denis...

Merci (gile), je ne savais pas pour la couleur des ceintures... Mais je vais me calmer, je vais recevoir un bouquin qui traite du Lisp dans les menus... Le temps que le l'apprenne par coeur et Hop ! ! A moins que je n'y pige rien, dans ce cas, je reveindrai demander des aides explicatives... Denis...

Merci à toi, (gile), mais vers la fin, c'est pas évident.... Mais je cherche encore comment faire pour ajouter un engle plat si celui-ci est inférieur à 200 plus la différence entre lui-même moins 2000 + la même chose sans compter l'angle avec celui de l'inclinaison du vent le soir au fond des bois..... Et qu'il est 23h30 ! ! Et que je n'y arrive plus le lundi à cette heure...., Je cours dans la première cuisine que je trouve et me fait une intrastomacale de barre de céréales au chocolat-bien-noir ! ! ! Puis, j'arrive ! ! ! ! Pour vous lire......

Mais donc, comment faire pour retrouver la variable SNAPANG ! ! ! Car c'est dont j'ai besoin ! ! et d'aucune autre, sauf si elle a toujours la même valeur.... Je me creuse la tête avec une vieille pioche pourrie... Ca fait mal ! ! Denis...

Très intéressant ton lien Et pour le +/- 200gr ? Tu vois un truc ?

Waouw ! ! J'ai testé ! ! ! Et je n'ai qu'un suel mot à dire.... C'est Waouw.... Mais avec une petite réserve... Celà réagit comme les cotation, si l'angle est trop fort, il ajoute 200 Gr, ou 180° ou 2Pi... Ce qui fait une ligne de texte pile poils à l'envers ....Grrrrrrrrrr... Mais un grand bravo à (gile) qui est le seul à trouvé one soluchionne ! ! Parcontre, 'gile), c'est quoi le 14 dans [...........NG") (getvar "AUNITS") 14) "Bure.......] ? ? ? Hein ? Encore un secret ? ? Encore un grand merci...... C'est réellement sympa....... Denis...

Ca a marché, j'en suis sur, je l'ai testé, mais je pense , ou crois ou subodors voir même plus, que c'est sur un seul et même fichier dwg et qu'il avait peut'être le même snapAng radian que le résol Grade.... D'où la confusion... Vas savoir Charles... Je m'en vais tester cette dernière fraiche info... Précieuse, venue d'une noire... (ceinture Doudou, ceinture...) Denis...

Non, non, ce n'est pas résolu ! ! Je ne voulais pas cliquer sur la jolie petite ampoule ! !

Bonjoir (oui, c'est toujours la même chose...) Voilà, cher CadIxpiens et CadIxpiennes, je cherche à faire, en une seule ligne de commande dans un menu, une polyligne entre deux points uniques une flèche... On clique la pointepuit on clique la fin de la Pline, mais à 20 cm (ex) de début de cette pline, on insert un point. Pour qu'à la fin, on n'ai automatiquement le suite de commande ; pedit;m;e;0.3;0.1;n;e;.1;.1;; On édite la pLine, (donc, de trois sommet (le deuxième sommet est à 20 cm du premier) on donne la largeur 0 au premier, la largeur .3 au deuxième sommet du premier segment, puis, on donne les valeurs 0.1 pour les autres sommets des autres segments... Je ne pouvais pas écrire cela dans la "Personnalisation des Menus" vu qu'il n'y a que du lisp pour le faire... Mais là, j'en appel au ceinture super méga foncées avec, éventuellement, des danes en bonus... Merci d'avance... DenisH...

Merci à tous, mais je vais préciser mon idée car j'ai trouvé un truc, mais il ne fonctionne pas à 100%... Mon idée est d'écrire un texte TOUJOURS selon l'angle de résolution (SNAPANG) et ce, quelquesoit le SCU... J'avais réussi ( moi qui ne connais absolument rien au Lisp) ceci : [bureau]^C^Ctexte;j;c;\.08;$m=$(getenv,"SNAPANG");Bureau; Mais dans un seul est même DWG, cela fonctionne au début mais plustard, dans ce même dessin, sans le fermer ni en ouvrir un autre ni même en activer un autre puis revenir sur celui-là... Mes textes se retrouvent dans n'importe quel sens....pendant quelque temps... Puis, ils se retrouvent systématiquement selon l'axe des X du SCU général..... Alors là, je suis scié ! ! Si quelqu'un connait Mulder ou un autre agent suceptible de m'aider... J'ai fais une croix au scotch à ma fenêtre... Merci d'avance... Denis...

Wouaouwwww ! ! On se croirait à Bercy pour la nuit des arts martiaux ! ! Quand deux ceintures noires se rencontrent, il faut suivre ! ! Donc, autoload signifirait que si c'est pas load, ça le load ? ? Ah ah ah... Autoload charge le lisp s'il ne l'est pas déjà ? En ça alors.... Merci .... Denis...

Merci BonusCAD, C'est très motivant.... Et comme je l'étais déjà ! ! J'y vais tête devant ! ! Mais je voulais plus intégrer du Lisp dans le Diesel... Mais j'igniore les deux ! ! Je viens du VB ! ! Et pas de A dans l'histoire ! ! ! Donc... J'approche le Lisp avec une idée de cause et d'effet.... Contrairement au VB, qui lui ne jure que par instruction et par fonction...On m'a dit que ce n'était pas le crédeau du Lisp.... C'est vrai ? Sur ce... Merci à toi pour ce renseignement... Denis...

Désolé pour Refedit, j'avais oublié le LT à la fin d'AutoCAD.... mille excuses..... Denis...

Mille merci Tramber, mais j'ai fais Latin/Grec au bahu ? Je "membering" ? (= deviens membre ?) Denis...

Ah ah, je suis arrivé deuxième ! ! Merci à toi, Gile, mais je n'y connais absolument rien, ni en Lisp, ni en Diesel ! ! Mon truc à moi, c'est le VBA et surtout, le VB ! ! Mais j'attends un bouquin d'initiation au Lisp dans les menu pour AutoCAD.... Bientôt, je serais fort comme vous... ;) Merci encore.... J'en comprend encore plus grace à toi... Denis...

Ah ah ah ! ! ! J'ai trouvé ! ! ! ! C'était ...........;$m=$(getenv,"SNAPANG");............. Qu'il fallait ! ! ! ! ! WOW ! ! AAAAaaaahhhhh MMmmmmmm Ouf... Ca fait du bien de se tapoter sur l'épaule quand on est seul..... Bon, ;) Au plaisir ...... Denis... ( <- content ! ! )

Bonjoir à tous ! ! (Oui, je sais, c'est bonjour et bonsoir en même temps...) Pour toutes nos personnalisation, on en vient un jour à faire des barres de menus... Mais quels icônes choisir (attention, en informatique, icone est masculin !) Quelqu'un connait-il un site qui recenserait des icones "spécifiques" ou au moin "significatifs" pour AutoCAD ? ? Car des icones avec des nana à poils ou des images de CD-ROM ou même des pinguoins ( Linux ), on en trouves des milliards sur la toile... Mais des icones disant clairement => "J'efface un calque" , "Insertion de texte horizontal" ou même "Multiligne verte" ? ? Hein ? ? Je pense que les réponces serviront à beaucoup de monde (j'espère)... Et comme mon icônes le disait toujours : "M'enfin ?" Salut à tous... Denis...

D'abord, un grand merci à BonusCAD (à qui j'ai emprunté le menu du même nom, qui vaut bien un autre merci...Merci) Bon, le merci, c'est fait, maintenant, les questions... Si cela te conviens... ^C^C => c'est pour annuler toutes commandes éventuelles, Ok _.ucs => Je ne sais pas à quoi sert le point "." Mais j'essayais de ne pas changer de SCU. je ne suis pas le seul à utiliser AutoCAD au boulo, et je fais des routines justement pour les autres... Si je ne fais rien, tous se retrouve dans le calque 0 avec aucun texte identique, des blocs avec des échelles négatives, plusieurs lignes confondues ! ! ! Bref, la galère ! ! Donc, ve les Zigomare que mon bureau produit, changer de SCU signifie OBLIGATOIREMENT qu'un jour, on se retrouvera en local et bonjour la validité des coordonnées sur le terrain ! ! Il suffit qu'ils annulent la commande en cours et HOP ! ! Tout est foutu ! ! J'avais donc imaginé un truc comme : [borne]*^C^C-style;Borne;simplex.shx;0;0.9;;;;;^C^Ctexte;s;Borne;\.3;(getvar,"SNAPANG");Borne; Mais le (getvar,"SNAPANG") n'a aucune incidence sur la commande... C'est grave docteur ? Merci por d'éventuelles réponces, Et encore merci pour tout... Denis...

Messieurs, Je viens de découvrir une chose nouvelle pour moi... pas pour tout le monde... je sais... L'angle de rotation d'un texte est TOUJOURS le même, quelque soit le SCU et quelque soit l'angle de "RESOL" ! ? ! ? Je m'intéroge sur mes facultés de compréhension ? ? Suis-je le chainon manquant ou est-ce que je manque d'un maillon à ma compréhension ? ! ? ! M'enfin ? ? ? Je tente d'écrire un texte simple ( une ligne )parallèle à la fenêtre ( ou à l'écran ) depuis un menu, j'ai donc : [Cuisine]^C^C_ucs;_v;-style;Pièce;simplex.shx;0;0.9;20;;;;^C^Ctexte;s;Pièce;\.08;100;Cuisine;^c_ucs;_w; J'ai même essayé [Cuisine]^C^C-style;Pièce;simplex.shx;0;0.9;20;;;;^C^Ctexte;\.08;$M=$(getvar,snapang);Cuisine;; Tout le monde l'a deviné, j'essai d'écrire "Cuisine" ! ! J'en ai eu tellement marre, que sur un coup de tête, j'ai commandé le premier livre traitant des menus et du Lisp dans AutoCAD ( il n'y en avait pas des centaines...) sur le Net ! ! ! ! Je le recevrai la semaine prochaine ! ! ! Quand je l'aurai dans la tête.... Je reviendrais aider les plus démunis, (ce qui ne m'est pas arrivé...) Vive CadXP ! ! Et vive les Membres ! ! Denis... PS : j'associe n'importe quel smiley, vu que je ne connais absomulent pas leur signification... sauf => ;-) ReDenis...

M'enfin ! ! ! http://www.thalheim.ca = lien introuvable ?!?!?! Ben voyons... Denis...

Bonjoir.... (oui, c'est bonjour et bonsoir...) Si j'avais su... J'ai commander La CAO par le Menu LISP pour AutoCAD... Car mon vrai souci, c'est de faire des million de petites macros dans le menu AutoCAD... Comme : [Cuisine]^C^C-style;Pièce;simplex.shx;0;0.9;20;;;;^C^Ctexte;s;Pièce;\.08;\Cuisine; Mais même là, je bouillone... Comment faire pour l'angle de rotation du text... Qui, quelque soit les SCU doit toujours être parallèle à l'écran (_ucs;_w;) ! ! ! ! J'ébullitionne avec mosemacro et d'autre $(getvar,snapang) ! ! ! ! ! ! Mais c'est le néant ! ! Je vaporise ! ! Bon... Trève de galégeade... Bonsoir à tous... Denis...

Bonsoir à tous, ou bonjour, Pour ma part, j'utilise un scu local en espace objet, je le sauvegarde avec "Vue" puis, dans la fenêtre de l'espace papier, je la rappelle et Hop ! ! J'ai bon ? Denis...