Fraid

Bonjour, Je dois renommer des blocs selon un texte contenu dans celui ci je pensais y arriver comme cela (defun c:rbco ( / cont selbloc namebloc bloc ent Texte TTexte Calq fintexte bloctorename ) (setq cont 0 selbloc (ssbloc) ) (if selbloc (repeat (sslength selbloc) (setq namebloc (cdr (assoc 2 (entget (ssname selbloc cont))))) (setq ent (cdr (assoc -2 (tblsearch "block" namebloc)))) (while ent (setq ent (entget ent) Calq (cdr (assoc 8 ent)) ) (if (setq Texte (cdr (assoc 1 ent))) (if (and(= Texte "n°*") (= Calq "Z3_coupe")) (setq bloctorename namebloc TTexte Texte ) ) ) (setq ent (entnext (cdr (assoc -1 ent)))) ) (if bloctorename (progn (if (= (strlen TTexte) 4) (setq fintexte (substr TTexte 3)) (setq fintexte (strcat "0" (substr TTexte 3))) ) (vl-cmdf "_-rename" "_b" bloctorename (strcat NomCoupe fintexte)) ) ) (setq cont (1+ cont)) ) ) ) la variable NomCoupe est une variable globale a laquel je veux ajouté son numero present dans le bloc sous la forme d'un texte "n°1" ou "n°12". mal au crane aujourdhuis, n'arrive pas a me concentré pourquoi sa marche paaaaaaaaaaaaaaah :( merci je precise que je n'ai pas de message d'erreur mais que le bloc n'est pas renommer [Edité le 21/3/2011 par Fraid]

Bonjour, l'un des concept d'Autocad que les débutants on du mal a comprendre, c'est les deux espaces. Je te conseil donc de commencé par là. ne les embrouille pas tout de suite avec la personnalisation. évidement présenter l'interface (menus, icones, palettes...) et l'interactivité de la barre de commande. en une demi journée les généralité sont présentées a mes yeux, si tu veux des résultat, il faut qu'ils passent aussitôt au travaux pratiques sur des plans les concernant. commence par leur faire modifier des plans les premières questions intéressantes arrivent a ce moment. encore une demi journée de passé tu augmente la difficulté le lendemain tout en restant sur les mêmes plans et en leur présentant les commandes de créations d'objets. de toute façon ils faut qu'ils dessinent pour que cela rentre. tout en restant prés d'eux pour montrée les manips parfois difficile a expliquer. (editions par les poignées par exemple ) En tant que chef d'entreprise, je formais de cette façon et obtenais généralement des résultats satisfaisants. Bon courage

essaye ceci http://www.01net.com/telecharger/windows/Internet/aspirateur/fiches/1911.html après tu surf en local parcontre il faut bien regler l'aspiration car tu remplis facilement un disque dur ;) il me semble que j'ai l'ensemble des messages je n'ai pas vérifié et j'ai mis cela sur un disque dur, bien au chaud.

C'est le champ de recherche par défaut en haut à gauche du site qui pointe sur un moteur Google personnalisé. A peu de choses près c'est équivalent à la syntaxe que tu donnes.

Bonjour, Quand j'ai commencé a apprendre Autolisp, j'avais pris le fait que le Lisp avait été créer pour la recherche en Intelligence Artificielle pour une anecdote. En fait, c'est toujours le cas, mais cette fois dans le domaine de la DAO-CAO. Nous pouvons faire réagir Autocad "circonstanciellement" selon nos habitudes ou les différent projets que nous réalisons. Car, si le Lisp permet de faire la liste et manipuler a souhait les objets, il peut aussi en faire autant avec les réglages "intimes" d'Autocad ainsi que ceux de Windows. Du coup, nous sommes vraiment assisté pendant que nous dessinons et cela nous permet de mieux nous consacré l'aspect technique de notre travail. C'est pour moi une véritable aventure que je suis heureux de partager sur ce Forum, qui j’espère vivra encore longtemps.

Bonjour, Merci d'avoir essayé cela (il faut bien des cobayes) moi qui m'appretais a essayer d'installer une version 2000 sur un seven 64bits je vais donc m'abstenir :P

Bonjour, et Bienvenue qu'appele tu un groupe de segments clos? ce n'est pas déjà des polylignes?

Bonjour, Un p'tit site plutot sympa http://www.afralisp.net/autolisp/tutorials/the-basics-part-1.php

Bonjour, a tu essayé FUSION ? http://www.cadxp.com/XForum+print-fid-58-tid-13085.html

Bonjour, Il y a une commande a laquelle on ne pense pas souvent SELECTSIMILAR à tester

Bonjour, Essaye avec Google en mettant a la fin de tes mots site:cadxp.com pour ta selection PICKFIRST à 1 me semble etre la solution ;)

Sinon pour repondre a la question premiere Bryce http://www.afralisp.net/archive/methods/methods_ref.htm#P ce n'est pas genial, mais cela dépanne bien. :D

Bonjour, La commande pour mettre à jour les attributs est ATTSYNC Bon courage

Bonjour, Il suffit de definir le nom de la commande avec un defun va voir dans le forum Débutant, il y a des explications de Gile (defun c:khb (/ b o) (vl-load-com) (vlax-for b (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (or (= (vla-get-IsLayout b) :vlax-true) (= (vla-get-IsXref b) :vlax-true) (vlax-for o b (if (wcmatch (vla-get-ObjectName o) "AcDb*Dimension") (vla-delete o) ) ) ) ) )

Bonjour, http://dl.free.fr/eDFMI5ZxK tu as de la chance, j'ai acrobat pro

Bonjour, Tu répond a ta question tout seul. :D Décharge les xref qui ne te servent pas pour dessiner et ne laisse pas ton gestionnaire de référence externe ouvert. sinon passe en 64bits et achète de la RAM. bon courage

Bonjour, Une alternative que je préfere (ssget "_X" (list (cons 0 "CIRCLE")(cons 410 (getvar 'ctab)))) qui permet de sélectionner dans l'espace courant. [Edité le 7/3/2011 par Fraid]

Désolé du dérangement j'ai cherché un peu plus et j'ai trouvé http://www.cadxp.com/XForum+print-fid-101-tid-14086.html

Bonjour, A l’intérieur d'une fonction, Y a t'il un moyen de récupérer le nom de la commande qui utilise cette dernière sans passer par un argument ?

http://dl.free.fr/phs3crOpY

Donc pour cloturé ce sujet (mapcar 'gelaybyname '("albert" "gustave" "*ierre" "*ean*")) (defun gelaybyname ( nomlay / listlay) (vlax-for listlay (vla-get-layers *acdoc*) (if (wcmatch (vla-get-Name listlay ) nomlay) (vla-put-Freeze listlay :vlax-true) ) ) ) je préfère en fin de compte gérer la liste dés le départ afin d’alléger la fonction. en plus je vais pouvoir m'en servir comme modele :D

Merci j'etais partis, en voulant selectionné les xrefs :o c'est la premiere chose que j'avais essayé, le * puisque c'est comme cela que je fais en autolisp qui lui n'a pas besoin de wcmatch ! du coup je vais m'en souvenir de celle la. et member j'aurai pu y penser encore merci :P j'ai encore beaucoup de progrès a faire, mais je m'accroche... je me suis équipé d'une lampe frontale, car je suis loin de voir la lumière au bout du tunnel.

Bonjour, si tu est sans unité partout je ne vois pas comment tu peux regler ton probleme. choisi tout d'abord dans quel unité tu travail. le 1 dans autocad veut dire quoi pour toi?

Bonjour, Dansle cadre mon apprentissage du VLA, je modifie mes routines existantes que j'ai réalisés en autolisp simple. et bien...ce n'est pas si simple... :P de simples commandes peuvent devenir compliquées en VLA. voila un de mes problème: pour remplacer par (gelaybyname "albert") (defun gelaybyname ( nomlay / listlay) (vlax-for listlay (vla-get-layers *acdoc*) (if (= (vla-get-Name listlay ) nomlay) (vla-put-Freeze listlay :vlax-true) ) ) ) pas de soucis, ça marche par contre 1)si albert est un calque d'une xref cela ne fonctionne pas (nil) faut il récupérer la liste des calques dans les xrefs? dans ce cas la dans quoi allons nous chercher avec le vla-get-layers? 2) si nomlay est une liste faut il rajouter un vlax-for? mais a quel niveau? peut etre une façon moins compliqué existe t'il? je vous épargne de mes essais lamentables... je sais qu'il existe un tas d'exemple, sur ce forum et ailleurs, mais comme je voudrai comprendre...j'ose poser ma question. merci de prêter attention a mon petit probleme sans importance ;)

Bonjour, _mpedit