Topheur

Bonjour Gile Effectivement, tu n'as pas compris :(rires forts): mais je me suis mal exprimé. Je voulais simplement dessiner une spline avec un pt d'origine puis une autre, toujours avec ce même point d'origine. L'arc servais à montrer se que j'avais bricolé mais que je n'arrivez pas à adapter à ma spline. Bref, j'ai adapté ton bout de code et cela fonctionne MERCI. Par contre essaye ton code et dis moi si tu vois le tracé de la spline quand tu clique point par point car moi je ne la vois pas (je ne peux la visualiser qu'à la fin du lisp). Je pense que cela viens d'un paramètre mais lequel ?

Bonjour les lispeurs <img src='http://cadxp.com/public/style_emoticons/<#EMO_DIR#>/laugh.gif' class='bbc_emoticon' alt=':(rires forts):' /> Petite demande du jour, je suis à la recherche d'un lisp me permettant de dessiner plusieurs spline à l'aide du même point de base. J'y parviens avec des traits, des arcs (voir code plus bas) mais pas avec des splines. (defun c:TEST_ARC ( / pdep pfin pmil) ;point de départ de l'arc (centre pie) (setq pdep (getpoint "\nSpécifiez le premier point: ")) ;défini les point l'arc (setq pmil (getpoint pdep "\nSpécifiez le deuxième point: ")) ;; milieu de l'arc (setq pfin (getpoint pdep "\nSpécifiez le troisièmepoint: ")) ;; fin de l'arc ;trace l'arc (command "_.arc" pdep pmil pfin "") ;; dessine l'arc Pour la Spline j'ai essayé (command "_.spline") (while(setq p(getpoint))(command p)) (command "" "" "") Ce code marche mais pas avec mon point de base, j'ai donc essayé (command "_.spline") (while(setq p(pdep))(command p)) (command "" "" "") Ou encore (command "_.spline") (while(setq pdep(getpoint))(command p)) (command "" "" "") Mais cela ne marche pas plus. Une petite idée ? Voilà ce code est dans une boucle qui me permet une fois le premier élément tracé de tracé le deuxième en partant depuis le point de base défini, puis le troisième toujours depuis ce point de base, etc... Deuxième question, quand j'utilise ces codes, je ne vois pas mes ligne en cours de traçage, je pense que cela viens d'un paramètre mais lequel ? Merci les lispeurs

Bonjour Gile, J'ai vu une erreur dans mon code est je sais pourquoi je n'arrivais pas à noter mon attribut (j'ai remplacé pins par ptins) Par contre pour palier au fait que mon attribut n'est plus placé au bon endroit, à part le déplacer dans le bloc initiale, je n'ai rien trouvé de mieux.

Bonjour Gile, Une fois de plus tu me sauve la mise, par contre je me suis aperçu d'une chose étrange, la méthodologie est la suivante : - l'utilisateur lance le lisp - il donne les infos demandées par le lisp (n° couleur) - il clique pour insérer le bloc Jusque là tous la bien, le lisp remplis la couleur et celle ci change (paramètre de visibilité). MAIS il me reste un attribut que l'on renseigne manuellement et si je double clique pour le renseigné il n'est pas à la bonne place ! Il se positionne sur le point d'insertion (?). Cette attribut et en position verrouiller Pour info il y a un attribut par type de couleur (quand couleur = 1 alors attribut couleur 1 visible et les autres masqués, si couleur 2 = alors attribut couleur 2 et les autres maqués, etc.) De plus, peut on remplir cette attributs en lisp j'ai essayé la commande (setpropertyvalue bloc "ATT_COULEUR2" nom_app) mais cela ne marche pas (est ce parce qu'il y a un paramètre de visibilité dessus) Voici le code que j'utilise (defun c:BLOC_INS (/ Nom_AT1 ptins attreq) ;; paramétrage des attributs (setq Nom_AT1 (getint "\nEntrer le n° de couleur du premier app :")) ;boucle tant que numero_tube inférieur à 14 (while (<= Nom_AT1 14) (setq pins (getpoint "\nInsertion ?\n")) ;; enregistrement des valeurs initiales de la variable système (setq attreq (getvar "ATTREQ")) ;; modification des valeurs courantes de la variable système (setvar "ATTREQ" 0) ;; insère le bloc (command "_insert" "BLOC_ETIQUETTE_APP" ptins 1 1 0) ;; restauration des valeurs initiales de la variable système (setvar "ATTREQ" attreq) ;; nom d'entité du bloc inséré (setq bloc (entlast)) ;; assignation de la valeur du paramètre de visibilité Couleur (setpropertyvalue bloc "AcDbDynBlockPropertyCouleur" (itoa Nom_At1) ) ;incrémente le numéro de app (setq Nom_AT1 (1+ Nom_AT1 )) ) (princ) )

Bonjour, Mon problème et résolu mais plutôt que d'ouvrir un nouveau sujet, je vais poser la question ici (si je n'obtiens pas de réponse j'ouvrirais une nouvelle discussion). Toujours dans l'optique de gérer mon bloc dynamique, ce dernier à un paramètre de visibilité nommé Couleur et pour choix possible 1 2 3 Etc... Le 1 pour Noir, 2 pour Bleu, 3 pour Rouge Etc... J'ai essayé de taper la syntaxe (setpropertyvalue bloc "Couleur" "1") Évidement cela ne fonctionne pas. Est-ce que quelqu'un aurais la ligne de commande pour gérer le paramètre de visibilité afin que lorsque j'insère mon bloc dynamique celui-ci puisse être modifier ? Merci à vous

Salut gile, J'ai essayé avec la modif, et le lisp fonctionne parfaitement. Merci à vous deux

Bonjour les experts, Alors verdict, mon bloc a uniquement des attributs qui ne sont pas prédéfini. Du coup le code n°1 fonctionne à merveille. Il ne me reste plus qu'à l'intégrer à mon lisp source. Par contre, comme je pourrais peut être avoir un jour des attributs avec des attributs prédéfini, j'ai testé le second sur mon bloc (même si je n'ai pas d'attributs prédéfini) et celui-ci ne fonctionne pas, j'ai un message d'erreur : erreur: type de données incorrect ou dépassement de données: #<SUBR @000000002a777a20 ENTLAST> Une idée du problème ? Dans tous les cas je vous remercie pour cette épine (une nouvelle fois) retirer de mon lisp.

Bonjour les experts ;) Eh bien non, didier, je ne m'en sors pas. J'ai essayé ton code, il correspond à mon (command "_.insert" "Param_APP" pause "" "" 0) Se qui me permet d'insérer mon bloc, par contre la suite Nom_AT1 Nom_AT2 Nom_AT3 Ne fonctionne pas. Il me répond Commande: A001 Commande inconnue (A001 étant la valeur de Nom_AT1) J'ai essayer d'y insérer la ligne (command "_.attedit" "N" "N" "Param_APP" "NOM_APP" "" "" Nom_AT1 ) avant et sans les Nom_ATx mais pas mieux. Voilà le code que j'ai tester (defun c:BLOC_INS () ;paramétrage des attributs (setq Nom_AT1 (getstring "\nentrer le Nom app :")) (setq Nom_AT2 (getstring "\nentrer le Type d'app :")) (setq Nom_AT3 (getstring "\nentrer le numero de l'APP :")) ;insert le bloc (setq pins (getpoint"\nInsertion ?\n")) (command "_insert" "Param_APP" pins 1 1 0 Nom_AT1 Nom_AT2 Nom_AT3 ) (princ) ) Une idée de mon erreur ...

Mesdames, Messieurs, bonjour :) Encore et toujours le casse *** de service qui a besoin de votre science pour coder un lisp :P J'arrive presque au bout mais il y a encore quelques soucis et c'est là que j'ai besoin d'aide. J'aimerais pouvoir insérer un bloc nommé Param_APP Celui-ci est composé de 3 d'attributs (certains visible et d'autre invisible) - NOM_APP (ex. B) - TYPE_LGT (ex. T3) - N_LGT (ex. 1) Ces attributs sont remplis via les demandes utilisateur. J'ai écrit le lisp suivant (qui fonctionne avec les lignes de commandes, c'est pas très pro mais c'est tous se que j'ai trouvé pour essayer de me débrouiller tous seul). (defun c:BLOC_LGT () ;paramétrage des attributs (setq Nom_AT1 (getstring "\nentrer le Nom app :")) (setq Nom_AT2 (getstring "\nentrer le Type d'app :")) (setq Nom_AT3 (getstring "\nentrer le numero de l'APP :")) ;insert le bloc (command "_.insert" "Param_APP" pause "" "" 0) ;affecte les attribut (command "_.attedit" "N" "N" "Param_APP" "NOM_APP" "" "" Nom_AT1 ) (command "_.attedit" "N" "N" "Param_APP" "TYPE_LGT" "" "" Nom_AT2 ) (command "_.attedit" "N" "N" "Param_APP" "N_LGT" "" "" Nom_AT3 ) (princ) ) Le problème de ce code c'est que pour le 1er appartement cela fonctionne mais si j'insère une nouvelle fois mon bloc, il le renseigne correctement MAIS modifie le 1er en inscrivant en plus les infos du 2e ! En plus il m'ouvre la fenêtre de commande... Je cherche donc à faire la même chose mais je ne veux pas qu'il me modifie les blocs déjà insérer. Je précise que ce code fais partie d'un plus gros lisp. Merci de votre aide

Bonjour Gile :) Il est vrai que quand je développe en VBA ou pour certaines formules excel, certaines idées se code rapidement car il existe certaines lignes de codes pouvant faire le boulot et parfois il faut construire toute la programmation autour de si, et, ou, alors, boucle, pas boucle ... C'est pour ça que je disais quelques minutes peut être à tord :P Par exemple dans le cas de mon lisp on peut faire une sélection trajet pour sélectionner le texte ou faire un clic sur chaque texte. J'ai vu que l'on pouvait codé en quelques lignes une numérotation horizontal ou vertical (je pensez qu'une numérotation horaire ou anti horaire existé) L'idée de départ était aussi une sélection de type cercle (qui n'existe peut être pas), mais qui se code (ou pas) (rapidement) et comme on peut lui dire numérote à partir de ce texte en le sélectionnant numérote dans le sens horaire (ou anti horaire). Maintenant si ça prends beaucoup trop de temps à coder ou si on atteint les limites du lisp (se qui arrive parfois avec vba), j'ai toujours ton super lisp incr qui fonctionne très bien mais qui est un peux plus long dans l'utilisation. Voilà merci quand même et si quelqu'un pense à une solution je reste preneur :)

Bonjour Didier, Je vais être honnête un lisp clé en main serais parfais (je manque cruellement de temps au niveau professionnel comme personnel (réno de la maison)). Je pense (peut être à tord) qu'un pro du lips pourrais modifier en quelques minutes le lisp incrément de Gile pour qu'il numérote dans le sens horaire ou anti horaire. Pour se qui est du texte ou un attribut, je n'ai aucune préférence, l'un comme l'autre me conviens parfaitement. Voilà, si tu peux m'aider j'en serais ravis.

Bonjour Steven, Merci de cette réponse, j'ai déjà utilisé le lisp de Gile mais il ne marche pas comme je le désire. J'ai également essayer le plugin mais encore une fois, je n'obtiens pas ma numérotation en sens horaire ou anti horaire. Un petit dessin plus explicite de se que je cherche à obtenir Help Me

Bonjour les Autocadien et Autocadienne :) Je suis à la recherche d'une numérotation automatique dans Autocad. Je sais qu'il existe de nombreux lisp sur le sujet et TCOUNT dans les express tool. Mon soucis c'est que je cherche à numéroter du texte ou un attribut de bloc (je n'ai pas de préférence), dans le sens horaire ou anti horaire et sélectionner le premier texte ou attribut à numéroter. Je sais qu'avec certains lisp on peut sélectionner les attribut ou texte un par un mais je cherche un lisp ou autre plus rapide. Je reste à votre disposition si ma demande n'est pas très clair et je suis ouvert à toutes propositions (lisp ou autres...) Merci à vous ;)

Bonsoir Tramber, Merci de ce premier jet mais il ne m'aide pas vraiment malheureusement :( J'ai réussi à sortir un lisp plus clair de se que je cherche ;PERMET DE FAIRE UNE COTATION LIGNE DE BASE SANS AVOIR A TRACER UNE COTE PUIS FAIRE UNE COTE CONTINUE (defun c:COTATION_LIGNE_BASE () (command "_dimlinear" pause pause pause) (command "_dimbaseline" pause) (princ) ) C'est une cotation en ligne de base (un point de bas et ensuite on clique là ou on désire avoir la cote)mais les cotes se superpose et je voudrais les espacer de X (paramètre réglable soit au lancement du lisp soit dans le code). Si tu peux m'aider, je suis preneur... Désolé de ne pas avoir été plus clair au début. Pour se qui est pieuvre électrique se sont de vielles annotations (je copie parfois des lignes depuis d'autres lisp et je ne supprime pas les commentaires).

Je vois que soit la question n'intéresse personne :( soit elle est trop difficile pour les spécialistes d'autocad :P Plus sérieusement, je n'ai toujours pas de solution ... UP !

Bonjour le forum :) , Petite question, est-ce qu'il est possible de positionner une côte linéaire "automatiquement". Je m'explique quand je fais une cotation linéaire, je clique sur le premier point, puis le deuxième (jusque là tous va bien :P ...) ensuite autocad demande de cliquer pour "positionner" la côte. Est-il possible (dans le style de côte pas trouvé) de positionner la cotation à X au dessus du deuxième point. Si c'est possible uniquement en lisp je suis preneur, je l'intègrerais à mon code : (defun c:COT_L_PT_O ( / pdep pfin) (setq pdep (getpoint "\nSpécifiez le premier point: ")) ;; point de départ (centre de la pieuvre) (while T ;; t=true la boucle se répétera tant que l'on n'en sortira pas avec un echap (setq pfin (getpoint pdep "\nSpécifiez le deuxième point: ")) (command "_cotlin" pdep pfin pause) ;; dessine la côte ) ;while (princ) ) Merci à vous.

Re bonjour à tous et désolé du retard mais je n'ai pas eu beaucoup de temps pour moi en ce moment. J'ai testé ta palette rebcao et ... c'est exactement se que je voulais :(rires forts): Merci Après je ne sais plus si j'ai précisé pourquoi cette bidouille (notamment pour Dinosor) Si le client voit +50 il peut me dire que c'est une annotation et qu'il avait pas compris. Pour se qui est de dessiner la pièce avec ces cotes réelles se n'est pas possible car ... se n'est pas une pièce ou un objet physique, j'aurais du préciser que je cote des distances et comme on est pas au cm prêt je rajoute cette marge à ma cote. Pour ce qui voudrait me répondre bah le gars il rajoute 50 à toutes les côtes noté ... par expérience, les 50 sont rajoutée une fois sur 20 et quand on commence à rajouter du 55 ça en perturbe plus d'un ! Alors qu'avec écrit rouge sur blanc la longueur avec ça marge, pas de recours possible. Merci à tous.

Bonjour à tous :) , Merci de vos premières réponses. Vous m'excuserez mais par manque de temps et de grosse fatigue en ce moment, j'ai oublié de préciser certaines choses. Pour lecrabe : je connaissais cette astuce mais j'ai oublié de préciser que je passe ma journée à faire des cotations, donc pour une ou deux cotes cela reste envisageable mais pour mon cas cela reste trop long. Pour lili : cela resterais pour du calcul et non un préfixe. Pour zebulon_ et rebcao : ARRONDIR à 50, je l'avais essayé mais cela ne fonctionne pas, comme dit zebulon_ cela autorise des cotes de 50 100 150, etc. mais ne rajoute pas 50 à ma cote. Pour zebulon_ : les tolérances ne conviennent pas à mon cas, cela fonctionnerais mais mes clients (souvent étranger) ne comprendrons pas et me dirons moi j'ai vu 200 j'ai mis 200 alors que j'aimerais rajouter cette longueur à ma cote. Pour la petite histoire et te faire comprendre à quel point cela est compliqué parfois, à coté d'un bloc bien défini et unique on à un autre bloc et quand je leur dit de mettre cette autre bloc en orange, il n'est quasi jamais mis en orange !!! Alors pour faire comprendre que la cote lu sera de +50 ... Je suis donc toujours preneur d'une idée, sinon ce sera manuel :(

Bonsoir le forum :) , Je suis à la recherche d'une manip pour affecter une marge (prédéfini) à mes cotations sans succès :( . Je m'explique, je trace une cote alignée de valeur x (200 par exemple), mais je voudrais non pas avoir la cote de 200 mais une cote de 250 par exemple (marge de +50). Help me :)

Merci Christian, J'ai fait un clic droit pour voir :huh: ça pique !!! Le lisp me parais plus simple... Pour la facture, j'attends ton huissière et je te le dis, avec une huissière comme celle-là je suis pas prêts de payer, je préfère la voir débarquer chez moi :(rires forts): Je vais me plonger dans tes vidéos, pour voir si je trouve d'autre choses intéressante. Merci pour tous Grand Gourou, Sorcier !

Bonjour Grand Gourou, Sorcier Nous sommes au regret de vous informer que la tentative de débit lors du chargement de la palette version 1 et 2 a échoué ! C'est parfait, est-ce que je peux te demander comment tu programme ces palettes ? Merci Grand Gourou, Sorcier !

Bonjour rebcao, Gile (mon maitre lisp) va être fou de rage, car tu deviens ... MON MAITRE LT :(rires forts): Pour se qui est de la cotation, tous fonctionne à merveille, par contre pour la cotation de polyligne, soit je l'utilise mal soit il fonctionne mal mais je n'arrive pas à avoir la cote COMPLETE de la polyligne, j'obtiens la cote d'un segment (ligne). Rebcao peut tu regarder ça de plus près ou me dire comment utiliser la cotation de la polyligne. Merci

Bonne année Patrick_35, Le comparatif fais mal au c*l comme on dit chez nous <img src='http://cadxp.com/public/style_emoticons/<#EMO_DIR#>/laugh.gif' class='bbc_emoticon' alt=':(rires forts):' /> Juste pour avoir les lisps :blink: car pour le reste LT suffit ... Pour rebcao voici la petite illustration demandée (un peu long à charger) http://www.hostingpi...8701Autocad.jpg

Bonjour et bonne année à Gile et Rebcao, Concernant Gile, je me doute bien que rien ne rivalisera face à un lisp :D Plus sérieusement l'idée est de récupérer au moins ces deux petits codes (ceux énoncés) car ils ne me paraissent pas (peut être à tord) trop compliquer à convertir dans un autre langage. Pour le reste c'est des lisps trop complexe qui ferais gagner encore quelques précieuses secondes mais bon... Concernant l'investissement du patron, je viens de débarquer dans l'entreprise et comme de partout il y a des choses que les gens ne connaissent pas forcément. Mais je me vois mal après une semaine lui dire "Si on investie dans Autocad complet je peux gagner du temps sur les cotations !" Je ne connais pas la différence de prix et le gain que cela pourrait représenter. En plus, je viens d'une grosse structure à la base où tous est cadré, référencé, et j'ai trouvé que leur façon de classer n'étais pas optimal quand j'ai amené le sujet sans trop le nommer "Je me perds un peu dans la façon de classer et retrouver les dossiers" j'ai eu droit à "Beaucoup ont voulu tous révolutionner et il ne sont pas resté ..." j'avoue que ça calme un peu. Pour Rebcao, je dois partir dans quelques minutes pour le taf. j'ai cliqué pour voir les titres des vidéos et j'en ai repérées deux qui pourrais m’intéresser (l'incrémentation de valeur que je n'osais pas demander et réaliser des métrés (peut être que ça répondra à ma demande initiale). Pour l'illustration, je la ferais et là posterais ce soir après le taf et avoir couché la petite. Bonne journée à tous :(rires forts):

Bonjour lili2006 et bonne année, "Avec un champ longueur ?" Non à la base, mon lisp permet de tracer une polyligne et récupérer sa valeur via le lisp et l'inscrivez automatiquement à la fin de la polyligne. :( "Cotation superposée en natif ?(Commande "_dimordinate")" Ne fonctionne pas, cela ne me donne pas une cotation alignée avec toujours le même point d'origine. :( Une autre piste ?