lili2006

Bonjour à toutes et tous, Merci thierry.garré. Si j'avais eu ce document, j'aurai moins galéré,... En plus, j'ai même pas fait comme ça et ça marche quand même (j'ai mis l'accroche topo directement sur F9 !). Bon réveillon à tous,

Bonjour à toutes et tous, Ca laisse à réfléchir,...

Re, Pourtant sur l'éxécutable, le nom est bien 'SP10", mais tu as surement raison, cela doit être SP1.0,..bref, peu d'importance, le tout c'est que l'ensemble fonctionne,... @+

Bonjour à toutes et tous, En effet, fallait le savoir,... Merci pour l'info yusukens82 As-tu installé le sp10 ? Tout s'est bien installé chez moi et j'ai noté quelques améliorations décrites sur le document à consulter en faisant quelques tests. Pourquoi ce nom de sp 10, alors là, aucune idée !!

Re, Même constat ! j'ai essayé de mettre le format des cellules en texte mais là AutCAD ne reconnait plus rien (message => Entité 159000000 Non trouvé !) Sinon le reste fonctionne Nickel ! Autre idée sur les requêtes => Peux-ton donner deux critères par exemple porte (pour l'élément) et marron (pour la couleur) sans qu'il y ai de selection de toutes les portes et de tous les éléments marrons ? (J'en demande peut-être un peu beaucoup là,... ! On rentre vraiment dans l'esprit du Map de AutoCAd ou de Mapinfo, par exemple, progiciel de SIG, mais si c'est jouable que avec AutoCAD, alors là TERRIBLE !)

Bonjour à toutes et tous, En effet Bred, je pense que c'est ce qui se passe,... J'ai recompilé ton code comme ça alors et je le teste de suite => ;;; Requètes (defun c:R-Xdata (/ I L LST LST-B N S S-T VLA-OB XDATA XTYPE) (princ "\n Recherches des Renseignements :") (setq lst (Renseignements-XDATA "Q")) (setq s (ssget "_X" (list (list -3 (list (car lst))))) s-t (ssadd)) (repeat (setq i (sslength s)) (setq vla-ob (vlax-ename->vla-object (ssname s (setq i (1- i))))) (vla-getxdata vla-ob "" 'xType 'xData) (if (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData))) (repeat (setq n (length (setq lst-B (Renseignements-XDATA nil)))) (if (equal (strcase (cadr (member (strcase (nth (setq n (1- n)) lst-B)) lst))) (strcase (cadr (member (strcase (nth n lst-B)) l)))) (ssadd (handent (cadr l)) s-t)) ) ) ) ) (if (zerop (getvar "cmdactive"))(sssetfirst nil s-t)) (if (> (sslength s-t) 1) (princ (strcat "\n "(rtos (sslength s-t)) " objets sélectionnés.")) (princ (strcat "\n "(rtos (sslength s-t)) " objet sélectionné.")) ) (princ) ) ;;; Renseignements (à modifier) pour enregistrement Xdata (defun Renseignements-XDATA (Q / I LST-F LSTR R) ; liste à modifers pour reneignements : (setq lstR '("ELEMENT" "LONGUEUR" "LARGEUR" "COULEUR" "NOMBRE" "SALLE" "BATIMENT" "ETAGE")) (if Q (progn (setq i -1) (repeat (length lstR) (setq R (getstring T (strcat "\n " (nth (setq i (1+ i)) lstR) " :")) lst-F (append lst-F (list (strcase (nth i lstR)) R))) ) lst-F ) lstR ) ) ;;; Retourne Xdata dans Objet. (defun c:RXO () (setq ent (car (entsel "\n Choisir l'objet contenant les renseignements :"))) (if ent (if (not (Test-Xdata ent)) (alert "\n Pas de Xdata dans cette entité."))) (princ) ) ;;; Test Existance Xdata (defun Test-Xdata (ent) (if ent (progn (setq vla-ob (vlax-ename->vla-object ent)) (vla-getxdata vla-ob "" 'xType 'xData) (if (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData)) i -1 txtt "") (repeat (/ (length l) 2) (setq txtt (strcat txtt "\n" (nth (setq i (1+ i)) l) ": " (nth (setq i (1+ i)) l)))) (alert (strcat "Xdata Existants : " txtt)) t ) ) ) ) ) ;;; Programme Demandant/Donnant la liste Xdata dans entité. (defun c:L-Xdata (/ ENT I LST-D VLA-OB) (setq ent (car (entsel "\n Choisir l'objet dans lequel enregistrer les renseignements :"))) (if ent (progn (setq vla-ob (vlax-ename->vla-object ent)) (vla-getxdata vla-ob "" 'xType 'xData) (if (not (Test-Xdata ent)) (progn (setq lst-D (Renseignements-XDATA "Q") i -1) (Set-xData ent (list "ENTITE" (vla-get-handle vla-ob))) (repeat (/ (length lst-D) 2) (Set-xData ent (list (nth (setq i (1+ i)) lst-D) (nth (setq i (1+ i)) lst-D))) ) ) ) ) ) (princ) ) ;;; Enregistres Xdata des entités selectionnés dans fichier .csv (defun c:XdataXL (/ E F I L SEL XDATA XTYPE) (setq sel (ssget) f (getfiled "Nom Fichier à enregistrer :" "" "csv" 1) f (open f "w")) (repeat (setq i (length (setq lst (reverse (append (list "ENTITE") (Renseignements-XDATA nil)))))) (princ (strcat "'" (nth (setq i (1- i)) lst)) f) (princ ";" f) ) (princ "\n" f) (repeat (setq i (sslength sel)) (setq e (vlax-ename->vla-object (ssname sel (setq i (1- i))))) (vla-getxdata e "" 'xType 'xData) (if (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData)) x -1) (repeat (/ (length l) 2) (princ (strcat "'" (nth (setq x (+ x 2)) l)) f) (princ ";" f) ) ) ) (princ "\n" f) ) (close f) ) ;;; Récupères les données d'un .csv pour les mettre en Xdata. (defun c:XLXdata (/ ADRESSE ENT F H L LOCALISATION NOM) (setq f (getfiled "Choisir Fichier :" "" "csv" 4) f (open f "r") l "l" R (Renseignements-XDATA nil)) (while l (setq l (read-line f)) (if l (progn (if (not (vl-string-search "ENTITE" l)) (progn (if (vl-string-search "\"" l) (setq l (substr l (+ 2 (vl-string-search "\"" l)) (strlen l))) ) (setq h (substr l 1 (vl-string-search ";" l)) ent (handent h)) (if ent (if (entget ent) (progn (Set-xData ent (list "ENTITE" h)) (setq i -1) (repeat (length R) (setq l (substr l (+ 2 (vl-string-search ";" l)) (strlen l)) D (substr l 1 (vl-string-search ";" l))) (if (vl-string-search "\"" D) (setq D (substr l 1 (vl-string-search "\"" D)))) (Set-xData ent (list (strcase (nth (setq i (1+ i)) R)) D)) ) (princ (strcat "\n Entité " h " Mis à Jour.")) ) (alert (strcat "Entité " h " Supprimé !")) ) (alert (strcat "Entité " h " Non trouvé !")) ) ) ) ) ) ) (close f) (princ) ) ;;; Routine Enregistrement Xdata dans entité : (Set-xData '("Nom" "Toto")) (defun Set-xData (ent lst / VLA-OB XDATA XTYPE) (if (equal (type ent) 'ENAME)(setq ent (vlax-ename->vla-object ent))) (setq xData (vlax-make-safearray vlax-vbVariant (cons 0 1)) xType (vlax-make-safearray vlax-vbInteger (cons 0 1))) (vlax-safearray-fill xData lst) (vlax-safearray-fill xType '(1001 1000)) (vla-setxdata ent xType xData) )

Re, C'est la mentalité de ce forum qui me séduit moi aussi. C'est le cas pour tous ici, et à chacun son niveau. Il est vrai que sur les 40 000 menbres, forcément chacun trouve son bonheur,... Bonnes fêtes de fin d'année.

Re, Heu ! j'espère que tu ne comte pas sur moi,... Comme tu as pu le constater, je suis à 80¨% demandeur sur ce forum plutôt que "productif" ! ca, des idées, c'est pas c'qui manquent,.... Encore bravo !

Bonjour à toutes et tous, Alors là, bleuffant ! Hormis la technique mis en oeuvre derrière tout cela, je me demande comment cela peut être aussi aléatoire, qu'avec 3 cartes !! Evidemment, on peut toujours avoir des idées "d'amélioration", du style : Partie en dix coups avec décompte de points, Manche avec deux joueurs sur 3 parties,... En tout cas, chapeau ! Et merci pour cette démonstration,...

Bonjour à toutes et tous, bonuscad, en effet une trés bonne alternative qui évite le Lisp, donc trés interessant. Merci encore.

Re, Bred, il semble qu'aprés modif du fichier .csv, AutoCAD ne reconnaisse plus les handles, j'ai le message du style => <!--url{0}--> et, effectivement les xdatas ne sont pas mis à jour dans AutoCAD, mais j'ai peut-être mal fait une manip,.. Je confirmerai tout ça demain,... Bonne nuit (ou bonjour !).

Re ou plutôt bonjour à toutes et tous, Merci pour cette précision bonuscad, mais j'crois qu'j'ai rien compris ! Pas assez de connaissances dans les différents domaines de la programmation me semble t-il,... Si tu peux éclairer ma lanterne, c'est pas de refus,... Bonne nuit ou ... bonjour, j'sais plus trop !

Re, J'ai parcouru un peu plus en détail le volume 2D, il y a vraiment du boulot d'abattu, ouf ! (combien d'heures de formation pour dispenser le contenu ?). Quand à la 3D, comme je l'ai écrit dans un autre post, le même document sur la V2007 (ou même mieux 2008 !) serait du tonnère car je pense que beaucoup de "vieux" utilisateurs de la 3D AutoCAD ne ce sont pas mis aux nouveaux outils et nouvelles méthodes car il y a eu un sacré changement (en positif, bien sûr !). Si tu t'y atèles, je te souhaites bon courage et surveillerai ça de prés car trés intéressé (hum, je fais partie de ceux qui n'ont pas encore eu le temps de VRAIMENT s'y mettre,...!). En attendant, bonnes fêtes de fin d'année bien méritées,... Au plaisir,

Bonsoir à toutes et tous, Heu ! Que dire à part merci ! Même entre deux bouteilles tu arrives à produire (et pour les autres en plus !!). Merci Bred, je teste ça et te fais les retours d'usage,... C'est tout ce que je voulais savoir, le temps, il faut le prendre avant d'aboutir à quelques choses qui nous correspond,... J'ai appris ça en enseignant,..! Merci encore et bonnes fêtes de fin d'année à toi et tes proches (valable pour les autres menbres de cadXP, bien sûr !) A bientôt.

Re, Que dire de plus à part merci (pour la 23000 ème mille fois cette année,....) C'est vraiment super comme ça ! yw22, je viens de regarder en détail ce que tu proposes, c'est à peu près ce que l'on a fait, donc tout va bien (à part peut-être le chemin complet,... mais dans l'aide AutoCAD, j'avais compris ça aussi moi !!, bref) (Tiens au passage, j'ai trouvé une erreur de frappe en haut de la page 96 "Affclich" à la place de "Aff iclich") Merci à toi également pour ce travail mis au service de tous (et surtout des plus démunis d'entres-nous, je pense aux chômeurs, puissent-ils se reconvertir dans ce métier passionnant,...) Au plaisir.

Re, Un extrait de l'aide, je ne sais si cela peut te servir,... <!--url{0}-->

Bonsoir à toutes et tous, Et même en tapant "ED" ? Encore une de ces satanée variable, je suppose,... Je continu de chercher mais forcément sur ce site quelqu'un connait la réponse !

Re, C'est super (gile), j'estime à plus de 50 les clichés dont je vais avoir besoin pour mon cours, donc là, je n'aurais pas de problème de gestion du temps et avec des étudiants, c'est préférable,.... Merci encore. Mais j'y pense, peux-t'on revenir en arrière sur le diaporama si le besoin s'en faisait sentir ?? Mais, c'est déjà parfait comme ça et t'en remercie encore, cela va apporter un plus dans mon cours et une gestion beaucoup plus simple des "gros" fichiers ou il faut souvent attendre longtemps avant qu'ils ne chargent (quand le logiciel ne plante pas !) Un p'tit merci pour moi et un grand pour mes étudiants,(certains nous suivent de près !,....).

Re, Merci d'avance (gile), je teste ça et revient.

Re, Ok ! J'ai plus qu'à bien ficeler mon cours,... J'ai remarqué cependant qu'en utilisant la touche "échap", le cliché reste affiché et lorsque l'on utilise (juste après) la commande "entrée", AutoCAD nous donne la main sur le temps de pause ,, ! MAIS ça s'arrete là ! Il faut alors relancer le script, donc aucun intérêt ! Merci en tous cas (gile) de t'être penché sur le problème. PS : Il reste toujours la solution d'envoyer "manuellement" les clichés, dommage qu'il faille passer par une BD, un clic droit (ou entrée) aurait été parfait ! En Lisp, peut-être ??

Re, En effet, merci pour cette info (gile). Et sans minutage, tu as une idée ?

Re, Et ji je veux lancer le script avec tous mes clichés MAIS gérer (par un clic de souris, par exemple) moi-même le passage d'une diapo à une autre, comment dois-je m'y prendre ? Voici le dernier jet du script en question => ;Commencer le diaporama, charger : Affclich C:\Users\Lilian\Desktop\Diaporama-AutoCAD-Exemple\PARKING-A1-1-200 Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama-AutoCAD-Exemple\courbes-de-niveau Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama-AutoCAD-Exemple\DETAIL1 Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama-AutoCAD-Exemple\DETAIL2 Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama-AutoCAD-Exemple\DETAIL3 Delai 3000 Rscript

Rere, Merci (gile), c'était bien un problème d'espace ! Tout fonctionne bien maintenant,.. didier, le chemin était ok ! Merci à vous.

Re, Je vais essayer les différentes pistes que vous me proposez et revient ! J'ai fait les démarches usuelles mais j'ai bien l'impression qu'on ne peut plus gérer grand chose sur ce site,...

Bonjour à toutes et tous, Pour préparer un cours sur les commandes covadis VRD, j'ai réalisé des fichiers ".sld" afin de réaliser un diaporama, seulement voilà, ça marche pas ! (Etonnant, non ,). Forcément, j'ai oublié quelque chose . Voici le script => ;Commencer le diaporama, charger : Affclich C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\plan PARKING-A1-1-200.sld Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\courbes de niveau.sld Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\DETAILl n°1.sld Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\DETAILn°2.sld Delai 3000 Affclich C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\DETAIL3.sld Delai 3000 Rscript Bien que le fichier support soit dans les chemins de recherche d'AutoCAD, j'ai pourtant ce message => Je suppose que le problème vient de l'écriture du script ! Une idée ? Merci d'avance.