Bred

Tout est bon : je ne manipule jamais les xdata (je m'y étais collé dernièrement pour gerer le gel dans les fenêtres avec l'aide de patrick_35....) je n'ai pas vista (je l'ai même jamais testé !).... j'ai jeté un coup d'oeuil sur internet pour savoir si quelqu'un rencontrais le problème, mais je n'ai rien trouvé (... de compréhensible pour moi an tout cas...) Ce sont des routines permettant d'ouvrir / d'écrire / de lire / de fermer Excel. Je te donnes un exemples plus concret d'ici peu.

Bonjour franckAMF, J'avais réalisé ces routines. Ne font-elles pas ce que tu veux ?

... désolé, en passant, gros oubli : merci (gile) de ton test !

Re, Ce n'est dans le fond pas compliqué : il faut juste bien traiter les xdata, et les liés aux entités selectionnés sous forme de liste.... Mais je me demande si les xdatas sont bien se qu'il te faut... Pourquoi ne pas faire cela avec des attributs ? invisible ou non ?

Salut lili2006, désolé mais je n'arrive pas à reproduire l'erreur chez moi. Je cherche depuis, mais ne trouve pas ou est ton problème... Sauf si tu n'avais pas les droits d'écriture sous c:, mais comme les test précédents fonctionnent, je ne vois pas... Si quelqu'un aurait la possibilité de tester aussi, ce serait bien sympa.... merci. On pourrait passer aussi par une gestion d'Excel avec ces routines, comme le propose un peu Derain, mais je pense que ce n'est valable que si tu veux travailler sur un tableau Excel Existant, avec une mise en page bien définis, etc.... ce qui est bien lourd à comprarer à une création d'un .csv.... mais cela est bien sûr possible !....

:casstet: :casstet: Ben alors le lisp doit marché !!!! (setq sel (ssget) f [b](open "c:\\testcim.csv" "w")[/b]) .... là je ne vois pas .... :mad:

:casstet: :casstet: :P pffffffffffff...... Comprends pas alors..... c'est la même procédure, juste l'extention change... essaye comme ça alors : même chose mais en créant un .csv.... (defun c:lili (/ nf f l) (if (setq nf (findfile "c:\\test.csv")) (progn (setq f (open nf "r") l (read-line f)) (close f)) ) (alert l) ) (defun c:lala (/ f) (setq f (open "c:\\test.csv" "w")) (princ " ça Marche !!!" f) (close f) )

... Je voulais voir si tu pouvais lire un fichier... on refais un test alors : (defun c:lala (/ f) (setq f (open "c:\\test.txt" "w")) (princ " ça Marche !!!" f) (close f) ) tu charges ça. tu tapes "lala" ... Puis tu retapes "lili" (il faut que le prog précédent soit chargé !)

Si tu veux.... tu peux aussi tester ça : tu crées un fichier "test.txt" sous c: Tu écris ce que tu veux sur la première ligne et tu test ça : (defun c:lili (/ nf f l) (if (setq nf (findfile "c:\\test.txt")) (progn (setq f (open nf "r") l (read-line f)) (close f)) ) (alert l) ) [Edité le 30/11/2007 par Bred]

Bonjour et Bienvenue ! Ce sujet récent doit répondre à ta question (la mise en page est bugé à cause d'un bbcode mal placé....)

c'est bizarre, on dirait que ça ne te créee pas le fichier.... (open "c:\\testcim.csv" "w") devrais te créer un fichier sous C: nommé "testcim.csv".... tu as bien un disque C: ??? :casstet:

... j'ai testé avec les même renseignements que tu as rentés, car je me demanandais si ce n'étais pas à cause des virgules, mais ça a marché chez moi.... Essaye quand même d'écrire des renseignements sans virgule pour voir....

Cela vient de la courbure du cercle : tu dois être à un facteurde zoom si imporatnt que tu vous une "facette"... POur te rassurer comme quoi t uas bien attraper l'instersection, agrandi l'echelle de ton cercle+polyligne : tu verras qu'il y a bien intersection.... mais un regen devrais te corriger ça normalement....

:casstet: :casstet: :casstet: c'est bizarre.... fais le pas à pas en passant par le visual lisp, à la ligne (setq sel (ssget) [b]f (open "c:\\testcim.csv" "w"))[/b] tu devrais avoir en retour (ou écris (princ f) juste après, et regarde ce que te dit la ligne de commande....) ... ou un (vl-load-com) ? ... d'autre on-t'ils le problème ? merci des retours....

Salut, copier les propriétés ou passer par la fenêtre des propriétés ne suffit pas ?

Salut, tu trouveras ici un lisp qui fait ce que tu demandes (avec en plus la rotation de la fenêtre) ... et après tu vas dans Affichage/point de vue 3D/Vue en plan SCU/Scu courant.

Salut, une première ébauche. deux commandes : cim pour enregistrer les xdata dans un objet sélectionné cimxl pour exporter les xdata des objets selectionné au format .csv (dans c:/testcim.csv) (defun getxData-lili (ent txt / 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 (cons 0 (list txt))) (vlax-safearray-fill xType '(1001 1000)) (vla-setxdata ent xType xData) ) (defun c:cim (/ ADRESSE ENT LOCALISATION NOM TXT L VLA-OB XDATA XTYPE ) (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 (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData))) (alert (strcat "Xdata Existants : " (cadr l)))) (progn (setq Nom (getstring T "\n Nom :") adresse (getstring T "\n Adresse :") localisation (getstring T "\n Localisation :") txt (strcat Nom ";" adresse ";" localisation)) (getxData-lili ent txt) ) ) ) ) (princ) ) (defun c:cimxl (/ E F I L SEL XDATA XTYPE) (setq sel (ssget) f (open "c:\\testcim.csv" "w")) (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))) (princ (cadr l) f) (princ "\n" f) ) ) ) (close f) )

Re, comme te le dit Matt666 en réponse 3 et ce que Patrick_35 veux te faire comprendre, c'est qu'il manque un guillemet, et des options.....

Salut, Pour changer une valeur de variable, c'est setvar.

Bonjour, J'ai atteinds mes maigres possibilités..... :casstet: Je cherche à connaitre, pour un objet ayant subi une rotation à partir d'un axe, la direction de cette axe et la valeur de la rotation... cela en 3D, bien sûr.... (je n'ai que les proriétés de l'objet pour ça). Un collègue me dit qu'il pense que c'est possible avec un calcul vectoriel... ce qui est un sujet que j'ai completement oublié..... je me demande même si je l'ai déjà appris....:calim: merci d'avance pour votre aide !...

Salut, C'est bien la variable UCSFOLLOW à mettre à 0.... mais dans TOUTES les fenêtre déjà créé!... (il faut les activer une par une et passer cette variable à 0) Si en espace objet la variable est à 0, les NOUVELLES fenêtres le seront aussi...

Salut, Si c'est des menus Express que tu veux parler, il faut que tu les installes par le panneau de config/ajouter supprimer des prog/Acad 2008/"modifier/suprimer ... avec le dvd AutoCAD 2008 dans le lecteur.

Salut, je te laisse chercher, mais je te donne une piste : pour voir toutes les valeurs (et las méthodes) applicable a un vla-object : (setq vla-sel (vlax-ename->vla-object (car (entsel "\n Choix de l'objet :")))) (vlax-dump-object vla-sel t)

Salut, et bien mois je ne suis pas d'accord avec (gile). En effet ici c'est un endroit de partage, et il n'y a aucun problème pour le faire. Par contre, dans mas rapports avec les clients, j'envois certains de mes plans en faisant trés attention de ne pas leur faciliter la tâche... En effet, la création de choses personnels comme les hachures, type de lignes, blocs, etc.... sont en effet facile à refaire, mais dans le volume d'un plan, et avec le nombre d'heure passer à réaliser certaines personnalisation bien utile, j'ai du mal à voir passer mon plan de main en main, voir chez les concurents, qui peuvent donc se servir "facilement" de mon travail, donc de mes heures de recherches... Par exemple : j'utilise certains blocs 3D qui sont un compromis entre la représentation réel, la manipulation à l'écran et la qualité de sortie papier en rendus et filaire. Pour arriver à cette qualité il m'a fallu des dixaines d'essais, des heures de recherches, de tests, etc.... Si j'envois mon plan avec ces blocs 3D, et qu'un concurant le récupère, il gagne toutes mes heures de recherches et a un bloc génial à l'oeuil... Ce n'est pas trés plaisant.... :casstet:

Salut, non, j'avais déjà essayé, mais ça ne fontioone pas.... merci quand même !