Arcasdk

Merci bcp (Gile)

ouh là....Bon si je ne me trompe pas, c'est la première solution J'ai un bloc "Cartouche" dans un dessin avec des attributs. Ces attributs ont une étiquette (code dxf 2 que je connais) par exemple "Échelle" Et je voudrais récupérer la "Valeur" (et non la valeur par défaut) Qui sera par exemple "1/2" Bien sur je vais en récupérer plusieurs et je pense que tous mes noms d'étiquette seront stockés dans un fichier texte Merci beaucoup [Edité le 22/1/2009 par Arcasdk]

Le dll fonctionne nickel (Gile), merci. Pour le msi je ne peux pas l'installer..... problème de droits administrateur. En revanche si je peux me permettre, J'apporterai une petite option à "gc-GetFolderDlg". Ne pourrait-on pas définir un chemin par défaut. Parce que j'ai des chemins de répertoire à rallonge et je dois toujours remonté toute l'arborescence pour cibler mon dossier. Cela dit, encore merci tout fonctionne nickel Lili2006 est trop fort. Il a été écrire son message dans le futur et est revenu après. Il y a un problème dans l'horloge [Edité le 22/1/2009 par Arcasdk]

Merci (Gile), dis moi ta réponse N°6 est toute fraiche, je pose donc ma question au bon moment.... ;-) bon boulot pour le .msi Merci aussi à capde06 bien que la réponse reste rapide.... Mais c'est le geste qui compte... ;-) ^^

Bonjour, en fait je souhaiterai retrouver le cdr de assoc 1 connaissant le cdr assoc 2 des attributs de "UNBLOC"

Bonjour, est-il possible de récupérer la valeur d'un attribut connaissant son nom. Je pensais pouvoir le faire avec un "tblsearch" ou "tblobjname" mais l'attribut ne fait pas partit (il me semble) des types d'objet qui sont utilisés par ses deux commandes Merci

Bonjour, j'ai besoin dans l'un de mes LISP de spécifier un chemin de dossier. La commande la plus proche que je connaisse est "getfiled" mais le problème c'est qu'on me demande de spécifier un fichier alors que mes répertoires sont vides... Y a t'il une commande ou une astuce??? Merci

Dans cui tu trouveras tous les boutons d'autocad. Tu cliques sur le bouton "créer une nouvelle commande" et là tu verras tous les boutons. Tu pourras en choisir un et même le modifier et l'enregistrer sous. Bon courage

Bonjour bonjour, Est-ce que quelqu'un me dira que je m'emporte, si je dis que c'est complètement débile (A moins qu'il existe une raison particulière).

Coucou, Effectivement la subtilité du "OR" au départ est un peu flou pour moi. Je l'ai traduit par --->"à moins d'une sélection, sélectionner les objets" ....C'est pas très clair hein......????? [Edité le 15/1/2009 par Arcasdk]

Merci à vous deux. Voila ce que j'ai pu faire.... celà fonctionne. Mémoriser un jeu de sélection (defun c:test (/ js x) (or js (setq js (ssget)) (sslength js) (setq x 0) (while (/= x (sslength js)) ;ECRIRE LE PROGRAMME ;FIN DU PROGRAMME (setq x (+ x 1)) ) ) Je voulais utiliser le "entnext" mais cela ne doit pas être approprié pour passer d'entités à entités. [Edité le 15/1/2009 par Arcasdk]

Bonjour à tous, Je souhaite une très bonne année 2009 à tous les autocadiens (et les autres aussi mais bon...d'abord ceux de mon clan ;-) ).... En ce mardi, je cherche à écrire les quelques lignes de code qui me permettront de garder les entités qui sont sélectionnées même si je lance mon programme après. Et si rien n'est sélectionné, alors mon lisp me le demandera plus tard... Je n'ai vraiment aucune idée du nom de la variable qui stocke les entités sélectionnées. Qqn pourrait m'aiguiller?

Bonjour je cherche à créer un ptit lisp pour faire du ménage dans mes calques. Mais ca commence mal.... La commande suivante ne me retourne strictement rien...... (setq js (ssget "_x" '(0 . "LAYER"))) Je ne vois pas ce qui cloche... Merci

Bonjour, il m'arrive de trouver des textes qui ont leurs positions en x, y et z verrouillés. Lorsque l'on regarde dans la barre des propriétés, la partie "géométrie" est grisée. Est ce que quelqu'un sait d'où cela vient? Même avec un lisp qui change directement les valeurs dans les références dxf (avec un subst, entmod et entupd) rien ne bouge.?????? Merci [Edité le 2/10/2008 par Arcasdk]

Bonjour Patrick_35 et merci. Donc j'ai fait comme tu as dit. Avec entlast et entdel après une insertion en 0.0. Merci aussi à (Gile). Si je ne me trompe pasla syntaxe que tu me cite est bien celle que j'ai utilisé. Merci à tous. Ma ptchiote routine tourne correctement.

Bonjour Bseb67, en fait je travaille sur un plan d'ensemble qui n'est constitué que de bloc. J'ai apporté plusieurs modifications aux plans de détail de certaines pièce dont j'ai créer les blocs des 3 vues. (côté, dessus, face) Maintenant pour mettre à jour mon plan d'ensemble, il me faut redéfinir mes blocs. Donc INSERER, NOM DE FICHIER, Voulez vous redéfinir? OUI et maintenant je n'ai aucune raison de vouloir continuer mon insertion puisque tous mes blocs sont déjà présents dans le plan d'ensemble (à la bonne place) et tout juste redéfinis. Ma routine peut s'arrêter là!! Pour les curieux voici mon code entier.... ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Mise à jour du bloc sélectionner ; ; Vérifier que le bloc se trouve dans c:\bloc ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:upd (/ ent name pins) (while (or (not (setq ent (car (entsel "\nSelectionner le bloc:")))) (/= (cdr (assoc 0 (entget ent))) "INSERT")) ) (setq name (cdr (assoc 2 (entget ent)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq way (strcat name "=c:\\bloc\\" name ".dwg")) (command "_.insert" way "o") )

Merci Vinz34 pour ta réponse, Way est une variable, je ne suis pas certain qu'il me faille des guillemets. Et bien qu'Autocad devrait me rendre la main, il attend malgré tout que je le lui spécifie un point d'insertion. ... Merci

Coucou, je ne sais pas si tu sais bricoler un petit peu en lisp mais ce code de Matt pourra surement t'aider après quelques modifications. (defun c:vblat_matt (/ ent str) (while (or (not (setq ent (car (entsel "\nSélectionner un bloc :")))) (/= (cdr (assoc 0 (entget ent))) "INSERT") ) ) (if (cdr (assoc 66 (entget ent))) (progn (setq str "\nCe bloc contient un ou des attributs : ") (while (setq ent (entnext ent)) (if (eq (cdr (assoc 0 (entget ent))) "ATTRIB") (setq str (strcat str "\n" (cdr (assoc 2 (entget ent))) " ->\t" (cdr (assoc 1 (entget ent))) )) ) ) (alert str) ) (princ "\nCe bloc ne contient pas d'attribut.") ) (princ) ) Bon courage

Bonjour, je souhaite interrompre une commande que j'ai lancé dans un lisp. (command "_.insert" way "o") Voici ce qui m'intéresse, la suite de la commande ne m'est plus utile... autocad attend la suite (command "_.insert" way "o" [surligneur].....[/surligneur]) J'ai essayé le ^C^C mais sans succés.... :casstet: Merci

OUPS..... :cool: J'étais tellement content de pouvoir répondre.... Ben voilà.... C'est à cause du temps ça!!!!!!

Justement ce matin avant de voir ce post, j'ai fais une routine de quelques lignes qui créer un fichier dwg du bloc selectionné. Pour l'instant, il était fais pour un bloc unique mais dans un avenir proche j'avais l'intention de le faire pour le plan entier. En attendant je te file le code. Il faut juste changer le chemin dans lequel tu souhaites mettre tes blocs. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Créer un fichier dwg à partir d'un ;;; ;;; bloc selectionné dans c:\bloc ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:crbl (/ bloc nom way) (while (or (not (setq bloc (car (entsel "\nSélectionner un bloc :")))) (/= (cdr (assoc 0 (entget bloc))) "INSERT") ) ) (setq nom (cdr (assoc 2 (entget bloc))) way (strcat [surligneur]"c:\\bloc"[/surligneur] "\\" nom ".dwg") ) (command "-wbloc" way nom) ) Voili Voilou

Pour détecter les drogués, récupérateur de salive en deux compartiments

http://www.pdaphone.ch/forum/images/smiles/ok_je_sors.gif Bon elle est où la sortie.... je crois que je vais sortir. Ca fait 15 fois qu'il dl directement le fichier........ :casstet: Sur d'autre post c'était une page avec directement le texte qui s'affichait. Quand on est http://www.theatre-quebec.com/fr/images/t_ico_con.gif c'est pour la vie. arfff

Bah non.... J'arrive sur la feuille principale avec toute la liste des lisps et lorsque que je clique sur le lien RECH pour voir le texte et bien en fait il me rafraichi la page....... :casstet: QQN pourrait me coller le texte directement ici SVP... Grand merci.

Bonjour, j'ai voulu utililiser le lisp rech.....Mais le lien ne s'ouvre pas.....? [Edité le 31/7/2008 par Arcasdk]