DenisHen

J'ai trouvé, c'est la dedans : :D (setq nam_tl '( "*T1,longitudinale axial" "*T-PRIM1,longitudinale axial" "*T2,longitudinale de rive" "*T-PRIM2,transversale" "*T3,longitudinale axial" "*T-PRIM3,longitudinale de rive" ) ) Mais je ne sais pas quoi faire :( Denis...

J'ai un petit problème avec ton code bonuscad, Quand je demande à VisualLisp de me le "formater", il me répond effrontément : C'est grave docteur ? C'est cette partie là : (defun c:signhz ( / oldcmd oldexp maj fac_tl val_tl nam_tl nam_fic fil_out val_u entry) (setq val_u nil) (setq oldcmd (getvar "cmdecho") oldexp (getvar "expert")) (setq olderr *error* *error* sgnerr) (setvar "cmdecho" 0) (setvar "expert" 3) (if (tblsearch "LTYPE" "T1") (setq maj T) (setq maj nil)) (setq fac_tl (getvar "ltscale")) (setq val_tl '( (3.0 -10.0) (1.5 -5.0) (3.0 -3.5) (0.5 -0.5) (3.0 -1.33) (20.0 -6.0) ) ) (setq nam_tl '( "*T1,longitudinale axial" "*T-PRIM1,longitudinale axial" "*T2,longitudinale de rive" "*T-PRIM2,transversale" "*T3,longitudinale axial" "*T-PRIM3,longitudinale de rive" ) ) (if (zerop (getvar "dwgtitled")) (setq nam_fic (strcat (getvar "dwgprefix") (getvar "dwgname") ".LIN")) (setq nam_fic (strcat (getvar "dwgname") ".LIN")) ) (setq fil_out (open nam_fic "w")) (while val_tl (write-line (car nam_tl) fil_out) (write-line (strcat "A," (rtos (/ (caar val_tl) fac_tl) 2 4) "," (rtos (/ (cadar val_tl) fac_tl) 2 4) ) fil_out ) (setq nam_tl (cdr nam_tl) val_tl (cdr val_tl)) ) (close fil_out) (command "'_.LINETYPE" "_LOAD" "*" nam_fic "") (prompt (strcat "\nLes types de lignes T1 T'1 T2 T'2 T3 et T'3 sont définies et chargées" "\npour un facteur d'échelle de : " (rtos fac_tl 2 2) ) ) (while (not val_u) (initget 6) (setq entry (getreal "\nDonner la valeur de U en centimètres [7.5/6/5/3] <6>: ")) (cond ((or (eq entry 7.5) (eq entry 6) (eq entry 5) (eq entry 3) ) (setq val_u entry) ) ((not entry) (setq val_u 6.0) ) (T (prompt "\nLa valeur de U doit être de 7.5cm, 6cm, 5cm ou 3cm") (setq val_u nil) ) ) ) (setq val_u (* 0.01 val_u)) (setvar "userr1" val_u) (setvar "fillmode" 1) (setvar "plinegen" 1) (command "_.undefine" "polylign") (command "_.undefine" "_pline") (if maj (progn (prompt "\nMise à jour des entitées avec la nouvelle définition par un REGEN") (command "_.regenall") ) (prompt (strcat "\nSi vous voulez changez l'échelle du type de ligne, ou la valeur de U" "\nrelancez la commande SIGNHZ" "\nNB: Les polylignes tracées auparavant garderont l'ancienne valeur de U." ) ) ) (setvar "expert" oldexp) (setvar "cmdecho" oldcmd) (setq *error* olderr) (prin1) ) Pourtant, quand je double-clique devant (defun... Il me sélectionne bien toute la routine... Merci, Denis...

Encore merci zebulon_, c'est exactement ce qu'il me fallait... Je vais fouiller l'aide, car dans les type de ligne, j'ai du texte comme ----EU----EU---- Merci encore Quand à bonuscad, j'utilise tous les jours tes menus (notamment topo.lsp et talus.lsp). Je vais méditer sur ton code... Merci à toi Nota pour bonuscad : talus.lsp plante AutoCAD à la première utilisation, soit dans le dessin, soit dans la journée :casstet: J'ai lontemps cherché une cause ou un point commun... :o Mais rien ! ! Merci à tous, Je vais éplucher tout çà, Denis...

Mais pour changer ou évoluer le code, il faut le connaitre... Bien vu... Je voulaix mettre toutes mes lignes ainsi que mes style de texte...... dans un seul fichier, de ce type (pour l'instant) http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=12321 Que je pourrais modifier à volonté. Si on retourne dans un "ancien" dessin, on pourra mettre à jour les divers styles de ligne, de textes ou calques..... Mais une dernière petite question : Si, lors de ma création de mon type de ligne, AutoCAD me demande le fichier lin, que fera-t'il si le type de ligne existe déjà : - il le remplace l'ancien dans le lin par le nouveau, (ce qui serait le mieux) - il en créer un autre, - il me le demande ? En tous cas, je te remerci zebulon... Tu m'as bien aidé, je commence grace à toi à savoir par quel bout attaquer mon petit problème, Denis...

Je ne sais pas comment faire pour importer un style de quelquechose en Lisp, sans utiliser DesignCad (que je suis seul à savoir utiliser "correctement"... ;) Denis...

Bon, si je comprend bien... Je vais devoir me mettre au Codes DXF..... Ben allons-y gaiement ! ! ! Faites du LiSP qui disait... ;) Merci encore, Denis...

Merci mille fois... Zebulon_, je ne trouve pas les caractéristique de la ligne ? Comme : A,1.5,-0.5,0,-0.5,0.5,-0.5,0,-0.5 Mais je vais encore chercher... C'est encore (entmake que je ne connais pas.... Je fonce dans l'aide Patrick_35 et dbl37 : Parceque mes collègues s'amusent à purger ou à changer de profils quand il ont le temps.... Bref, ils fouillent pour mieux comprendre et mieux utiliser AutoCAD. En plus, c'est moi qui les ai incité à le faire... C'est comme çà que j'ai apris... Merci à tous.... Mon but est de tout regrouper dans un seul fichier de type "config" comme je l'ai expliqué dans un autre forum. Merci encore à tous, Denis...

Mon fichier type sera (pour l'instant) de ce format là : [styleCalque] Cadastre (limite) 7 Cadastrale Cadastre (lieudit) 2 Lieudit Cadastre (section) 2 Section Cadastre (communale) 2 Communale [styleTexte] Lieudit Romand.shx 0 1 20 N N N CadastreAdr Simplex.shx 0 1 20 N N N CadastreProprio Simplex.shx 0 0.9 0 N N N ContenanceCad Simplex.shx 0 0.8 0 N N N [styleLigne] Cadastrale "___ . . ___ . . ___ . . ___" "A,1.5,-0.5,0,-0.5,0,-0.5" Lieudit "___ . - . ___ . - . ___ . - . " "A,1.5,-0.5,0,-0.5,0.5,-0.5,0,-0.5" NatureSol "___ ___ ___ ___" "A,0.8,-0.5" LimCulture "___ ___ ___ ___" "A,3,-0.5,1,-0.5" LimVegetation "___ _ . _ ___ _ . _ ___" "A,3,-0.5,0.5,-0.5,0,-0.5,0.5,-0.5" Gouttiere "___ ___ ___ ___" "A,0.2,-0.5,0.2,-0.2" Treille "___ ___ ___ ___" "A,1,-0.2,0.2,-0.5,0,-0.5,0.2,-0.2" Servitude "___ ___ ___ ___" "A,2,-0.4" BasTalus "__ . __ . __" "A,1.5,-0.8" Enrobe "__ . __ . __" "A,2,-1" Calcul "__ . __ . __" "A,0.5,-0.5,1,-1,1.5,-1.5,1,-1" Mais je ne sais pas si je dois le stocker dans des listes : (setq TypCalq (list "Cadastre (limite)" "7" "Cadastrale")) Ou dans le dessin même avec : (vlax-ldata-put... Voire même une autre méthode que je ne connais pas encore...

La création d'un type de ligne se déroule comme suit : Mais il demande un fichier lin... Et je ne veux pas lui en donner un... Car je créé mon type à chaque dessin, et s'il le trouve déjà dans un lin... AutoCAD va me chercher des noises ;) Alors comment faire... Je ne voix pas comment je pourrais m'en sortir... J'ai vu un truc avec (vl-add c "clayer"... Mais peut-on faire de même avec un type de ligne ? Car je ne trouve absolument rien dans l'aide sur (vl-add... Je suis en train de réécrire tout mon code (25xx lignes ! !:yltype: ) et j'ai besoin de savoir celà pour le faire correctement. Merci d'avance pour tous conseils ou astuces, Denis...

J'hésite toujours à créer un sujet, je ne veux pas monopoliser le site... Mais si on me le demande. Merci à tous les deux, Denis...

Pourquoi ? Je ne veux justement pas de fichier lin, je ne voulais pas gérer un type d'erreur "si ce type de ligne existe déjà"... Moins on donne la possibilité de faire d'erreurs, moins on a à les gérer... Merci pour ta réponse... Mais c'est normale qu'il n'y a rien dans l'aide ? Denis...

Elles servent à enfermer une fonction avec ses arguments... (FonctionA (FonctionB argumentB1 ArgumentB2) ArgumentA2 Car (FonctionB argumentB1 ArgumentB2) est l'ArgumentA1 Pour une fois, je suis quasiment sure que j'ai bon, maintenant... Je me suis répondu pour que cela puisse servir aux éventuels débutants dont je fais parti, Denis...

La création d'un type de ligne se déroule comme suit : Mais il demande un fichier lin... Mais je ne veux pas lui en donner un... Car je créé mon type à chaque dessin, et s'il le trouve déjà dans un lin... AutoCAD va me chercher des noises ;) Alors comment faire... Je ne voix pas comment je pourrais m'en sortir... J'ai vu un truc avec (vl-add c "clayer"... Mais peut-on faire de même avec un type de ligne ? Car je ne trouve absolument rien dans l'aide sur (vl-add... Je suis en train de réécrire tout mon code (25xx lignes ! !) et j'ai besoin de savoir celà pour le faire correctement. Merci d'avance pour tous conseils ou astuces, Denis...

Mais je ne trouve aucune aide sur (vla-add... Comment faire pour l'utiliser pour créer un typede ligne ? Denis...

J'aimerais faire exactement le même chose avec des type de ligne : les créer et pas les charger... Denis...

Tu veux quoi, que l'installation ne se fait que sur un seul ordinateur ou qu'à chaque installation, ton "client" te contact ? Denis...

Scite le fait... Et c'est vrai que c'est super pratique... Denis...

Bonjour à tous, Voilà, j'aimerais faire un fichier "config" dans lequel seraient toutes mes configurations de type de lignes; de style de textes...... ex : StyTxt: ;NomStyle NomPolice Hauteur Extention Inclinaison Inversé Renversé Lieudit Romand.shx 0 1 20 N N Adresse Simplex.shx 0 0.8 0 N N ....... ...... StyLign ;définition du style pour les créer depuis AutoCAD et non en les chargeant depuis .lin *Lieudit 1.5,-0.5,0,-0.5,0.5,-0.5,0,-0.5 Mais je ne sais pas comment gérer la lecture de ce fichier et surtout, comment le stocker Comme une liste de type DXF, avec : (Styl . NomStyl) (10 . Police) (11 . Hauteur) ...... Je n'ai pas d'idée Le but ? Mes boss change tous les quatres matins de "nomenclature", le lundi, certain type de traits doivent être rouges, et le jeudi, on doit les faire vert.... Le fichier mns (qui comporte toutes les caractéristique de chaque entité, une à une) fait plus de 100 lignes. J'ai tout à vérifier ligne par ligne (et elles ne sont pas petites). Alors qu'avec un fichier de type "config", je n'aurais qu'à modifier que quelques lignes... Et pour un poste de mes routines, ce sera plus facile... Il n'y aura que du texte modifiable selon la volonté de l'utilisateur... Merci d'avance pour vos suggestion ou vos conseils, Denis...

Avec l'éditeur d'AutoCAD, je n'arrive pas à imprimer... Il plante. Alors je passe par un PDF, et là je suis en noir et blanc... Ce qui donne une lisibilité limité... Il faut chercher les commandes, les symboles....... Je vais devoir réécrire tous mes lisp, et j'aurais aimé avoir un listing "propre" pour pouvoir travaillé dessus... Mais dans l'éditeur d'AutoCAD, il y a le double-click avant ou après une parenthèse qui est super utile ! ! Denis...

Bon, de toutes façons, il faut que je refasse toutes mes routines... J'en ai de trop avec des phrases communes... comme : (if (= (setq rot (getangle p2 (strcat "\nOrientation du texte :"))) nil) (progn (princ "\n * * * * * * * Orientation horizontale\n") (setq rot (vlax-ldata-get "Phalene" "AngSCU")) ) ;_ Fin de progn (progn (princ "\n * * * * * * * Orientation alignée :") [surligneur] (setq rot (atof (angtos rot 2 2)))[/surligneur] ) ;_ Fin de progn ) Que j'utilise dans 40% des mes routines...:casstet: Mais il faut bien réfléchir...p2, dois être connu et rot dois retourner une valeur dans la routine d'appel... Je croix que j'ai résolu mon [surligneur] problème d'angle...[/surligneur] ;) J'ai du boulo ! ! ! :( Denis...

Ah ah... Entièrement d'accord, mais si on la mets trop loin... On ne la voit plus... (m.... je ne sais plus comment on écrit "voi*") ;) Merci encore pour tous ces conseils et toutes ces astuces, Denis...

Pfff, je ne m'en sort pas.... :( :( J'ai ça, pour faire une rotation du plan en restant dans le SCU général : ........ ;arrivé ici, je suis déjà dans mon système : ;origine des Y au nord, sens horaire et en grades (setq p1 (getpoint "\nPoint de départ : ")) (setq VOrtho (getvar "orthomode")) (setvar "orthomode" 0) (setq AngScu (getangle p1 (strcat "\nDirection des X :"))) (princ "\nAngScu :") (princ AngScu) (princ "\nOrientation : ") (setq AngScu (angtof (angle p1 p2))) (setq p3 (polar p1 (- AngScu 100) 1000)) (vlax-ldata-put "Phalene" "AngSCU" AngScu) (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") ........ Mais il n'y a rien qui marche ! ! :( SMS ! ! (Save My Soul) ! ! Denis... ( qui va se coucher en pleurant :( )

Oui.... Mais j'ai des problèmes de mémoire... ;) Ben si c'est vrai... :o Denis...

Bon, ça fait une plombe que je me casse la tête avec les (angtos dans tous les sens... Je clique 2 points, p1 et p2, respectivement x=1,y=1 et x=2,y=1. Pourquoi, (angle p1 p2) me donne 0, alors que l'origine des y est au nord et que je tourne dans le sens horaire... Si p3 (x=2, y=1) (angle p1 p3) me donne 90... C'est là qu'il devrait me dire 0 ! ! Pffffff.... I m'énerve ! ! ! ;) SOS ! ! Denis...

Pfffff ! ! ! Tu es comme ma femme... Toujours le dernier mot ! ! :casstet: Arh... Il est si bon de rire parfois... ;) Donc, on ne déclare que les variable qu'on affectera avec (setq et qu'on ne veux pas utiliser ailleurs (dans d'autres routines) ? Denis...