Arcasdk

J'ai bien une phrase du genre qui est écrit dans le code (setq xl (vlax-get-or-create-object "Excel.Application")) (vlax-import-type-library :tlb-filename "c:/program files/microsoft office/office/excel9.olb" :methods-prefix "xl-" :properties-prefix "xlp-" :constants-prefix "xlc-") (setq xl_wks (vlax-get xl "workbooks")) Le problème dois venir d'ailleurs...

Bonjour à tous, il y a quelques temps j'avais fait ce programme (juste au dessus), qui fonctionnait très bien et qui me permettait de dessiner un boulon en fonction d'une liste dans excel. Alors je ne sais pas si c'est le passage de xp à seven qui fait mais plus moyen de le lancer..... J'ai l'impression pour commencer qu'il ne trouve plus le fichier olb d'excel.... Mais ce n'est peut être pas tout. :tlb-filename "c:/program files/microsoft office/office/excel9.olb" Quelqu'un peut m'aiguiller sur les lignes de codes qui ne vont pas? Merci bcp

Petite précision pour Steven :P , mon pseudo c'est ArcasDK (DK comme dunkerque) et non Arca DSK....Ca sonne moins bien je trouve. Cela me rappelle une personne qui a fait coulé beaucoup d'encre. :blink:

Moi je suis chaud pour tout ;-) c'est le client qui va recevoir le plan qui sera moins chaud quand il va se rendre compte qu'il n'arrive pas à sélectionner un trait sans tout sélectionner.. Mais merci en tous cas!

Arf, c'est bien ce qu'il me semblait.... Ben c'est une boite de réduction avec des engrenages... merci en tout cas

Bonjour, je me demande si il existe une commande qui permet de créer un polyligne composée de plusieurs calque... Genre le calque 0 et le calque caché. Vous aurez compris que c'est parce que j'aime dessiner mon plan pièce par pièce et que dessiner le contour entier en polyligne facilite la compréhension quand on survole les objets avec la souris. (et que la surbrillance dans autocad est activée) Je n'ai pas envie de passer par les blocs (sauf si on me prouve que c'est aussi rapide) Et les groupes n'ont pas la côte chez les dessinateurs (j'en ai jamais croisé dans les plans que je reçois) Une autre solution? Merci à tous

Merci, ca fonctionne!

ah merci, la deuxième fonctionne. Si je ne sélectionne pas d'entité avant de lancer la première.... cela ne fonctionne pas!! Merci

Re coucou, est ce qu'un truc dans le genre est possible? (defun c:sssd (/ js) (or js (setq js (sssetfirst nil (ssget "_I" '((0 . "DIMENSION")))))) )

Parfait, c'est ce que je voulais... Et je garde en tête les deux commandes. la commande "select" avec l'option "p" peut avoir son utilité. PS: Est ce normal que je ne trouve plus tout mes sujets de discussion (depuis 2008). Merci à tous

Bonjour à tous, je rebondis sur ce topic juste pour avoir une réponse à mon problème qui est sensiblement le même. Je n'ai ni envie de passer par qselect, ni par filter. J'aimerai qu'il me sélectionne toutes les cotations de mon plan. lorsque je tape (ssget "_x" '((0 . "DIMENSION"))) dans la barre de commande, il me créer un jeu de sélection mais je n'ai rien de sélectionné à l'écran... Comment faire pour avoir une réelle sélection. Merci

Merci Bryce c'est exactement ce que je cherchais. Et c'est vrai qu'un peu de V-Lisp, c'est pas mal. C'est pas que ca me fait peur mais c'est que je ne sais pas ou chercher les commandes... Merci à toi aussi VDH-Bruno, si ta commande n'était pas aussi longue j'aurai certainement recopié la tienne mais tu ne m'en voudra pas si je pique la syntaxe de Bryce. En revanche je suis quand même curieux de savoir où tu trouves la correspondance des (assoc 1040) ou (assoc -3). Qu'est ce qu'on trouve dans les Xdata, et comment on les parcoure..? Merci à tous!

Coucou, merci de ta réponse. C'est bien ce que j'ai fait.... mais il n'y a rien qui a comme valeur "100" dans les codes dxf. Du coup je n'arrive pas à faire mon jeu de sélection....

Bonjour à tous, Aujourd'hui j'ai importé une présentation inventor vers autocad. Et dans un souci de respecté les préférences du client au niveau des calques, des styles de cote ou texte, je me dois de faire un peu de ménage. Quand inventor converti une présentation vers autocad, les cotations sont toutes à la même taille, la seule chose qui peut me les différencier c'est l'échelle linéaire qui change lorsque l'échelle de la vue change (100 pour une vue au 100ème, 20 pour une vue au 20ème...) Lorsque que je fais un (entget (car (entsel))) sur une de ces côtes, je ne trouve pas le paramètre (le code DXF) qui me dit que la côte est à l’échelle linéaire 100. Comment puis je faire pour me faire un jeu de sélection (ssget) avec toutes les côtes qui ont la même échelle linéaire. D'autre part, je souhaite importer des style de côte que j'ai sur d'autres plans. Existe t'il un moyen de les charger avec une commande lisp

Oui l'explosion est l'ultime solution...... Mais sinon, que dois je comprendre par "boundingbox"! ;-)

up ;-)

Bonjour, j'ai un ptit souci aujourd'hui. J'ai une routine qui imprime tout les plans autocad d'un dossier. Ces plans ont la présentation (cadre, cartouche, cote.....) qui est dessiné dans l'espace objet. Le problème est que dans certains plans, les côtes angulaires (ou autres côtes) ont leur centre ou leur point d'accrochage qui sortent de mon cadre. Et donc, à l'impression étendu, mon plan n'occupe pas toute la surface de mon format de sortie. Peut on masquer ces fameux points d'accrochage de côte? Merci

Bonjour, j'ai crée un tube à partir d'une extrusion sur Inventor, je le convertit en tôle pour réaliser un dépliage car j'ai une découpe difficile à réaliser et qui nécessite un développé de tôle. Je souhaite réaliser une découpe le long de mon tube avec l'outil découpe du module tôlerie. Mais je n'arrive pas à sélectionner les références requises. J'aurais voulu savoir si du fait que ma construction soit de base "extrusion", est ce qu'il faudrait refaire mon tube avec une tôle roulé dans le module tôlerie, pour ensuite effectuer ma découpe, puis mon dépliage ?

Ah cool, ça fonctionne! J'ai mis le temps à comprendre que le mode pas à pas ne fonctionne pas avec la fonction Lambda mais j'ai réussi. Merci VDH-Bruno Merci tout le monde. Voici ma macro pour les curieux (setq js2 (ssget "_X" '((62 . 2)))) (sslength js2) (setq x 0) (while (/= x (sslength js2)) (setq name (entget (ssname js2 x))) (entmod (vl-remove-if '(lambda (x) (or (= (car x) 420) (= (car x) 430))) name)) (setq x (+ x 1)) )

C'est exactement ça lecrabe! A la différence près que justement le grayscale ne fonctionnera pas. Je n'aurai que des traits noir sur mon dessin!!

Merci bcp pour vos réponses, je vais m'expliquer. J'ai transformé des plans inventor en autocad. Le problème c'est que Inventor utilise les vraies couleurs. Donc dans autocad je me retrouve avec des calques utilisant les vraies couleurs. Mais lorsque j'imprime mon plan en monochrome, eh bien je me retrouve quand même avec des traits en nuance de gris.... Donc maintenant je cherche à remplacer les vraies couleurs par celle de l'index d'autocad. Et ce par macro...Et avec mes quelques connaissances, je pensais qu'il fallait modifier les groupes (et notamment le 62). Sauf que pas de chances, que ce soit la vraies couleurs ou celle de l'index, le groupe 62 a 2 comme valeur.... Merci encore.

Arf.... oui c'est compliqué mais je pense que tu as fait mouche.... Donc en gros moi j'ai le groupe 420 en trop dans mon entget.... On peut l'enlever pour que l'entité devienne couleur 2 à partir de l'index?

ouep ouep, je suis bien d'accord. Peut-on l'utiliser dans un lisp en ligne de commande? (command "??????" ......) Merci

Bonjour, je rencontre un problème aujourd'hui car Autocad m'imprime les entités qui possède une couleur 255,255,0 en nuance de gris alors que je suis en monochrome.... Je cherche donc à sélectionner toutes les entités de mon dessin afin de les mettre en Jaune (couleur 2) (clef DXF 62) mais Autocad me renvoi la clef DXF 62 avec une valeur "2" quelque soit la couleur.... jaune ou 255.255.0! Donc aucune différence dans les codes DXF pour ces deux couleurs... Comment faire pour me faire un jeu de sélection en lisp ou Vlisp pour pouvoir ensuite tout passer en vraie couleur 2? Merci

Bonjour à tous, Très bonne surprise en arrivant ce matin, J'ai trouvé en réponse exactement ce que je cherchais. Merci Bryce et merci à tous.