brunomu

Bonjour le Forum ! Je cherche une commande ou un LISP qui permette de scinder en 2 une cote. Par exemple, j'ai coté les hauteurs de dalle à dalle d'un bâtiment. Je veux détailler cette ligne de cotes en précisant l'épaisseur d'un plancher. Aujourd'hui, je ne sais que créer une nouvelle cote, ou raccourcir une cote existante et créer une cote qui la prolonge. Je préfèrerais : 1/ lancer une commande ou un LISP 2/ cliquer sur la cote à scinder 3/ cliquer sur un point à coter qui déterminera où couper la cote 4/ obtenir 2 cotes au lieu de la cote initiale Quelqu'un sait-il comment faire ? Merci !

Parfait, bravo ! Merci à tous les contributeurs.

Merci ! Reste un problème : l'alignement se fait sur les valeurs de .x ou de .y dans le SCG. Mais du coup dans un SCU, ça n'est pas aligné...

Merci beaucoup ! ...problème(s) : – quand je lance la commande, je dois sélectionner 2 fois l'objet de référence – mais surtout, AutoCad me renvoie un message d'erreur : A tout hasard, j'ai remplacé TEXTALIGNMENTPOINT par _TEXTALIGNMENTPOINT parce mon AutoCad est en français, mais peine perdue... Des idées ? Merci en tous cas.

Merci beaucoup, très chou en effet ! Je sens qu'on s'approche du but...mais les textes ne se déplacent pas au point attendu. Plus précisément, quand je travaille avec un SCU (donc pas en SCG), les textes se déplacent vers l'endroit où ils iraient dans le SCG (j'ai fait le test). → y a-t-il moyen de faire fonctionner le LISP dans le SCU courant ? Merci !

Bonjour, Merci pour ta réponse. Les 2 lisp sont alléchants, malheureusement : – quand j'utilise rrt.lsp pour déplacer des textes jusqu'à la même valeur en .x, il ne se passe rien... – DynamicTextAlignV1-6.lsp est tellement sophistiqué que je n'obtiens pas le résultat escompté ! :o|

Bonjour, Merci pour ta réponse....mais cette commande n'est pas disponible sur mon poste (ACAD 2013 fr). Que faire-je ?!

Bonjour le Forum ! J'aimerais disposer d'un lisp tout bête pour aligner un texte sur un autre texte : (ce lisp existe peut-être déjà mais je ne l'ai pas trouvé) – je clique sur un texte A, puis sur un texte B → le texte A se déplace en x, de sorte que son point d'insertion ait la même valeur en x que celui du texte B (sans changer la coordonnée y) C'est tout ! En fait, il faudrait 2 lisps : un pour aligner un texte sur un autre en x, un pour l'aligner en y. Quelqu'un sait où trouver ça, ou saurait écrire ce lisp (trop difficile pour mon maigre niveau) ? Merci !!!

Ça marche parfaitement, merci beaucoup !!! (et merci pour les petits commentaires dans le code) Cela dit, Autodesk devrait avoir implémenté cette possibilité en base depuis Autocad 5 ou 6...!

Rebonjour et merci pour ta réponse. Avant tout, oui, tu as raison dans ton PS : il s'agit juste d'améliorer qqch qui fonctionne (mais avec des fichiers lourds et un ordi poussif, le réaffichage inutile du zoom étendu est du temps perdu). Disons que c'est pour la beauté du geste, mais je vais sans doute m'arrêter là. Je ne sais pas pourquoi, mais c'est comme ça sur mon poste. A tout hasard j'ai testé en changeant les unités (en radians, en grades,...) mais ce n'est pas ça le pb. Ça c'est dû à mon manque de connaissances en programmation en général et en LISP en particulier. Je me contente de bricoler des bouts de code que je glane. Si tu as qqes améliorations à me proposer, c'est bien volontiers (mais je ne sais pas rectifier le code dans le sens que tu indiques). En tous cas merci pour ton aide.

Bonjour, Merci à tous les 2 pour votre contribution. @dinosor : si, si, je demandais quelquechose ;o) @gile : j'ai testé ton code. J'obtiens bien une rotation, mais pas à 90° comme souhaité (je dirais ≈ 92° ?!), et l'affichage ne reste pas centré sur le même point qu'avant l'exécution du LISP... (avec UCSFOLLOW = 0 ou = 1 c'est pareil). Il n'y a pas dans AutoLisp la possibilité de ne pas recalculer l'affichage pendant certaines instructions, comme en VBA on a : Application.ScreenUpdating=False ) ?

Bonjour, J'aimerais améliorer une routine (ci-dessous) qui me permet de changer de SCU avec rotation de l'affichage, et de retrouver un cadrage sur la zone où je travaillais avec le même facteur de zoom. Problème : l'affichage passe fugitivement par un zoom étendu. Comment faire pour éviter cet affichage intermédiaire inutile ? Merci ! (defun c:ui () (setvar "cmdecho" 0) (setq h (getvar "viewsize")) (setq ce (trans (getvar "viewctr") 1 0)) (command "_ucs" "_n" "_z" "-90") (command "_plan" "") (command "_zoom" "_c" (trans ce 0 1) h) (princ) )

Bonjour Forum ! Je dois remettre au propre des dizaines de détails qui ont été mal légendés : tous les textes des lignes de repère sont justifiés à droite, ce qui les rend très peu lisibles. Manuellement je dois : – sélectionner les repères – dans la fenêtre « propriétés » modifier la justification (à gauche au lieu de à droite) – désélectionner les repères – sélectionner le 1er, faire un étirer jusqu’au point en .x où je veux le justifier – sélectionner le 2ème et faire la même manip, – etc… J’aimerais donc disposer d’un LISP « tout en un » qui marche comme ça : 1 - je sélectionne tous les repères à mettre à jour 2 - j’indique un point dans mon dessin → et hop ! tous les repères sont justifiés à gauche, et les textes viennent se caler à gauche sur le point indiqué à l’étape 2, avec les lignes de repère qui partent à droite des textes. Mais ça dépasse de loin mes capacités en LISP. Quelqu’un pourrait-il m’aider siouplé ? Merci !!!! PS : idéalement, j’aimerais un 2ème LISP complémentaire, pour les textes qui doivent figurer à droite du dessin. Le fonctionnement serait le même que le 1er, mais les lignes de repère partiraient vers la gauche depuis le point de justification des textes. Si je ne suis pas clair, je peux joindre un fichier.

Super ! Merci !!! (FDELIM = VPCLIP en anglais)

Bonjour Forum ! Voilà, tout est dans le titre : y a-t-il un moyen pour transformer une fenêtre de tracé (viewport) rectangulaire en fenêtre de tracé polygonale ? Merci pour vos réponses.

Merci à tous ! La commande _XOPEN me va bien : une commande, un clic et ça roule.

Yes !

Merci pour vos réponses ! @ CDL : – moi non plus : pas de champ hyperlien dans la fenêtre des propriétés – comme je travaille en anglais, je ne connais pas l'équivalent de "PROP", donc je n'ai pas testé @ adat-btp : dans le menu contextuel, je n'ai pas d'option pour ouvrir le xref...

Tu as raison. Mais EDITREF ouvre temporairement le XREF. Ce que je voudrais, c’est pouvoir ouvrir le XREF comme un fichier à part entière sans avoir à spécifier tout le chemin.

Bonjour Forum ! Est-ce qu’un crack saurait écrire un LISP qui permette, en cliquant sur un XREF, d’ouvrir le fichier correspondant ?! Merci !

Waooooouuuuuhhhhhh ! En on me dit rien ??? Merci !!!! Bon, un de ces jours, il faudrait que je fasse un petit stage de mise à niveau.

Bonjour Forum ! Question aux cracks d’AutoCad (j’ai fait une recherche rapide sur le site, mais sans succès) : Est-il possible d’ajouter à un bloc une entité déjà présente dans un fichier, sans avoir à exploser le bloc puis le redéfinir ? (je sais qu’on peut éditer le bloc et y recréer l’entité à y intégrer, mais j’aimerais un moyen plus direct, genre : je clique sur le bloc concerné, je clique sur l'entité à y ajouter et pif-paf, le bloc intègre désormais cette entité). En d’autres termes : – pour extraire une entité d’un bloc, on dispose de la commande NCOPY – pour intégrer une entité à un bloc, comment faire (simple) ? Merci à tout contributeur éventuel !

@vincentp010 : merci @didier : merci pour la routine, qui marche bien. Bravo. Cela dit, j’aimerais pouvoir aller un cran plus loin, en faisant des LISP qui effectuent une rotation du SCU de 90, 180 ou 270° autour d’un point saisi à l’écran. Le tout, sans passer par un zoom étendu. Mais je ne suis pas assez calé en LISP pour y arriver. Quelqu’un pourrait-il m’aider ? Merci !

Merci pour ta routine, qui m'a l'air très bien.......mais je travaille en anglais, et je ne vois pas à quoi correspond la commande REPERE ?!

Bonjour Forum ! J’ai eu beau chercher sur le site, je n’ai pas trouvé la réponse à une question que beaucoup d’AutoCadiens ont dû se poser : y a-t-il un moyen de changer de SCU avec UCSFOLLOW=1, sans qu’AutoCad impose d’en passer par un zoom étendu (par exemple en gardant le même centre et le même zoom pour la vue après changement de SCU) ? Et si non, est-ce qu’un crack-du-LISP saurait mitonner ça dans sa cuisine (moi je ne saurais pas le faire) ? Merci ! [Edité le 3/8/2011 par gloub] [Edité le 4/8/2011 par gloub]