willy95

Merci beaucoup Didier, effectivement j'ai adapté ton code avec les "mode_tile" dans les "action_tile" résultant des "list_box" et cela fontionne à merveille. Merci beaucoup pour ta prompt réponse qui me libère bien de ma situation.

Bien qu'il n'est jamais trop tard, je présente mes sincères condoléances à sa famille, ses proches et ses amis n'ayant pas vu cette triste nouvelle plutôt.

Bonjour à tous, Je n'arrive pas à faire une boite de dialogue contenant DEUX list_box ou UN seul choix est possible sur l'ensemble. J'aimerai faire un choix dans la Catégorie A ou un choix dans la Catégorie B , si l'on choisi A le choix du B est annuler et inversement. Au final il restera une seule réponse. : boxed_column { label = \"Choisir la RUBRIQUE parmi ces deux Catégories\"; : row { : list_box { label = \"Catégorie A\"; key = \"List1\"; width = 30; height = 10 ; edit_width = 25;} : list_box { label = \"Catégorie B\"; key = \"List2\"; width = 30; height = 10 ; edit_width = 25;}}} Quelqu'un peut-il m'aider sur ce sujet ? Merci par avance.

Encore un GRAND MERCI pour vos aides précieuses, tout fonctionne parfaitement comme je le voulais. Merci

Et juste encore un petit détail, comment puis-je effacer mon cercle du début à la fin sans le sélectionner ?

MERCI BEAUCOUP A TOUS, cette version fonctionne à merveille.

Malheuresement quand je fais ça (setq ent (car (entlast) )) cela me dit : erreur: type d'argument incorrect: consp <Nom d'entité: 7ff4d69cb220> il existe surement une petite subtilité que je ne connais pas.

Mais en fait, je n'arrive pas à sélectionner le cercle juste avant tracé avec "entlast", ce bout de code me redemande par selection le cercle :( (command "cercle" "3p" DiamPoint1 DiamPoint2 DiamPoint3) (setq ent (car (entsel) )) ; sélection du cercle (setq ent-liste (entget ent)) ; création de la liste (if (= (cdr (assoc 0 ent-liste)) "CIRCLE") ; vérification du type d'entité (progn (setq XY (cdr (assoc 10 ent-liste))) ; récupération des coordonnées dans la variable XY (setq R (cdr (assoc 40 ent-liste))) ; récupération du rayon dans la variable R ) (alert "Ce n'est pas un cercle") ) ; fin du IF (princ)

Merci beaucoup pour vos prompt réponses utiles. :)

Bonjour à tous, J'ai vraiment du mal à ecrire quelques lignes en lisp pour récuperer les coordonnées du centre d'un cercle et son diametre que je viens de tracer par 3 points en utilisant (entlast). Qui peux me guider sur une solution plutot simple. Merci par avance.

Bonjour Gile, Est-il possible de créer 2 blocs distinct pour les flèches du genre : cotation-type-topo et cotation-type-topo2 car mon petit lisp bien utile me déplace une des deux flèches : (Defun Ok (e / Blk Ech Jeu i ent p1 ) (Setq Blk (Cdr (Assoc 2 (EntGet e)))) (setq ech (getreal "\nFacteur d'échelle : ")) (SetQ Jeu (SSGet "X" (list (Cons 0 "INSERT") (Cons 2 Blk)))) (setq i 0 lg (if jeu (sslength jeu) 0)) (while (< i lg) (setq ent (ssname jeu i)) (setq p1 (cdr (assoc 10 (entget ent)))) (command "_Scale" ent "" p1 ech) (setq i (1+ i)) ) (prin1) (Princ (StrCat (RtoS lg 2 0) " Bloc(s), modifiés.")) ) (setq e (Car (EntSel "\nSéléctionnez un bloc :"))) (IF (= "INSERT" (cdr (assoc 0 (EntGet e)))) (Ok e) (Princ "\nL'élément n'est pas un BLOC.") ) (Prin1) J'ai bien essayer de modifier mais la c'est trop chaud pour moi. Merci

Bonjour à tous, Existe-il un autre logiciel que Cyclone pour créer un Trueview à partir d'un nuage de point ? La lecture peut-être faite par la suite par DwgTrueview éventuellement ou pas. Merci par avance pour vos réponses salutaires.

Merci pour vos remarques, je souhaite faire une seule section de coupe différente par présentation sur Autocad 2016. Mais j'en arrive à la conclusion comme "lecrabe" qu'il n'est pas possible d'activer plusieurs sections de coupe dans un même nuage. :angry: Je vais donc utilisé plusieurs fichiers comprenant chacun une section coupe dans une présentation. Merci à vous tous

Bonjour à toutes et à tous, Je cherche à faire plusieurs "Présentations" avec chacune une "Section de Coupe" d'un même "Nuage de Points". J'ai l'idée de faire un calque différent pour chacune des coupes et ne pas activés les autres coupes dans la fenêtre, mais cela ne fonctionne pas. :angry: Après avoir testé plein de choses sans résultat, quelqu'un aurait-il une technique pour bien avoir une section de coupe différente dans chaque présentation dans un même fichier ? Merci par avance pour vos commentaire constructif.

Merci encore Tramber, C'est au top et si je comprends bien le "vla-get-...." interroge ou récupère les renseignements, bien sur grâce au "ssname" aussi :) (setq obj (ssget "_X" '((8 . "coupe")))) (setq val1 (vla-get-SectionPlaneOffset (vlax-ename->vla-object (ssname obj 0)))) (setq NVP (getreal (StrCat "\nSaisie <" (Rtos val1 2 2) "> : " ))) (vla-put-SectionPlaneOffset (vlax-ename->vla-object (ssname obj 0)) NVP) Merci beaucoup

Je pensais à un truc comme ça, mais cela doit-être brouillon car cela ne fonctionne pas : (setq val1 (ssget ":e:s" '((11 . "coupe")) )) (setq Epaisseurplus (getreal (StrCat "\nValeur <" (Rtos val1 2 2) "> : " )))

Merci Beaucoup Tramber, Si j'ai bien compris il faut mettre la récupération dans une variable et appeler l'objet à l'aide de ssname. Et la ça fonctionne, merci. En revanche comment affiché la valeur existante de la SectionPlaneOffset ?

Bonjour à tous, Pourquoi le (entlast) ne fonctionne pas ? (ssget "_X" '((8 . "coupe"))) (vla-put-SectionPlaneOffset (vlax-ename->vla-object (entlast) ) 10)) Peut-on ajouté à la valeur existante plutôt que de saisir une nouvelle valeur ? Merci par avance pour vos réponses

Merci a vous c'est exactement ça que je cherchais et cela m'ouvre une porte sur le VBA que je ne connais pas du tout et la je vois beaucoup de possibilité qui me font rêver... Bref, j'ai encore une dernière question sur ce sujet : Comment faire afficher la valeur existante de la SectionPlaneOffset ? C'est pas une histoire avec Ssget ou Entsel ? Merci pour votre aide.

Les valeurs "11" des propriétés ne sont pas modifiables par un lisp ?? (-1 . <Nom d'entité: 7ffffb158c0>) (0 . "SECTIONOBJECT") (330 . <Nom d'entité: 7ffffb191f0>) (5 . "29C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "coupe") (100 . "AcDbSection") (90 . 2) (91 . 1) (1 . "Plan de coupe (1)") (10 0.0 0.0 1.0) (40 . 20.4173) (41 . 20.4173) (70 . 70) (62 . 9) (92 . 2) (11 -41.7993 -52.0 8.96841) (11 189.065 -52.0 8.96841) (93 . 2) (12 189.065 -60.9424 8.96841) (12 -41.7993 -60.9424 8.96841) (360 . <Nom d'entité: 7ffffb158e0>)

Et pour certain peut-être en VBA avec : object.SliceDepth ?

Bonjour, Pour le passage en intensité, j'ai solutionné mon problème et cela marche parfaitement : (command "NUAGEPOINTSSTYLE" "P" "" "I") En revanche pour modifié les valeurs des propriétés de la coupe situé dans Géométrie> Décalage de coupe et Epaisseur de Section, je bloque encore. Cette question n'est pas assez clair ou trop difficile ? Ce serait dans les valeurs des propriétés : SectionPlaneOffset et SliceDepth Merci a vous

Bonjour, Je suis sur un Autocad 2016, et je souhaite ne pas avoir la grosse barre des onglets active qui me prends une partie de l'écran pour seulement 2 (DEUX) commandes, c'est pourquoi je souhaite vivement traduire dans un lisp où je pourrais mettre deux petits icones ou voir même deux raccourci clavier. J'ai déjà créer une barre spéciale pour le traitement des nuages de points qui attache mon nuage dans un calque nuage sans avoir a créer le calque au préalable, trace une ligne sur le nuage 3d qui se rabat sur mon plan 2d dans un calque scu, crée une section de coupe par un simple clic (sans sélection et désélection du nuage et de la coupe, etc... Et le top serait : 1) de pouvoir passer le nuage de Intensité à Couleur de balayage par un clic. 2) de cliquer sur + ou - pour augmenter ou réduire l'épaisseur de la section de coupe 3) de cliquer sur + ou - pour déplacer la section de coupe Je dirais tous simplement comme Autocad le propose magnifiquement mais sans les GROS onglets en haut qui me prennent vraiment trop de place (pour pas dire 1/4 de l'ecran). Sachant qu'il s'agit d'élément du nuage dans les propriétés , je pense qu'il y a une super solution à mon problème. Merci pour vos réponse utiles.

Bonjour à tous, Je cherche à me simplifier la vie et donc je recherche la commande ou l'éventuel code lisp pour qu'en une seule touche je puisse passer mon nuage de point de "Intensité" à "Couleur de balayage" dans la Stylisation. Sans avoir a sélectionner le nuage et ouvrir les propriétés ou les gros onglets d'autocad. et à reproduire sans les gros onglets quatre icones, les commande de modification "d'épaisseur de section" et "décalage de coupe") (Chacun avec un + et un - ) J'ai par ailleurs trouver les commandes pour les valeurs d'incrémentation (sectionoffsetinc et sectionthicknessinc). Merci d'avance pour vos réponses qui je l'espère seront enthousiasmante.

C'est Top également, Merci pour l'info. En revanche le nom de la Commande Covadis est bien dur à retenir, (et la trouver dans les menu déroulant doit-être coton).