DenisHen

Salut. Si j'ai bien compris, je ne pense pas qu'il soit possible de changer une variable d'un attribut, pour que cela change l'entité. Encore une fois, je ne suis pas sûr d'avoir compris, mais est-ce faisable "à la main" ? Changer l'attribut "longueur de la ligne" en le passant, par exemple, de 5m à 8m ne fera pas la ligne plus grande de 3m... Enfin, je ne pense pas... Denis...

Salut. As-tu pensé à SuperAutoScript ? Denis...

Deux minibus électriques et autonomes vont rouler à Lyon (Lien) Denis...

Bonjour, et bienvenu. Une petite question : faut-il garder le calque après effacement de son contenu ? S'il ne faut pas, il y a la commande SUPCALQUE, qui supprime le contenu d'un ou plusieurs calques et supprime aussi le calque. Denis

Bonjour. Et merci pour le partage, j'ai découvert l'alignement des espaces que je ne connaissais absolument pas, mais qui devrait beaucoup me servir... Merci encore... Denis...

Salut (gile). Avec des tutos de cette qualité, on va pouvoir se lancer dans le C#... Un grand merci pour le temps passé et le partage... Denis...

Salut, Merci pour cette réponse, c'est ce que j'aurais fini par faire... Mais tu confirmes, encore merci... Denis...

Bonjour à tous. Voilà, un petit souci aujourd’hui dans un (getpoint me pousse à vous demander un peu d'aide. J'ai un (getpoint dans une routine : (setq pt_ins_Txt (getpoint pt_ins "\nPied de la flèche : ")) mais je ne vois pas, après plusieurs testes, où placer un "_non" pour désactiver juste pour ce clique l'accroche objet. Si quelqu'un a une astuce ou un conseil, je suis preneur. Denis...

Bonjour. Le calque 0 n'est pas "effaçable", il est nécessaire à AutoCAD. Pour le calque "Defpoint", je pense que c'est la même chose, surtout s'il y a des cotations. Pour les autres, voir la commande RadicalPurge de maître (gile). Denis...

Bonjour à tous. J'ai ajouté une option à "Orientation du plan", on peut revenir à l'orientation par défaut du DWG. Denis...

Salut vincentp010, J'ai bien compris ta remarque, j'ai donc modifier mon code : ... (while (and (/= p1 "Horizontale") (/= p1 "H") (/= p1 "h") (/= (type p1) 'LIST)) ... Mille mercis à toi. Denis...

Bonjour à tous. Voilà, j'ai un petit souci de sortie d'un (while dans une routine. C'est un lisp qui demande à l'utilisateur l'orientation du DWG tout en gardant le SCU général. Deux possibilités : 1. cliquer un point qui sert de base au futur angle et un deuxième clique pour avoir la nouvelle orientation, 2. taper "h" à l'invite de commande pour revenir à une orientation type Vue\Haut. Mon problème, je commence par un (while mais je n'en sors pas. Si je répond "h" à l'invite, tout ce passe bien mais le lisp redemande le point de départ... Si quelqu'un a une astuce, un conseil... Je suis preneur... Voici l'extrait de code : (while (/= (type p1) 'LIST) (initget 1 "Horizontale") (setq p1 (getpoint "\nPoint de départ ou [Horizontale] <Horizontale> : " ) ;_ Fin de getpoint ) ;_ Fin de setq (if (= p1 "Horizontale") (progn (initget 7) (command "-vue" "g" "h") (command "snapang" "0") (vlax-ldata-put "DenisH" "AngSCU" 0) ) ;_ Fin de progn (progn (setq vortho (getvar "orthomode")) (setvar "orthomode" 0) (setq p2 (getpoint p1 (strcat "\tDirection des X :"))) (setvar "orthomode" vortho) (setvar "snapang" (angle p1 p2)) (setq angscu (- 500 (* 200 (/ (angle p1 p2) pi)))) (if (<= angscu 400) (- angscu 400) ) ;_ Fin:if (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000)) (vlax-ldata-put "DenisH" "AngSCU" angscu) (princ (strcat "\tNouvel angle de vue : " (rtos angscu 2 2) "gr") ) ;_ Fin de princ (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") (setvar "snapmode" 0) (setvar "cmdecho" echo) (command "zoom" "_w" p1 p2) ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while Denis...

Salut. C'est curieux, chez moi, ça fonctionne... Voici ce que ça donne dans mon CSV : Denis...

J'ai fais une petite modif, voici un code que j'ai testé : ;; DIST (gerald) ;; Écrit dans un CSV les tronçons et leur distance. (defun c:lg (/ p1 dist Tronc Nom NomFich) (setq Nom (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq Nom (substr Nom 1 (- (strlen Nom) 4))) (setq Nom (strcat Nom ".csv")) (while (setq Tronc (getstring "\nSaisir le nom du tronçon :")) (setq p1 (getpoint "\nSpécifiez le premier point : ")) (setq dist (getdist p1 "\nSpécifiez le second point : ")) (setq NomFich (open Nom "a")) (write-line (strcat Tronc ";" (rtos dist 2 2)) NomFich) (close NomFich) ) ;_ Fin de while (princ) ) ;_ Fin de defun

Pour le cas où tu voudrais ajouter le nom d'un tronçon, tu peux tester ça : ;; DIST (gerald) ;; Envoie vers excel la distance entre 2 points. (defun c:lg (/ p1 dist NomFich) (setq NomFich (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq NomFich (substr NomFich 1 (- (strlen NomFich) 4))) (setq NomFich (strcat NomFich ".csv")) (setq NomFich (open NomFich "a")) (while (setq Tronc (getstring "\nSaisir le nom du tronçon :")) (setq p1 (getpoint "\nSpécifiez le premier point : ")) (setq dist (getdist p1 "\nSpécifiez le second point : ")) (write-line (strcat Tronc ";" (rtos dist 2 2)) NomFich) (close NomFich) ) ;_ Fin de while (princ) ) ;_ Fin de defun Ce fichier sera un CSV pour une ouverture plus facile dans Excel. Denis...

Re, Essai ceci : ;; DIST (gerald) ;; Envoie vers excel la distance entre 2 points. (defun c:lg (/ p1 dist NomFich) (while (setq p1 (getpoint "\nSpécifiez le premier point : ")) (setq dist (getdist p1 "\nSpécifiez le second point : ")) ) ;_ Fin de while (setq NomFich (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq NomFich (substr NomFich 1 (- (strlen NomFich) 4))) (setq NomFich (strcat NomFich ".txt")) (setq NomFich (open NomFich "a")) (write-line (rtos dist 2 2) NomFich) (close NomFich) (princ) ) ;_ Fin de defun Ton fichier sera au même endroit que ton DWG Denis...

Bonjour, et bienvenu. Qu'est-ce qui ne fonctionne pas dans ton code ? Je pense que ton fichier "Distance.txt" ne contient que la dernière distance. Il me semble que l'overture en mode append résoudrait ce problème. (setq file (open "c:\\Distances.txt" "a")) Et dans ton fichier txt, te ne veux pas y placer aussi le nom de la section (ex:Pt4->Pt5 Dist=XXX.XX) avant la distance ? Mais tu devrais avoir d'autres réponses de membres plus calés en Lisp que moi... Denis...

Bonjour à tous. AnglesDroits n'a pas précisé que JuriTravail est payant... Dommage...

Bonjour Christian Ta deuxième méthode se fait bien depuis le DesignCenter ?

Salut Steven... Effectivement, je ne l'avais pas vu, mais au bout de 5 minutes de téléchargement, j'ai laissé tombé... Nous avons une connexion plus que pourrie en ce moment... ;)

Je réveille ce sujet mais je viens de voir un truc, il semblerait que l'on peut demander une rotation à l'utilisateur lors de l'insertion d'un bloc issus de la Palette d'outils. Lignes 5 et 6 du paragraphe "Insérer" : J'ai bon ou je me trompe ? A+ Denis...

Le français n'est effectivement pas mon fort, est-ce le t dans "tu esT sité" ? Oops, il y a aussi "cité" et non "sité"...

Bonjour à tous. Mon problème (messages 16 et 17) a été résolu par didier ici, un grand merci à lui... Denis...

Salut. Que puis-je dire, c'est exactement ça... Mais j'ai dû me battre un peu avec la variable SNAPANG (qui devrait correspondre au V0 chez les géomètres) pour l'orientation du plan... Je me permettrais d'utiliser ton bout de code dans une routine de ce poste qui s'appelle "Cotation XYZ" ? Puis-je ? Bien sur, tu es sité dans ce Lisp... Mille mercis...

Bonjour à tous. Voilà, j'ai mis à disposition une routine qui, après avoir cliqué un point, dessine une flèche de rappel jusqu'à un second point cliqué et écrit dans un texte multi-ligne les coordonnées du premier point. Reprenant le problème 17 de ce post. Voici un petit exemple : Il faudrait définir le point d'insertion du texte selon la direction de la flèche. Pour cela, j’essaie de savoir dans quel quart de cercle se trouve l'angle de la flèche. Il y a 4 quarts (impressionnant hein ?) nommés selon le point d'insertion du texte, HG=Haut Gauche, BD=Bas Droit... Mon problème est que, selon l’orientation du plan, l'angle de la flèche est parfois supérieur ou inférieur à pi. Il faut aussi pensé que le plan peut être orienté avec le NORD en bas... Si quelqu'un a une astuce, un conseil ou même une routine dans sa besace... Je suis preneur... Denis...