gepetto

Alors j'ai fait un peu d'avance dans mon histoires, mais je bute encore sur 2 petit soucis. 1) Pour automatiser j'ai utiliser le SuperAutoScript super cool ce truc Merci à Eric. mais voila j'ai récupérer un script qui va bien, mais qui ne fait pas un Zoom étendu avant de faire le mslide (command "_.mslide" (vl-filename-base (getvar '"dwgname"))) J'ai beau essayer d'ajouter un _zoom _et (command "_zoom _et _.mslide" (vl-filename-base (getvar '"dwgname"))) ca ne fonctionne pas, Bon vous l'aurez compris avant ce soir, je ne savais même pas qu'il existait de commande script sur autocad. 2) Pour faire mon menu j'utilise LibMenu.exe, la classe ce truc... mais j'aurai voulu que mon bloc s'insère dans un calque bien défini, et surtout qu'a la fin il reprenne le calque précédent. Mais voila ca marche pas top ^C^C-calque;CH;FIXATION;;-inserer C:/dessins/essai3/c10025 \1 1 ;;calquep;; Merci de votre aimable aide. Amicalement Gepetto

Hello, Merci de ton aide, j'ai réussis à faire le menu voulu, mais avec seulement 2 SLD donc avec la version manuelle, mais c'était pour essayer. Maintenant je voudrais automatiser la procédure, c'est d'ailleurs ce que devrais faire le lisp. J'ai crée un fichier *.txt avec l'utilitaire listedwg.bat, qui m'a générer le fichier listedwg.txt comme demander, c'est après a la lecture de ce fichier que quelque choses pèche.... Maintenant je ne suis pas marier avec cette procédure, si quelqu'un connait un moyen d'automatiser cette procédure je veux bien? Je vous remercie Amicalement Gepetto

Hello, J'utilise de puis plusieurs année le menu TOPO2000_r.mnu, que vous devez connaitre, car j'ai trouver plusieurs forum a ce sujet. J'aurai voulu ajouter quelque image a ce fichier mosaïqué je trouve bien, malgré ce que certain y trouve de vieillot... certes... Dans ce menu il y a 4 "programme" permettant de faire ces menu presque automatiquement... mais c a été écrit sous autocad 2000 et moi je suis sur 2015... J'ai un soucis avec le lisp fourni avec. Commande: SLDSCR ; erreur: type d'argument incorrect: FILE nil (defun c:sldscr () ;; Cette fonction lit dans le répertoire courant ;; le fichier listedwg.txt (ou autre) ;; et crée un script de création de slide ;; ouverture des fichiers (setq fichierxtxt (getfiled "Select a Listedwg text File" "" "txt" 8) ) (setq fic1 (open fichierxtxt "r")) (setq long (strlen fichierxtxt) long_12 (- long 12) nom_chemin (substr fichierxtxt 1 long_12) fichierscr (strcat nom_chemin "forsld.scr") ) (setq fic2 (open fichierscr "w")) ;; parcours du fichier et traitement (setq ch1 "" i 0 ) (while (setq ch1 (read-line fic1)) (setq long (strlen ch1) long_4 (- long 4) nom_bloc (substr ch1 1 long_4) nom_dessin ch1 i (+ 1 i) ) ;; ecriture dans le fichier (setq ligne1 (strcat "_OPEN " nom_bloc ) ligne2 (strcat "_zoom " "et") ligne3 (strcat "_mslide " nom_bloc ) ligne4 (strcat "_close " "o") ) (write-line ligne1 fic2) (write-line ligne2 fic2) (write-line ligne3 fic2) (write-line ligne4 fic2) (setq i (+ 1 i)) );while (close fic1) (close fic2) (alert "le fichier forsld.scr est créé !") );defun (prompt "\nExecution, taper : SLDSCR puis RETURN \n") (prin1) J'imagine une fonction qui a changer de nom, mais la quel? Si quelqu'un pouvais m'aider.... Amicalement Gepetto PS je vous met les 4 fichier menu sld.zip

Cool, Merci du coups de mains, j'avais déjà entendu parler de l' * mais pensais qu'il y avais quelque chose d'autre a faire. Si je voudrais mettre une croix au lieu d'une hachure dans mon rectangle, comment je devrais m'y prendre, car j'ai un peu chercher, mais je sèche... Je vous remercie. Amicalement Gepetto

Hello, Ben je me pose la question comment imaginer une bibliothèque de vis non dynamique, prendre place dans la palettes, car je ne vois pas avoir une ligne par vis soit: Vis tête fraisé M5x12 Vis tête fraisé M5x16 Vis tête fraisé M5x20 Vis tête fraisé M5x25 etc... pour chaque sorte de vis. Ca va faire 1200 lignes et plus rien de très pratique et pas très convivial comme utilisations, voila pourquoi je me posais la questions de savoir comment vous faisiez? Je vous remercie Amicalement

Hello, Cool, Merci de ton aide, mais y a t'il un moyen pour qu'avec le bouton de droite ce reprenne la commande en entier, sans devoir à nouveau cliquer sur l'icone? Je te remercie Amicalement

Hello, Merci à vous 2. Mon code : ^C^C_-layer;_s;beton;;_rectang;\\_-layer;_s;hachure;;_-bhatch;_p;ANSI37;7;0;_r; Je te remercie pour ta macro, mais voudrai bien comprendre pourquoi la mienne ne va pas autant bien que la tienne? Je vous remercie. Amicalement

Hello, J'ai crée une macro qui a pour but de crée un rectangle, et d'y mettre une hachure définie à l'avance. Mais je pêche sur quelque détail. 1) Je suis obliger de sélectionner le rectangle à hachurer, alors que c'est celui que je vient de crée. 2) Quoi mettre pour répéter la totalité de la commande par un "clic droit" Je vous remercie. Amicalement Gepetto

Hello Pourquoi pas, mais j'ai l'impression que pour avoir un catalogue de visserie - accessoire "complet" du moins de ce que j'utilise plus ou moins régulièrement ce qui représente env. 800-1000 articles je ne vois pas comment faire. Mais je sous-estime surement la puissance de l'outils palettes. Peux tu éclairer un peu ma lanterne? Je te remercie

Effectivement, De mon côté j'ai déjà une belle liste de vis et accessoires du commerces. Je verrai bien une bibliothèque communautaire ou chacun pourrai y mettre ces propre bloc. Mais je ne sais pas vraiment comment programmer un truc pareil. Bonne journée

Hello, Dans mon ancien job, on avais un applicatif dédier à la construction métallique, que je n'ai plus. Il y avais une fonctions de bibliothèque sur la base d'un icone, qui ouvrais une boite de dialogue. Le grand avantage que je trouvais à celui du Design center et de la palettes était, le classement genre "explorateur", la visuel du bloc choisis, le choix du calque, et si double clic sur le bloc qui provenais de la bibliothèque celle ci s'ouvrais et permettais le changement du bloc instantanément. Une image de à quoi ressemblais la choses Avez-vous déjà vu un tel lisp à quelque part. Je vous remercie Amicalement Gepetto

Parfait, Merci à tous pour votre aide.

Merci de ta réponse lili, je vais tester cela demain. je te tiendrai au courant si ca joue. Pourquoi sous cette forme et non une autre, car j'ai trouver sur un forum, un base de visserie, qui étais faites sous cette forme, et que comme je n'y connais pas grand choses en lips, je n'ai pas voulu tout reprendre. Maintenant, il est vrai que sous la forme actuelle C'est a dire menu déroulant, sous menu déroulant, avec sous-sous-sous menu deroulant ca va jusqu'à 7 je crois, ce n'est pas vraiment pratique et intuitif, avoir cette base de visserie, et de donnée sous forme d'une boite de dialogue serai bien mieux. Ou l'on pourrai choisir un peu comme sur l'explorateur Windows, avec un aperçu de l'objet a insérer, ca serai la grande classe. Mais voila,... Bonne soirée

Merci de ta réponse lili, je vais tester cela demain. je te tiendrai au courant si ca joue. Pourquoi sous cette forme et non une autre, car j'ai trouver sur un forum, un base de visserie, qui étais faites sous cette forme, et que comme je n'y connais pas grand choses en lips, je n'ai pas voulu tout reprendre. Maintenant, il est vrai que sous la forme actuelle C'est a dire menu déroulant, sous menu déroulant, avec sous-sous-sous menu deroulant ca va jusqu'à 7 je crois, ce n'est pas vraiment pratique et intuitif, avoir cette base de visserie, et de donnée sous forme d'une boite de dialogue serai bien mieux. Ou l'on pourrai choisir un peu comme sur l'explorateur Windows, avec un aperçu de l'objet a insérer, ca serai la grande classe. Mais voila,... Bonne soirée

Hello, Merci pour votre aide. effectivement il s'agissait du problème de langage, entre le Français et l'Anglais Je ne pensais pas que ca poserai un problème. En avançant dans la programmation je voudrai que ca me restaure le calque précèdent, voulais donc utiliser la variable "calquep" mais ca ne fonctionne pas, a nouveau un petit message d'erreur <Command>^C^C-calque;CH;FIXATION;;-inserer;0203;\;;-calquep;; </Command> Calque courant: "FOLIE" Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher]: CH Entrez le nom du calque à rendre courant ou <sélectionnez un objet>: FIXATION Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher]: Commande: -inserer Entrez le nom du bloc ou [?] <0203>: 0203 Unités: Sans unité Conversion: 1.000 Spécifiez le point d'insertion ou [Pointdebase/Echelle/X/Y/Z/rOtation]: Entrez le facteur d'échelle en X, spécifiez le coin opposé ou [Coin/XYZ] <1>: Entrez le facteur d'échelle en Y <utiliser le facteur d'échelle en X>: Spécifiez l'angle de rotation <0.00>: Commande: -calquep Commande inconnue "-CALQUEP". Appuyez sur F1 pour obtenir de l'aide. Commande: Je vous remercie, et bonne soirée PS oui il s'agit de macro écrite pour un bouton, mais elle sont réunis dans un *.cui

Hello a tous j'ai un petit soucis de syntaxe lisp A l'origine j'ai un extrait de code comme celui ci. <Command>^C^C-inserer;0203;\;; </Command> et j'aimerais que la pièce à insérer aille directement dans le calque Fixation. Je pensais a un truc comme celui-ci <Command>^C^C_-layer;_m;FIXATION;;_-inserer;0203;\;; </Command> Mais quand j'insère cette objet dans autocad, j'ai un message d'erreur du type: -layer Commande inconnue "-LAYER". Appuyez sur F1 pour obtenir de l'aide. Commande: _m Commande inconnue "M". Appuyez sur F1 pour obtenir de l'aide. Commande: FIXATION Commande inconnue "FIXATION". Appuyez sur F1 pour obtenir de l'aide. Commande: CUIRAPIDE Commande: _-inserer Commande inconnue "-INSERER". Appuyez sur F1 pour obtenir de l'aide. Commande: 0203 Commande inconnue "0203". Appuyez sur F1 pour obtenir de l'aide. J'ai fait quoi de faux? Merci de votre aide Amicalement

Hello, Merci de ton aide, j'ai mis le lisp a la place de la macro. Une solution qui pourra peu être en aider d'autre mais pas fiable a 100% est de mettre une * avant le ^C^C ce qui donnerai qqch comme *^C^C_dimlinear;\\\_dimcontinue;\ Bonne soirée

Hello a tous j'ai trouver dans un ancien poste, une commande drôlement intéressante, Mon lien il s'agit de cumuler plusieurs fonction en les mettant en chaine, comme ci dessous avec la commande linéaire et continue. ^C^C_dimlinear;\\\_dimcontinue;\ Le seul truc qui me dérange c'est qu'avec le bouton de droite (reprise de la dernière commande, il reprenne cote continue et non cote linéaire. Que dois-je ajouter a cette macro? Je vous remercie. amicalement¨ Didier

Salut vincent Merci de ton aide, j'ai modifier le fichier comme tu me l'a demander, mais je dois avoir fais qqch de faux. j'ai une sorte de boucle de repérage qui se crée, et fait planter autocar. Voici ce que j'ai modifier EN suite ou dois-je mettre l'équivalence style de côte et échelle cote? Merci de ton aide "Fichier lsp" [;;; créer un calque (defun calque (NewLayer ColLayer TlLayer) (if (not (tblsearch "LTYPE" TlLayer)) (command "_LINETYPE" "_L" TlLayer "acadiso" "") ) (if (not (tblsearch "LAYER" NewLayer)) (command "_layer" "_M" NewLayer "_CO" ColLayer "" "_LT" TlLayer "" "") (command "_LAYER" "_T" NewLayer "_ON" NewLayer "_S" NewLayer "") ) ) ;-------------------------------------------------------------------------- ---- (defun place_cote (TYP_COT) (cond ((= TYP_COT "lin") (princ (strcat "\nCotation linéaire au 1:" (substr TYP_ECH 5))) (command "_dimlinear") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ali") (princ (strcat "\nCotation alignée au 1:" (substr TYP_ECH 5))) (command "_dimaligned") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "con") (princ (strcat "\nCotation continue au 1:" (substr TYP_ECH 5))) (command "_dimcontinue") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "lig") (princ (strcat "\nCotation ligne de base au 1:" (substr TYP_ECH 5))) (command "_dimbaseline") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ord") (princ (strcat "\nCotation ordonnée au 1:" (substr TYP_ECH 5))) (command "_dimordinate") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ray") (princ (strcat "\nCotation rayon au 1:" (substr TYP_ECH 5))) (command "_dimradius") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ang") (princ (strcat "\nCotation angulaire au 1:" (substr TYP_ECH 5))) (command "_dimangular") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "dia") (princ (strcat "\nCotation diamètre au 1:" (substr TYP_ECH 5))) (command "_dimdiameter") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "rep") (princ (strcat "\nCotation repère au 1:" (substr TYP_ECH 5))) (command "_mleader") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun init_cct (/ prefix cfgname cfg) (if (not TYP_COT) (setq TYP_COT "lin") ) (if (not TYP_ECH) (setq TYP_ECH "cot-50") ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun do_accept_cct () (setq TYP_COT (get_tile "typ_cot")) (setq TYP_ECH (get_tile "typ_ech")) (done_dialog 1) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun do_cct_dimstyle (ECH) (cond ((= ECH "cot-1") "COTE-01") ((= ECH "cot-2") "COTE-02") ((= ECH "cot-3") "COTE-03") ((= ECH "cot-5") "COTE-05") ((= ECH "cot-10") "COTE-10") ((= ECH "cot-20") "COTE-20") ((= ECH "cot-25") "COTE-25") ((= ECH "cot-50") "COTE-50") ((= ECH "cot-75") "COTE-75") ((= ECH "cot-100") "COTE-100") ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun do_cct_layer (ECH) (cond ((= ECH "cot-1") "COTE-01") ((= ECH "cot-2") "COTE-02") ((= ECH "cot-3") "COTE-03") ((= ECH "cot-5") "COTE-05") ((= ECH "cot-10") "COTE-10") ((= ECH "cot-20") "COTE-20") ((= ECH "cot-25") "COTE-25") ((= ECH "cot-50") "COTE-50") ((= ECH "cot-75") "COTE-75") ((= ECH "cot-100") "COTE-100") ) ) ;-------------------------------------------------------------------------- ---- ;----------------------------------------------------------------------- ---- (defun do_cct_layer (rep) (cond ((= ECH "cot-1") "repère01") ((= ECH "cot-2") "repère02") ((= ECH "cot-3") "repère03") ((= ECH "cot-5") "repère05") ((= ECH "cot-10") "repère10") ((= ECH "cot-20") "repère20") ((= ECH "cot-25") "repère25") ((= ECH "cot-50") "repère50") ((= ECH "cot-75") "repère75") ((= ECH "cot-100") "repère100") ) ;-------------------------------------------------------------------------- ---- ; programme principal ;-------------------------------------------------------------------------- ---- (defun c:CCT (/ OLD_CMD WHAT_NEXT DCL_ID old_CLAY) (if (= (getvar "cmdactive") 1) (command "_exit") ) ;; (setvar "DIMASSOC" 1) ; cotation non associative ;; (setvar "DIMASSOC" 2) ; cotation associative (init_cct) (setq dcl_id (load_dialog "cct.dcl")) (if (not (new_dialog "Cct" dcl_id)) (exit)) (set_tile "typ_cot" TYP_COT) (set_tile "typ_ech" TYP_ECH) (action_tile "accept" "(do_accept_cct)") (action_tile "cancel" "(done_dialog 0)") (setq what_next (start_dialog)) (unload_dialog dcl_id) (if (= what_next 1) ;OK (progn ;(setq old_CLAY (getvar "CLAYER")) ; reprend le calque d'avant pour que ca fonctionne enlever le ; (setq OLD_CMD (getvar "cmdecho")) (setvar "cmdecho" 1) (setq CCT_DIMSTYLE (do_cct_dimstyle TYP_ECH)) (if (not (tblsearch "DIMSTYLE" CCT_DIMSTYLE)) (alert (strcat "Le style de cote " CCT_DIMSTYLE " n'existe pas")) (progn (calque (do_cct_layer TYP_ECH) "251" "CONTINUOUS") ;; la couleur 251 pour le calque (command "_dimstyle" "_r" CCT_DIMSTYLE) ;; restaurer le style de cote (command "_mleaderstyle" CCT_DIMSTYLE) ;; restaurer le style de repère multiple (place_cote TYP_COT) ) ) (setvar "cmdecho" OLD_CMD) ;(setvar "clayer" old_CLAY) ; reprend le calque d'avant pour que ca fonctionne enlever le ; ) ) (princ)[code]dcl_settings : default_dcl_settings { audit_level = 0 ;} Cct : dialog { label = "PLACER UNE COTE"; : row { : boxed_radio_column { label = "Type de cotation"; key = typ_cot; : radio_button { label = "Linéaire"; mnemonic = "L"; key = lin; } : radio_button { label = "Alignée"; mnemonic = "A"; key = ali; } : radio_button { label = "conTinue"; mnemonic = "T"; key = con; } : radio_button { label = "ligne de Base"; mnemonic = "B"; key = lig; } : radio_button { label = "Ordonnée"; mnemonic = "O"; key = ord; } : radio_button { label = "Rayon"; mnemonic = "R"; key = ray; } : radio_button { label = "anGulaire"; mnemonic = "G"; key = ang; } : radio_button { label = "Diamètre"; mnemonic = "D"; key = dia; } : radio_button { label = "Repère"; mnemonic = "E"; key = rep; } } : boxed_radio_column { label = "ECHELLE"; key = typ_ech; : radio_button { label = "Echelle 1:1"; key = "cot-1"; } : radio_button { label = "Echelle 1:2"; key = "cot-2"; } : radio_button { label = "Echelle 1:3"; key = "cot-3"; } : radio_button { label = "Echelle 1:5"; key = "cot-5"; } : radio_button { label = "Echelle 1:10"; key = "cot-10"; } : radio_button { label = "Echelle 1:20"; key = "cot-20"; } : radio_button { label = "Echelle 1:25"; key = "cot-25"; } : radio_button { label = "Echelle 1:50"; key = "cot-50"; } : radio_button { label = "Echelle 1:75"; key = "cot-75"; } : radio_button { label = "Echelle 1:100"; key = "cot-100"; } } } spacer_1; ok_cancel; } ) /code] et le fichier dcl

Oui c'et une solution que j'avais envisager, mais qui ne me convenais guère, surtout qu'après j'avais découvert ce magnifique lisp. que je voudrai la moindre modifier Ca ne me convenais guère, car ca faisais beaucoup de bouton à mettre dans la palettes et trouvais ca moyennent intuitif. Merci de ta proposition Bonne journée

Bonjour, Merci de ta réponses, ce que j'entend par repère est la commande "LIGNEDEREPMULT" en espérant avoir pu répondre à ta question Je te remercie

Hello, Il y a fort longtemps, j'avais trouver sur ce forum un lisp qui permet de mettre la cote dans le bon style et le bon calque. J'aurai voulu y apporter une petit modif, et c'est pour cela que je demande votre aide. j'aimerai que les repères soit aussi mis automatiquement dans le bon style et le bon calque. Je vous remercie Amicalement ;;; créer un calque (defun calque (NewLayer ColLayer TlLayer) (if (not (tblsearch "LTYPE" TlLayer)) (command "_LINETYPE" "_L" TlLayer "acadiso" "") ) (if (not (tblsearch "LAYER" NewLayer)) (command "_layer" "_M" NewLayer "_CO" ColLayer "" "_LT" TlLayer "" "") (command "_LAYER" "_T" NewLayer "_ON" NewLayer "_S" NewLayer "") ) ) ;-------------------------------------------------------------------------- ---- (defun place_cote (TYP_COT) (cond ((= TYP_COT "lin") (princ (strcat "\nCotation linéaire au 1:" (substr TYP_ECH 5))) (command "_dimlinear") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ali") (princ (strcat "\nCotation alignée au 1:" (substr TYP_ECH 5))) (command "_dimaligned") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "con") (princ (strcat "\nCotation continue au 1:" (substr TYP_ECH 5))) (command "_dimcontinue") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "lig") (princ (strcat "\nCotation ligne de base au 1:" (substr TYP_ECH 5))) (command "_dimbaseline") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ord") (princ (strcat "\nCotation ordonnée au 1:" (substr TYP_ECH 5))) (command "_dimordinate") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ray") (princ (strcat "\nCotation rayon au 1:" (substr TYP_ECH 5))) (command "_dimradius") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "ang") (princ (strcat "\nCotation angulaire au 1:" (substr TYP_ECH 5))) (command "_dimangular") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "dia") (princ (strcat "\nCotation diamètre au 1:" (substr TYP_ECH 5))) (command "_dimdiameter") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ((= TYP_COT "rep") (princ (strcat "\nCotation repère au 1:" (substr TYP_ECH 5))) (command "_leader") (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun init_cct (/ prefix cfgname cfg) (if (not TYP_COT) (setq TYP_COT "lin") ) (if (not TYP_ECH) (setq TYP_ECH "cot-50") ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun do_accept_cct () (setq TYP_COT (get_tile "typ_cot")) (setq TYP_ECH (get_tile "typ_ech")) (done_dialog 1) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun do_cct_dimstyle (ECH) (cond ((= ECH "cot-1") "COTE-01") ((= ECH "cot-2") "COTE-02") ((= ECH "cot-3") "COTE-03") ((= ECH "cot-5") "COTE-05") ((= ECH "cot-10") "COTE-10") ((= ECH "cot-20") "COTE-20") ((= ECH "cot-25") "COTE-25") ((= ECH "cot-50") "COTE-50") ((= ECH "cot-75") "COTE-75") ((= ECH "cot-100") "COTE-100") ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- (defun do_cct_layer (ECH) (cond ((= ECH "cot-1") "COTE-01") ((= ECH "cot-2") "COTE-02") ((= ECH "cot-3") "COTE-03") ((= ECH "cot-5") "COTE-05") ((= ECH "cot-10") "COTE-10") ((= ECH "cot-20") "COTE-20") ((= ECH "cot-25") "COTE-25") ((= ECH "cot-50") "COTE-50") ((= ECH "cot-75") "COTE-75") ((= ECH "cot-100") "COTE-100") ) ) ;-------------------------------------------------------------------------- ---- ;-------------------------------------------------------------------------- ---- ; programme principal ;-------------------------------------------------------------------------- ---- (defun c:CCT (/ OLD_CMD WHAT_NEXT DCL_ID old_CLAY) (if (= (getvar "cmdactive") 1) (command "_exit") ) ;; (setvar "DIMASSOC" 1) ; cotation non associative ;; (setvar "DIMASSOC" 2) ; cotation associative (init_cct) (setq dcl_id (load_dialog "cct.dcl")) (if (not (new_dialog "Cct" dcl_id)) (exit)) (set_tile "typ_cot" TYP_COT) (set_tile "typ_ech" TYP_ECH) (action_tile "accept" "(do_accept_cct)") (action_tile "cancel" "(done_dialog 0)") (setq what_next (start_dialog)) (unload_dialog dcl_id) (if (= what_next 1) ;OK (progn ;(setq old_CLAY (getvar "CLAYER")) ; reprend le calque d'avant pour que ca fonctionne enlever le ; (setq OLD_CMD (getvar "cmdecho")) (setvar "cmdecho" 1) (setq CCT_DIMSTYLE (do_cct_dimstyle TYP_ECH)) (if (not (tblsearch "DIMSTYLE" CCT_DIMSTYLE)) (alert (strcat "Le style de cote " CCT_DIMSTYLE " n'existe pas")) (progn (calque (do_cct_layer TYP_ECH) "251" "CONTINUOUS") ;; la couleur 251 pour le calque (command "_dimstyle" "_r" CCT_DIMSTYLE) ;; restaurer le style de cote (place_cote TYP_COT) ) ) (setvar "cmdecho" OLD_CMD) ;(setvar "clayer" old_CLAY) ; reprend le calque d'avant pour que ca fonctionne enlever le ; ) ) (princ) )

Hello, Désoler de déterrer un poste résolu, mais petit question a ce sujet. La commande fonctionne parfaitement, a un détail prêt. Quand je fait bouton de droite (reprise de la dernière commande) ca reprend cote continu, et non cote linéaire. Comment modifier, la chaine pour ce faire. Je vous remercie. Amicalement Gepetto

Hello, Merci d'avance pour vos réponse constructive. et voici les quelque demandes. PC assembler par un assembleur, ce qui à pour avantage de mettre ce que l'on veux à l'intérieur. Win 7 est indispensable. Petit plan 3D Ram: G.Skill DDR3 2400Mhz (2x8gb) Au niveau carte graphique du carte ce ressemble furieusement même prix Pourquoi? ASUS GTX 770 DC2OC 2048MB GDDR5, 7010/1110MHz PCIE3, 2-Slot, NVIDIA GeForce 339frs ou EVGA GTX 770 SC ACX 2048MB GDDR5, 7010/1111MHz PCIE3, 2-Slot, NVIDIA GeForce 339frs et la carte proposer par le crabe ASUS GTX 750 Ti OC 2GD5 2048MB GDDR5, 5400/1072MHz PCIE3, 2-Slot, NVIDIA GeForce 160frs et celle de mon assembleur EVGA GTX 780 SC ACX 3072MB GDDR5, 6008/967MHz PCIE3, 2-Slot, NVIDIA GeForce a 509frs (que je trouve cher) Que faire? Y a t'il réellement un gain entre la gtx 780 et la 770? Je vous remercie de votre aide.

Hello, Je vais changer de boite d'ici 2 mois et le boss me demande de regarder pour un nouveau PC. je vais principalement l'utiliser avec Autocad 2015 en 2D et parfois Advance steel 2015 (logiciel de 3D pour la construction métallique) Après quelque renseignement pris voila la confi qui m'est proposer. I7 4790K 16GB Ram SSD 250Gb Hdd 1To Win 7 Pro 64bit Carte graphique Nvidia GTX 780 ou ??? pour beaucoup moins cher y aurai une Intel HD Graphics 4600. que faire et que choisir, sachant que je voudrai donner une durée de vie d'env 4-5ans à ce PC. Merci de votre aide.