DenisHen

Merci à toi Gile, mais je l'utilise l'éditeur AutoLisp... Même qu'il écrit çà à la fin du code : ;|«Visual LISP© Format Options» (200 2 20 1 T "Fin de " 100 100 0 0 1 nil T nil T) ;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|; Je ne sais pas si ce format donne une bonne vision du code... Mais le oup du double-clic et des parenthèses, c'est génial, je viens de le faire, et c'est génial... Merci Avec ce truc, j'espère faire moins de conneries.... ;) Denis...

Merci de ta patience Tramber, Mais ce sont ces fichues parenthèses ET "cond" (qui n'existe pas dans le VB) Dis-moi si j'ai faux : (setq a 5) (cond((< a 6) (setq a (+ a 2)) ; fin expression si a<6 ) ; Clot a < 6 ((= a 7) (setq a 8) (setq a (+ a 1)) ; fin expression si a=7 ) ; Clot a = 7 )Fin cond On aura donc a=9 à la fin J'ai bon monsieur ?

Merci à toi Tramber, Ca devrait donner un truc comme çà ? ;; Création de Calque avec couleur et Type de ligne (defun CreaCalq (Calq Coul TypLign /) (cond ((= Coul "") (setq Coul "7"))) ;_ Fin de cond (or (= TypLign "Communale") (= TypLign "Bordurechaussee") (= TypLign "Cloture-barbele") (command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N") ) (or (= TypLign "EDF-FT") (= TypLign "EDF-FT-Cable") (= TypLign "EauPotable") (= TypLign "EauUsee") (= TypLign "EDF") (= TypLign "FranceTelecom") (command "-style" "Reseau" "simplex.shx" "1" "1" "20" "N" "N" "N") ) (or (= TypLign "Cloture-beton-G") (= TypLign "Cloture-beton-C") (= TypLign "Cloture-beton-D") (= TypLign "Cloture-bois-G") (= TypLign "Cloture-bois-C") (= TypLign "Cloture-bois-D") (= TypLign "Vigne") (command "-style" "Cloture1" "Phalene-Ligne.shx" "1" "1" "0" "N" "N" "N") ) (or (= TypLign "Cloture-fer-G") (= TypLign "Cloture-fer-D") (command "-style" "Cloture3" "RomanD.shx" "1" "1" "0" "N" "N" "N") ) ) ;_ Fin de cond (cond ((/= TypLign "") (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "") (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "") ) ;_ Fin de cond (T (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" "")) ) ;_ Fin de cond ) ;_ Fin de defun Mais je me plante toujours àvec les parenthèses... J'ai du mal à prendre le coup... Mais ça viendra... Merci... Denis...

Boujours professeurs... Alors voilà, aujourd'hui, j'ai fais ça : ;; Création de Calque avec couleur et Type de ligne (defun CreaCalq (Calq Coul TypLign /) (cond ((= Coul "") (setq Coul "7"))) ;_ Fin de cond (cond (or (= TypLign "Communale") (= TypLign "Bordurechaussee") (= TypLign "Cloture-barbele") (command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N") ) ) ;_ Fin de cond (cond (or (= TypLign "EDF-FT") (= TypLign "EDF-FT-Cable") (= TypLign "EauPotable") (= TypLign "EauUsee") (= TypLign "EDF") (= TypLign "FranceTelecom") (command "-style" "Reseau" "simplex.shx" "1" "1" "20" "N" "N" "N") ) ) ;_ Fin de cond (cond (or (= TypLign "Cloture-beton-G") (= TypLign "Cloture-beton-C") (= TypLign "Cloture-beton-D") (= TypLign "Cloture-bois-G") (= TypLign "Cloture-bois-C") (= TypLign "Cloture-bois-D") (= TypLign "Vigne") (command "-style" "Cloture1" "Phalene-Ligne.shx" "1" "1" "0" "N" "N" "N") ) ) ;_ Fin de cond (cond (or (= TypLign "Cloture-fer-G") (= TypLign "Cloture-fer-D") (command "-style" "Cloture3" "RomanD.shx" "1" "1" "0" "N" "N" "N") ) ) ;_ Fin de cond (cond ((/= TypLign "") (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "") (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "") ) ;_ Fin de cond (T (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" "")) ) ;_ Fin de cond ) ;_ Fin de defun Je suis très content de moi, car celà tourne (hormis un "nil" à la fin), mais pas si content car la routine cherche à créer tous les styles... Ce que je cherche à éviter pour ne pas alourdir le dessin... Mais j'ai encore beaucoup de mal à bien intégrer le coup des parenthèses ! ! ! C'est du tout neuf pour moi... Et pas dans mes reflex ! ! J'ai jeté un oeil sur tblsearch (je sais Tramber, j'avais déjà assez de travail comme-ça... ;) ).. et je pense (si je peu dire) que je devrai avoir un truc comme-ça : (cond ((/= TypLign "") [surligneur] (cond ((= (tblsearch "Cloture2" "standard") nil) (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "") ) [/surligneur] ) ;_ Fin de cond ;(command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "") (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "") ) ;_ Fin de cond (T (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" "")) ) ;_ Fin de cond ) ;_ Fin de defun Encore que je sois pas sûre que les polices SHX autorise les "standard" comme les "gras" ou les "Big Foot" Voilà, si mes vnérables professeurs s'en sentent le courage... Je les en remerci d'avance Denis...

Une dernière petite question à Tramber, Dans : (defun CréaCalq (Calq Coul TypLign /) (defun CréaTypLign (TypLign /)(command "-typeligne" "ch" TypLign "s:\config\phalène\phalène.lin" "")); defun local (cond ((and(= Coul "")(= TypLign "")) (command "-calque" "e" Calq "co" 7 "" "")) ((= Coul "") (command "-calque" "e" Calq "co" 7 "" "") (CréaTypLign TypLign)) ((= TypLign "") (command "-calque" "e" Calq "co" Coul "" "")) (T (command "-calque" "e" Calq "co" Coul "" "") (CréaTypLign TypLign)) ) ) Pourquoi, il y a "(CréaTypLign TypLign))" à la fin de "CréaTypLign" ? Je n'ai pas saisie . . Mais on ne sait jamais... Merci, Denis...

Merci à toi Gile... Merci beaucoup à vous tous... Pour un premier, j'ai effectivement beaucoup de devoirs ! ! ;) En fait, pour vous expliquer ma motivation, je développe des centaines de petites routines dans des menus particuliers... exemple, quand un collègue veux dessiner un bâtiment, il clique sur [Contour Bâtiment]... qui exécute depuis le fichier .MNS ^C^C-calque;e;"Bâtiments (Contour)";co;2;;^C^C-typeligne;a;ducalque;;^C^C_pline 1. je créer le bon calque en le rendant courant 2. je lui donne la couleur 2 (jaune) 3. je défini le type de ligne comme courant (continu) Car je les connais... Ils dessine TOUT dans 3 ou 4 calques (0 - Plan - texte - titre) et en plus, tous les textes ne sont pas forcément dans le calque "texte" ! ! 4. je lance la commande Polyligne... Mais lorsque j'arrive à des commandes plus longues... J'ai du mal à m'en sortir, comme celle qui dessine une clôture (symbole de notre clôture : ----o----o----o----o---o) Je dois donc, 1. Créer le style de texte "Cloture2", ( car les "o" du type de ligne sont issus d'un shx) 2. Charger le style de ligne "Cloture-bois" 3. Créer le calque "Cloture piquet bois"" de couleur 1 et du type de ligne "Cloture-bois" PFFFFFffffff.......... Ca donne dans mon MNS : ^C^C-style;Cloture1;Phalène-Ligne.shx;1;1;;;;;^C^C-style;Cloture2;simplex.shx;1;1;;;;;^C^C-style;Cloture3;romand.shx;1;1;;;;;^C^C^Cfiledia;0;-typeligne;ch;Cloture*;s:/config/Phalène/Phalène.lin;;;;;;;;;;;;;;^C^Cfiledia;1;^C-calque;e;"Limites (Clôture Piquet bois)";co;1;;tl;Cloture-bois-C;;^C^C-typeligne;a;ducalque;;^C^C_pline Alors qu'avec une routine Lisp, je n'aurais plus que ^C^C(Creacalq "Nom du calque" " Couleur" " Type de ligne");_pline PS : Noms de mes types de lignes "Cloture----" pour les Clôtures, "Reseau---" pour les réseaux (EDF, FT, EU, EP) et d'autre encore dépandent d'un style de texte du même nom, pour ne pas qu'il soit utilisé par un "vrai" texte puis modifié par la suite par un petit fouineur...Après quoi, mes lignes ne ressembleront plus à rien ! ! Au fait, Mes types de lignes sont toutes disponibles... Et sont cadeaux.... bien sur ! ! Et mon Lisp une fois terminé le sera aussi... Mais pour celà, j'ai encore beaucoup de boulo ! ! Alors je m'y met... Merci encore à vous tous.... Denis...

Merci Bonuscad... Je vais bossé tous ça demain (ou ce soir.. mais... pô sûr...) je vais cherché dans les aides pour utiliser "tblseach"... Merci encore à tous...

Bo.. Je cherche où je me suis planté, je ne trouve pas : Dans mon bouquin (p.74) j'ai : (cond ( (expression booléenne) (action) ) je pensais donc que représenterait Si Coul=rien alors Coul="7" pour que dans la commande -calque, la couleur du calque soit 7 (oui, je sais, c'est celle par défaut... Mais je débute) En tous cas, grand merci à Tramber, je vais bucher ta correction demain. Elle m'a l'air super intéressante, car j'avais sépaé toute mes fonctions, alors qu'il est plus judicieu de les intégrer les unes aux autres. Je le ferais pendant ma "non-productivité productive"...... rassures-toi Tramber, le message est passé, je reprendrai depuis le début... ;) Denis...

Ouinnnnnnnn ! ! ! CadXP à flingué ma jolie mise en page........ Ouinnnnnnnnn ! ! !

Salut à tous.... Alors voilà, j'ai commencé une petite routine et je vous demande, s'il vous plait, de bien vouloir me le corriger, soit dans la syntax, soit dans la mise en page, soit dans d'autre trucs que j'aurai oublié... Le voici... ;; Création de Calque avec couleur et Type de ligne (defun CréaCalq (Calq Coul TypLign /) (cond ((= Coul "") (= Coul "7"))) (T nil) (cond ((= TypLign "") (command "-calque" "e" Calq "co" Coul "" "") (T (command "-calque" "e" Calq "co" Coul "" ""))) ;_ Fin de cond ) ;_ Fin de cond ) ;_ Fin de defun (defun CréaTypLign (TypLign) (cond ((<> TypLign "") (cond ((= TypLign "Cadastrale") (command "-typeligne" "ch" TypLign "s:\config\phalène\phalène.lin" "")) ((= TypLign "Cache") (command "-typeligne" "ch" TypLign "s:\config\phalène\phalène.lin" "")) ((= TypLign "EDF-FT" (StylLign "EDF-FT"))) (T nil)) ;_ Fin de cond )) ;_ Fin de cond ) ;_ Fin de defun (defun StylLign (Lign) (cond ((= Lign "EDF-FT") (StylText ("Cloture1")) (command "-typeligne" "ch" TypLign "s:\config\phalène\phalène.lin" "") ;_ Fin de command (T nil))) ;_ Fin de cond ) ;_ Fin de defun (defun StylText (Styl) (command "-style" Styl "Simplex.shx" "1" "1" "" "" "" "")) ;_ Fin de defun J'allais poser une question, mais les paroles du sage (Tramber) me sont revenu à l'esprit, et je ne poserais pas d'autres question... ;) Merci d'avance... Denis...

Mercis à tous les deux... à Gile pour l'épine du pied entre les arguments et les variables...Et à Tramber... Il est vrai que dans ma tête c'est pas super clair... En VB, je vois bien le truc... Mais en Lisp, c'est encore brouillon...Je vais donc me contenir et effectivement, ouvrir quelques nouveaux sujets...(mais pas 10 par jour) Dans tous les cas, je vous remercie grandement... Je vais tenter de mettre à profitvos dernière "patientes contributions" (dixit Tramber) Merci encore pour l'aide et la patience.... Denis...

Grands mercis à vous ... Pour répondre à Tramber, je ne demandais pas l'utilisation de la commande "calque" dans AutoCAD, je la connais très bien (même en ligne de commande "-calque") mais bien dans Lisp...... Pour le bouquin, oui, je le lis tous les jours... Et page 74, "Traitement conditionnels" ne traite que d'une condition à la fois... Je ne savais par utiliser la commande "or"... Et merci pour la déclaration de variable globale (avant le "/") je pensais qu'en déclarant la variable après sa vréation (dans AutoCAD) elle serait réinitialisée... Merci encore... Et un grand merci à Gile... Je vais faire un tour dans les bois en famille (car on est dimanche) Et je n'y affaire dès lmundi... Merci encore à tous... Et bon dimanche...

Whaow ! ! Merci 1000 fois à Gile... Et comment utilise-t'on la commande calque ? Et aussi, dernière question....faire passer une variable depuis AutoCAD vers Lisp ex Commande AutoCAD (cmdlsp "Denis") Pour créer le calque "Denis" J'ai fais ça mais rien ne se passe .... (defun c:cmdlsp () (command "-calque" "e" "Denis" "" "") ) Denis..

Oui, merci BonusCad ( et pour ts menuns..) Mais pour induire une condition comme (En VB on ferait : If A > 300 OR A < 100 THEN Pouette ! ! C'est pour compléter la super routine de Gile...Car selon l'angle... On se retrouve à 200Gr près... ou 180 ° voir même 2Pi ! ! ! ! Donc je cherche... Mais requière votre attention..... Denis...

Oui, mais j'en reviens à BonusCad, Car on vois qu'il sait y faire et que ... C'est très bien fait... Il faut juste connaitre le Lisp ( que j'apprend ) pour pouvoir personnaliser son truc... C'est le but du dévloppeur et c'est très honorifique...Il te donne des heures de gratte-cervelle... Que tu utilises pour toi ...Je préfère à d'autre qui te demande des tunes ou d'autres droits d'auteurs ( ou de concepteur)... Si je me fais chier pour créer un ensemble de routines sous le nom de "Phalène", ce n'est pas pour me faire des sous... C'est uniquement pour la communauté qui m'a aidée à la développer.... Si non, les sous NOUS reviendront...Pour moi ET pour CadXP ! ! ! Non ? Denis.... Denis .... Là, je signe deux fois.... Non ???

Tamber, je pense que tes yeux ont lu trop vite... C'est supérieure à OU inférieur à 100, C'est OU et non pas ET.... L'erreur n'est que pour les novices.. Pour les maitre, c'est une inatantion, dû à leur rang.... N'ai crainte.... Rien n'ébranle ton édifice... Denis...

Gile ? ? ? En lisp on a "or" ? ? ? Woaw, je ne le savait pas... ( mon bouquin ne le dit pas) Mais ils s'utilises comment ? Car le bouquin de "Compt en sous" ne me parle pas de (cond...) et de (and) au pluriel...) Tu me répondra qu'il date du quaternaire... Et qu'à cette époque... Le lisp ne comportait qu'une vingtaine de commande... (( (( (( (( JE RIGOLE )) )) ) ))) ( <-comptes le nombre de parenthèses ;-) c'est super important...) (Ma première leçon c'est : S'il n'y a pas "cond" "((" est faux ! !, Non ? Mais s'il doit il y avoir plusieur "cond" ? ? Comment faire ? ? Et quoi qu'en pense BonusCad ? Merci à vous...

Oui, thierryd , j'ai bien la version pour la R10.... Avec la gestion de mémoire pour éditer depuis Autocad un fichier (Acad.lsp) avec la commande EDIT,64000, acad.lsp...... Que de souvenirs... Mais il y a un truc que je n'ai pas bien saisi, pour "cond", comment fait-t'on s'il y a deux condition exemple en VB: ça donnerait If angle > 300 OR angle < 100 THEN Ya=0 ? ? Mais en Lisp ? C'est çà ? (cond (> anngle >300)(< angle 100) (= Ya angle) ) ??? Merci d'avance... Denis...

Salut à tous ! ! Ca y est ! ! j'ai reçu le bouquin de M. Contensou : "La CAO par le menu Lisp" ! ! Et je m'éclate ! ! Je n'intègre pas correctement tous à la première lecture... Mais je commence à comprendre le Lisp ! ! Comme dans l'exemple de Gile pour dessiner une flèche en une polyligne avec 2 points... Je l'ai même amélioré... La preuve : (defun c:Branchement (/ p1 p2 p3 p4) ; je l'ai renommée, c'est même la première chose que j'ai fait (initget 1) (setq p1 (getpoint "\nLimite du lot : ")) (initget 1) (setq p2 (getpoint p1 "\nRéseau: ")) (setq p3 (polar p1 (angle p2 p1) 1)) (setq p4 (polar p3 (angle p2 p1) 0.5)) (command "_.pline" "_non" p4 "_w" 0.0 0.5 "_non" p3 "_w" 0.1 0.1 "_non" p2 "") (princ) ) Ah ah, Maintenant, j'essai de dessiner un carré par 2 point (une arrête) puis un troisième point, qui définira de quel coté le carré (ou rectangle) sera dessiné... le p3 pourra être une distance ( positive, dessin à droite / négative; dessin à gauche.. taille du rectangle : distance du point p3 à la droite p1-p2... .... Je me creuse mais je vais trouvé ! ! Denis...

Exactement BonusCad, le coup de la proportion, c'est super bien trouvé ! ! Fallait le faire ! ! Denis...

Salut à tous ( cela m'évite le bonjoir...) C'est une requète et pas une question...... Dans les "routines Lisp" du menu Bonus_cad ( - > On ne sait pas à qui je m'adresse.... c'est un inconnu... Shut...) Dans la routine, donc, qui lit un fichier Point (M,X,Y,Z -> M = Matricule) Il serait judicieux d'insérer les point en 2D ET en 3D... Car, si on relit 2 points entre eux... Quand on a des points en 3D, On les relis dans l'espace . Et comme, Le point topo est le plus IMPORTANT, car c'est le seul qui est vrai ! ! (je pourrais m'expliquer... si on le demande) , Faire un plan en 2D ( pour un tracer et pour des raisons que TOUS les dessinateurs connaissent => on travaille à plat) Je disais donc, qu'inserer des points 3D c'est super utile ! ! ( courbe de viveau, ....) Mais inserer des point en 2D ( avec Z=0) c'est aussi important ! ! une droite n'a pas la même longeur si elle relie deux points connus en X, Y que si elle en relis deux en Y, Y et Z... Autre chose, pour parfaire cette excellente routine, décider de l'insertion des textes...et de leur taille... Et surtout... arrondir les décimales des altitudes à 2 chiffres... Je suis sur que tu le savais... Mais c'est déjà énorme le boulo que je gagne avec cette routine ! ! ! un MILIARD de MERCISSS ( il y a beaucoup d"S" parce que ça m'aide réellement ! ! Mais j'ai un peu peur... un CadXPien qui nous donne un super truc... Et on se permet des remarques... Bon, j'espère qu'il ne prendra pas ça mal... Donc, je post... Denis.... ( qui ferme les yeux...)

Sinon, t'as une idée pour mon Pb ?

Mais, Tramber, pourquoi croix-tu que je l'ai choisi ? Denis...

Juste pour info : Bonus_cad a créé un lisp qui se nomme aussi "fleche"... Il a aussi développé plein d'autres supers trucs ! ! Denis...

à moins de faire un lisp par ligne de menu... C'est pour cette raison que j'attend un bouquin "LA CAO PAR LE MENU LISP PAR AUTOCAD" pour cette semaine ! ! ! Après, je pourrai craner ! ! ! ;) Denis...